ASP Kodları

UnreaL · Mesaj gönderen **UnreaL** » 22-07-2006 15:35

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

UnreaL · Mesaj gönderen **UnreaL** » 22-07-2006 15:39

Üyelik Kayıt Formu

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

Kod: Tümünü seç

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

UnreaL · Mesaj gönderen **UnreaL** » 22-07-2006 16:11

Excell den veri almak ve ekrana yazdırmak

Kod: Tümünü seç

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

UnreaL · Mesaj gönderen **UnreaL** » 22-07-2006 16:15

Databese den Excele veri çıkma - aktarma

Kod: Tümünü seç

<%@ 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:Print>"
act.WriteLine "<x:ValidPrinterInfo/>"
act.WriteLine "</x:Print>"
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
%>

UnreaL · Mesaj gönderen **UnreaL** » 22-07-2006 16:18

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: Tümünü seç

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

%>

UnreaL · Mesaj gönderen **UnreaL** » 22-07-2006 16:22

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: Tümünü seç

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

Türkiye Forum

ASP Kodları

ASP Kodları

Kimler çevrimiçi