ASP Kodları

DELİKURT

DELİKURT

Dost Üyeler
Katılım
12 Haz 2008
Mesajlar
1,103
Tepkime puanı
0
Puanları
0
Konum
Turan
ASP Kodları

Sayfaya tarih eklemek

Kod: 
<% 
dim gun, ay, yil, ayname 
gun= Day(date) 
ay=Month(date) 
yil=Year(date) 
If ay=1 Then ayname="Ocak" 
If ay=2 Then ayname="subat" 
If ay=3 Then ayname="Mart" 
If ay=4 Then ayname="Nisan" 
If ay=5 Then ayname="Mayis" 
If ay=6 Then ayname="Haziran" 
If ay=7 Then ayname="Temmuz" 
If ay=8 Then ayname="Agustos" 
If ay=9 Then ayname="Eylül" 
If ay=10 Then ayname="Ekim" 
If ay=11 Then ayname="Kasim" 
If ay=12 Then ayname="Aralik" 
Response.Write "<font size=2 face=Verdana>Bugün :<b>" & gun &" " & ayname &" " & yil &"</b></font>" 
%> 
 
Sonuç : { 
Bugün : 18 Mart 2006 gibi olacaktir.. 
}

Üyelik Kayıt Formu

Databesinizi oluşturup ilgili tablolaları yarattıktan sonra sıra geliyor form bilgilerini alacağımız sayfaya

Kod: 
<html> 

<head> 
<meta name="GENERATOR" content="Microsoft FrontPage 5.0"> 
<meta name="ProgId" content="FrontPage.Editor.Document"> 
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254"> 
<meta http-equiv="Content-Language" content="tr"> 
<title>Kayıt Formu</title> 
</head> 

<body bgcolor="#000000"> 

<p><!--webbot bot="HTMLMarkup" startspan --><% 
Set baglanti=Server.CreateObject("ADODB.connection" ) 
baglanti.Open "driver={microsoft access driver (*.mdb)}; DBQ=" &Server.MapPath("veritabani_yolu" ) 
SQL="select * from tablo_ismi" 
Set kayitseti = baglanti.Execute(SQL) 
Do While not kayitseti.Eof 
%> 

<table>Alinacak Bilgiler</table> 

<% kayitseti.Movenext %> ' Bu kodu nereye koyarsaniz orada kayit listeleme biter ve diger kayda gelir... 
<% Loop %> 
<%kayitseti.Close %> 
<%baglanti.Close %> 
<!--webbot bot="HTMLMarkup" endspan --></p> 
<hr> 
<form method="POST" name="FrontPage_Form1" action="--WEBBOT-SELF--" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript"> 
<!--webbot bot="Registration" s-service="Kök Web" s-username-fields="Kullanıcı adı" s-password-fields="Parola" s-builtin-fields startspan --><strong>[FrontPage Kaydetme Bileşeni]</strong><!--webbot bot="Registration" endspan i-checksum="58598" --> 
<h2>Form Gönderme</h2> 
<p align="left"> 
<font color="#FF0000">Ad:</font><input type="text" name="T1" size="20"></p> 
<p><font color="#FF0000">Soyad:</font><input type="text" name="T2" size="20"></p> 
<p><font color="#FF0000">E-Mail:<input type="text" name="T3" size="19"></font></p> 
<p><font color="#FF0000">Doğum Tarihi:<select size="1" name="D1"> 
<option selected>Gün</option> 
<option>1</option> 
<option>2</option> 
<option>3</option> 
<option>4</option> 
<option>5</option> 
<option>6</option> 
<option>7</option> 
<option>8</option> 
<option>9</option> 
<option>10</option> 
<option>11</option> 
<option>12</option> 
<option>13</option> 
<option>14</option> 
<option>15</option> 
<option>16</option> 
<option>17</option> 
<option>18</option> 
<option>19</option> 
<option>20</option> 
<option>21</option> 
<option>22</option> 
<option>23</option> 
<option>24</option> 
<option>25</option> 
<option>26</option> 
<option>27</option> 
<option>28</option> 
<option>29</option> 
<option>30</option> 
<option>31</option> 
</select> <select size="1" name="D2"> 
<option selected>Ay</option> 
<option>Şubat</option> 
<option>Mart</option> 
<option>Nisan</option> 
<option>Mayıs</option> 
<option>Haziran</option> 
<option>Temmuz</option> 
<option>Ağustos</option> 
<option>Eylül</option> 
<option>Ekim</option> 
<option>Kasım</option> 
<option>Aralık</option> 
<option>Ocak</option> 
</select> </font><input type="text" name="T4" size="15"></p> 
<p><font color="#FF0000">Gizli sorunuz:</font><input type="text" name="T5" size="29"></p> 
<p><font color="#FF0000">Gizli sorunuzun cevabı:</font><input type="text" name="T6" size="29"></p> 
<p>:</p> 
<p><font color="#FF0000">Kullanıcı Adı:</font><input type="text" name="T7" size="25"></p> 
<p><font color="#FF0000">Şifre:</font><input type="password" name="T9" size="25"></p> 
<p><font color="#FF0000">Şifrenizi tekrarlayın:</font><!--webbot bot="Validation" s-display-name="Şifre" s-data-type="String" b-value-required="TRUE" --><input type="password" name="T10" size="24"></p> 
<p> </p> 
<p><br> 
</p> 
<p> </p> 
<h2> 
<input type="submit" value="Kayıt Ol" name="güncelle" class="INPUT"> 
<input type="reset" value="Sıfırla" name="sıfırla"></h2> 
<input type="hidden" name="parola" value="tr"> 
<input type="hidden" name="parola2" value="şifre2"> 
</form> 
<hr> 
<h5><br> 
Set By re©o -2005 [Recodesign.com]. İstediğiniz gibi kullanın :)<br> 
Son düzeltme tarihi: 
<!--webbot bot="TimeStamp" s-type="EDITED" s-format="%d %B %Y" -->.</h5> 

</body> 

</html>

Excell den veri almak ve ekrana yazdırmak

Kod: 
<% 
'Değeri sıfır yaptık ve geçici bellekte veri saklanmasını önledik 
Response.Expires = 0 

'Baglanti nesnesi oluşturduk 
Set DB = Server.CreateObject("ADODB.Connection") 
DB = "Driver={Microsoft Excel Driver (*.xls)}; DBQ=deneme.xls;" 'Veritabanımızın yerini belirttik 
Baglanti.Open DB 'Veritabanımızı açtık 

Set rsEx = Server.CreateObject("ADODB.Recordset") 
strSQL = "Select * From tabloadi" 
rsEx.Open strSQL, Baglanti 

'Verileri yazdırıyoruz. 
Response.Write ("<table border=1><tr><td>") 
Response.Write rsEx.GetString (, 10, "</tr><td>", "</td></tr><tr><td>", NBSPACE) 
%>

Databese den Excele veri çıkma - aktarma


Kod: 
<%@ Language=VBScript %> 
<% 
'sql: kısmına çift tırnak içinde direk sql stringi yaz 
'cnnl: database bağlantısı 
Function exporttoexcel(FileName,sql,cnnl) 
dim iCols 
dim i 
set rs=server.CreateObject("ADODB.Recordset") 
set rs=cnnl.Execute (sql) 
iCols = rs.Fields.Count 
session("FileName")=cstr(FileName) 
set fso = createobject("scripting.filesystemobject") 
Set folder = fso.GetFolder("c:\Inetpub\wwwroot\tekintranet\dokuman\excel") 
Set act = folder.CreateTextFile(""&FileName& "" &".xls", true) 
act.WriteLine "<html xmlns:x=""urn:schemas-microsoft-com:office:excel"">" 
act.WriteLine "<head>" 
act.WriteLine "<!--[if gte mso 9]><xml>" 
act.WriteLine "<x:ExcelWorkbook>" 
act.WriteLine "<x:ExcelWorksheets>" 
act.WriteLine "<x:ExcelWorksheet>" 
act.WriteLine "<x:Name>"& "Sheet1" &"</x:Name>" 
act.WriteLine "<x:WorksheetOptions>" 
act.WriteLine "<x:Print>" 
act.WriteLine "<x:ValidPrinterInfo/>" 
act.WriteLine "</x:Print>" 
act.WriteLine "</x:WorksheetOptions>" 
act.WriteLine "</x:ExcelWorksheet>" 
act.WriteLine "</x:ExcelWorksheets>" 
act.WriteLine "</x:ExcelWorkbook>" 
act.WriteLine "</xml>" 
act.WriteLine "<![endif]--> " 
act.WriteLine "</head>" 
act.WriteLine "<body>" 
act.WriteLine "<table>" 
act.WriteLine "<tr>" 
For i = 0 To iCols - 1 
act.WriteLine "<th>" 
act.WriteLine "<font face=Arial>"&cstr(rs.Fields.Item(i).Name&"</font>") 
act.WriteLine "</th>" 
next 
act.WriteLine "</tr>" 
rs.MoveFirst 
i=0 
do until rs.EOF 
act.WriteLine "<tr>" 
For i = 0 To iCols - 1 
act.WriteLine "<td>" 
if rs.Fields.Item(i)<>"" then 
act.WriteLine "<font face=Arial>"&cstr(rs.Fields.Item(i))&"</font>" 
end if 
act.WriteLine "</td>" 
next 
act.WriteLine "</tr>" 
rs.MoveNext 
loop 
act.WriteLine "</table>" 
act.WriteLine "</body>" 
act.WriteLine "</html>" 
' close the document 
act.close 
rs.Close 
end function 
%>
ASP de en önemli şeylerden birisi veritabanıdır.O halde öncelikle bir veritabanına nasıl bağlanaıyoruz ona bakalım

Basit bir veritabanı bağlantısı şöyle oluyor (Access dosyasına)

Kod: 
<% Set BAG = Server.CreateObject("ADODB.Connection") 
BAG.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/vt_adi.mdb")) 

Set RS = BAG.Execute("SELECT * FROM tablo_adi") 
Do While Not Rs.Eof 
Response.Write RS("field_adi") & "<br>" 
RS.Movenext 
Loop 
%>  





Buda SQL server bağlantısı 


Kod: 
  
<% 

dim i 

Set Bag = Server.CreateObject("ADODB.Connection" ) 
Bag.Open ("Driver={SQL Server};" & "Server=SERVERADINIYAZIN;" & _ 
"Address=SERVERIPADRESIYAZIN,1433;" & _ 
"Network=DBMSSOCN;" & _ 
"Database=DATABASEADIYAZIN;" & _ 
"Uid=sa;") 

Set RS = Server.CreateObject("ADODB.RecordSet" ) 
RS.Open "SELECT webadres FROM linkler",BAG,1,3 

For i = 1 TO 10 
IF RS.eof THEN EXIT FOR 
Response.write(RS.Fields("webadres") & "<br>") 
RS.MoveNext 
Next 

RS.Close 
Set RS = Nothing 

Bag.Close 
Set Bag = Nothing 

%>
ASP de önemli bir konu da Trim dir.Trim databese temiz bir kayıt atmak için doldurulan alanda eğer boşluk varsa bunları temizler.

Trim
LTrim
RTrim

şeklinde üç çeşittir..

Trim sagdan ve soldan bosluklari temizler..
Ltrim soldan
Rtrim sagdan temizler..
Split bir dizideki degerleri ayirmak için kullanilabilir.

Kod: 
[B]ASP de önemli bir konu da Trim dir.Trim databese temiz bir kayıt atmak için doldurulan alanda eğer boşluk varsa bunları temizler. 

Trim 
LTrim 
RTrim 

şeklinde üç çeşittir.. 

Trim sagdan ve soldan bosluklari temizler.. 
Ltrim soldan 
Rtrim sagdan temizler.. 
Split bir dizideki degerleri ayirmak için kullanilabilir. [/B]
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Hakkımızda Kıbrıs Türklerinin bağımsız platformu, Kıbrıs tarihi araştırmaları, Kıbrıs gündem haberleri
Bağımsız Linkler Naci Kaya Yabancı dizi izle
Bağımsız Linkler Kıbrıs Girne Noter
Üst