ASP Kodları

Fast Friend

Sayfaya tarih eklemek

<%
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..
}

Fast Friend

Üyelik Kayıt Formu

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

<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><%
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 %>
</p>
<hr>
<form method="POST" name="FrontPage_Form1" action="--WEBBOT-SELF--" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript">
<strong>[FrontPage Kaydetme Bileşeni]</strong>
<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><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:
.</h5>

</body>

</html>

Fast Friend

Excell den veri almak ve ekrana yazdırmak

<%
'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)
%>

Fast Friend

Databese den Excele veri çıkma - aktarma

<%@ 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 " "
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
%>

Fast Friend

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)

<% 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

%>

Fast Friend

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.

<%
'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.
%>