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..
}
Üyelik Kayıt Formu
<html>
<head>
<**** name="GENERATOR" content="Microsoft FrontPage 5.0">
<**** name="ProgId" content="FrontPage.Editor.Document">
<**** *************Content-Type" content="text/html; charset=windows-1254">
<**** *************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
<%
'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)
%>
<%
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
<html>
<head>
<**** name="GENERATOR" content="Microsoft FrontPage 5.0">
<**** name="ProgId" content="FrontPage.Editor.Document">
<**** *************Content-Type" content="text/html; charset=windows-1254">
<**** *************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
<%
'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)
%>