ASP Kodları

maChaRa · 23.05.2007

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

maChaRa · 23.05.2007

orası öyle hep bi başı wardır sonu asla olmaz

23.05.2007	#2 (permalink)
maChaRa ultrAslan Katılma Tarihi: Mar 2007 Nereden: izmir Mesajlar: 124	orası öyle hep bi başı wardır sonu asla olmaz __________________ İşi olmayan giremez çünkü içerde yeterince işsiz var...

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Renk Kodları	etka	Web Tasarım	0	19.03.2007 20:49
telefon kodları	and&and	Cep Telefonu	11	03.03.2007 22:41
İNDeX KoDLaRı	Lendor_Sinan	Web Sitesi Çökertme	17	11.02.2007 16:09
MSN kodları..	ÜÇ_HİLAL	Sohbet Programları	2	31.10.2006 00:35
Media Kodları	king_10	Web Tasarım	1	11.08.2006 10:28

Şu Anda Konuyu İnceleyen Aktif Kullanıcılar: 1 (0 üye ve 1 misafir)

Konu Araçları
Yazıcı Çıktısını Göster Sayfayı Emaille Yolla