ASP Kodları

G

GICIKX

Uzman üye
2 Ocak 2007
1,074
9
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)
%>
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.