Bu Siteden Her Türlü Alıntı Yapmak Serbesttir. Sitenin Tüm Hakları "KIBRIS TÜRK MİLLETİNE" Aittir. www.kibris1974.com'un Varlığı Türk Varlığına Armağan Olsun

Sitemizde Reklam Alanlarını Kullanabilmek İçin Mehmetçik Vâkıfına Veya Mücahitler Ve Şehit Aileleri Derneğine Yatırmış Olduğunuz Bağış Makbuzunu [email protected] Adresine İletmeniz Yeterlidir...

Geri git   KIBRIS1974 FORUM " Kibris TÜRK tarihi araştırmaları , Gündem haberleri, KIBRIS da kim kimdir ne nedir , kibris videolari resimleri dökümanları indir" > Bilişim Teknolojileri Merkezi > Web Yazılımları > Asp Yazılımlar
Kayıt ol Yardım Üye Listesi Ajanda Arama Bugünki Mesajlar Forumları Okundu Kabul Et


Konu Bilgileri
Kısayollar
Konu Basligi
ASP Kodları
Cevaplar
0
Sonraki Konu
sonraki Konu
ASP Kodları Konusunu Görüntüleyenler
 
Görüntüleme
734
Önceki Konu
önceki Konu

Cevapla
 
Seçenekler Stil
Alt 26-09-2008, 11:23 PM   #1
Profil
DELİKURT
Dost Üyeler
 
DELİKURT - ait Kullanıcı Resmi (Avatar)
 
Bilgiler
Üyelik tarihi: Jun 2008
Bulunduğu yer: Turan
Mesajlar: 1,103
Konular:
Uye No:931

Ettiği Teşekkür: 1049
888 Mesajına 2458 Kere Teşekkür Edlidi
İlgi Alanları
Extra:
DELİKURT is on a distinguished road
Standart ASP Kodları

ASP Kodları

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) 
%>
Databese den Excele veri çıkma - aktarma


Kod:
<%@ 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 
%>


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

%>


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:
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. 
__________________
Signatürü


Konu DELİKURT tarafından (26-09-2008 Saat 11:28 PM ) değiştirilmiştir..
DELİKURT isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Cevapla

ASP Kodları

Şu an bu konuyu KIBRIS FORUM içerisinde toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

KIBRIS Forumda şu an Sistem size ASP Kodları konusunu gösteriyor.Bu konu forum içerisinde 734 kez görüntülenmiş. ASP Kodları Bu konu hakkında google araması yapmak istiyorsanız ASP Kodları tıklayınız
Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı

Hizli Erisim





Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
Kibris 1974 yabancı dizi izle
KIBRIS , Asp Yazılımlar ASP Kodları