ASP komutlar, örnekler
tarih ekleyin
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 ocak 2008 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
rint>"
act.WriteLine "<x:ValidPrinterInfo/>"
act.WriteLine "</xrint>"
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
%>
Hazır konu açılmışken 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:
<%
'example;
dim dizi(4)
x=1
For a= 0 To 4
dizi(a)="hakan" & x
Next
'buradaki degerler;
'dizi(0)="hakan1"
'dizi(1)="hakan2"
'dizi(2)="hakan3"
'.....
'...
'seklindedir. bunu split kullanarak alabilmek için.. eger dizi
'içinde kaç eleman oldugu bilinmiyor ise..
t=Ubound(dizi) ' bize dizide kaç eleman oldugunu gösterir.
For a= 0 To t
Response.Write dizi(a) & "<br>"
Next
'seklindedir.
%>
tarih ekleyin
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 ocak 2008 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
rint>" act.WriteLine "<x:ValidPrinterInfo/>"
act.WriteLine "</x
rint>" 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
%>
Hazır konu açılmışken 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:
<%
'example;
dim dizi(4)
x=1
For a= 0 To 4
dizi(a)="hakan" & x
Next
'buradaki degerler;
'dizi(0)="hakan1"
'dizi(1)="hakan2"
'dizi(2)="hakan3"
'.....
'...
'seklindedir. bunu split kullanarak alabilmek için.. eger dizi
'içinde kaç eleman oldugu bilinmiyor ise..
t=Ubound(dizi) ' bize dizide kaç eleman oldugunu gösterir.
For a= 0 To t
Response.Write dizi(a) & "<br>"
Next
'seklindedir.
%>