ASP Hazır Kodlar!

Siyabend

Asptear ile havadurumu

<%
adres = "http://www.meteor.gov.tr/pages/sonhavat.htm"

On Error Resume Next
Set Tear = Server.CreateObject("Softwing.AspTear" )
strVeri = Tear.Retrieve(adres,2, "" ,"" ,"" )

If Err <> 0 Then
Response.Write "Bir hata oluştu, açıklaması: " & Err.Description
Response.End
End If

tahminler = InStr(1,strVeri,"SICAKLIKLARI DA SOYLE OLACAK" )
strHavadurumu = Mid(strVeri,tahminler+38,150)
%>

<%=Date() %> tarihli Hava Tahmini şöyledir:

<%=strHavadurumu %>

Siyabend

Basit bir sayaç

<%
'Eğer Application("hit") bos ise Application("hit") 'i sifira esitliyoruz
If Application("hit") = "" Then
Application("hit") = 0
End If

'Application("hit") sayisini 1 arttiriyoruz
Application("hit") = Application("hit") + 1
%>

<%= Application("hit") %> Ziyaretçi..

Siyabend

Bugün seçili gün/ay/yil combobox kutulari

Uygulamalarinizda tarih seçerken varsayilan olarak bugünün ayarli oldugu seçim kutulari kullanmak isterseniz
----------------------------------------------------
<%
rfdate=date
rfday=day (rfdate)
rfmonth= month (rfdate)
rfyear= year (rfdate)
response.write rfdate
%>

GÜN	AY	YIL

Siyabend

Cdonts mail bileseni mail yollama

<%
'Created By MTDesign - Üye olmadığınız için bu linki göremiyorsunuz. Üye olmak için Tıklayınız.
'CDONTS MAIL SENDER

RESPONSE.BUFFER = TRUE

Dim objCDOMail
Dim strFrom, strTo
Dim strBody, strSubject

strFrom = Request.form("from")
strTo = request.form("to")
strBody = request.form("body")
strSubject = request.form("subject")

Set objCDOMail = Server.createobject("CDONTS.NewMail")
objCDOMail.From = str.From
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.MailFormat = 0 '(0:Text, 1:HTML, 2:Close HTML)
objCDOMail.BodyFormat = 0
objCDOMail.Body = strBody
objCDOMail.Importance = 1 '(1:Slow , 2:Normal, 3:Fast)
objCDOMail.Send
Set objCDOMail = nothing
%>

Siyabend

Database'de bu veri girilmis mi?

Bunu çoğunlukla üyelik sistemlerinde kullanabilirsiniz. Böylece aynı kullanıcı adına sahip bi kaç üye gibi bi sorun ortaya çıkmaz. Kod örneği aşağıdadır.
--------------------
..
..
..
set rset = Server.CreateObject("ADODB.RecordSet")
sql_rset ="Select * FROM tablomuz where kullaniciadi='"&Request("kullaniciadi")&"'"
rset.open sql_rset,conn,1,3
On Error Resume Next 'BU SATIR COK ONEMLI CUNKI EGER DAHA
'ONCEDEN BOYLE BIR KULLANICI GIRILMEMISSE
'DBDEKI ALANDA KULLANICI ADINI BULAMADIGINDAN
'HATA VERECEK BIZ BU HATA DURUMUNDA
'AKISIN DEVAMINI SAGLIYORUZ

If rset("kullaniciadi") = "" Then
Response.Write("Bu kullanıcı adı daha önceden alınmamış.")
Else
Response.Write("Bu kullanıcı adı bir başka üye tarafından kullanılıyor. Lütfen başka bir kullanıcı adı seçiniz.")
End If
..
..
..

Siyabend

Database'den veri alma süresini hesaplama

<%
Dim Conn,RS,SQL,DSN

DSN = "DBQ=" & Server.Mappath("benchmark.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set RS = Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")

Response.Write "Baslama: " & Hour(Now()) & ":" & Minute(Now()) & ":" & Second(Now()) & "
"

Conn.Open DSN
SQL = "SELECT * FROM table"
RS.Open SQL,Conn,1,2
Do While Not RS.EOF
i = i +1
RS.MoveNext
Loop

Response.Write "Bitme: " & Hour(Now()) & ":" & Minute(Now()) & ":" & Second(Now()) & "
"
Response.Write i & " kayit bulundu."
%>

Siyabend

Databaseden Excele aktarma

<%@ 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 ""
act.WriteLine ""
act.WriteLine " "
act.WriteLine ""
act.WriteLine ""
act.WriteLine ""
act.WriteLine ""
For i = 0 To iCols - 1
act.WriteLine ""
next
act.WriteLine ""
rs.MoveFirst
i=0
do until rs.EOF
act.WriteLine ""
For i = 0 To iCols - 1
act.WriteLine ""
next
act.WriteLine ""
rs.MoveNext
loop
act.WriteLine "

" act.WriteLine ""&cstr(rs.Fields.Item(i).Name&"") act.WriteLine "
" if rs.Fields.Item(i)<>"" then act.WriteLine ""&cstr(rs.Fields.Item(i))&"" end if act.WriteLine "

"
act.WriteLine ""
act.WriteLine ""
' close the document
act.close
rs.Close
end function
%>

Siyabend

Domain sorgulama

Domainin kullanimda olup olmadigini sorgulayan kod örnegi
---------------------------------------------------
<%
If request.form("domain")<>"" then
GotothisURL = "http://www." & request.form("domain")

Set GetConnection = CreateObject("Microsoft.XMLHTTP")

GetConnection.Open "get", GotothisURL, False
on error resume next
GetConnection.Send

ResponsePage = GetConnection.getResponseHeader("Date")

if ResponsePage="" then
Response.write("Domain kullanımda değil")
else
Response.write("Domain alınmış(kullanımda)")
end if

Set GetConnection = Nothing

else
%>

<% end if %>

Siyabend

döviz kuru almak (TCMB)

<%
Public Function VeriAl(strGelen)
Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" )
objVeriAl.Open "GET" , strGelen, FALSE
objVeriAl.sEnd
VeriAl = objVeriAl.Responsetext
SET objVeriAl = Nothing
End Function

strAdres = "http://www.tcmb.gov.tr/kurlar/today.html"
strVeri = VeriAL(strAdres)
iDolar=InStr(strVeri,"USD" )
strDolarAlis=Mid(strVeri,iDolar+39,10)
strDolarSatis=Mid(strVeri,iDolar+52,10)

iEuro=InStr(strVeri,"EUR" )

strEuroAlis=Mid(strVeri,iEuro+39,11) 'alis
strEuroSatis=Mid(strVeri,iEuro+52,11) 'satis
%>

Döviz kurlarının görünmesini istediğiniz yere aşağıdaki kodları yazın.

<%=strdolarsatis%>
<%=streurosatis%>

Siyabend

En son 10 kayit

<%
'Veritabanına bağlanıyoruz.
set conn=server.createobject("adodb.connection")
conn.open= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath ("db/database.mdb")
'Şimdi Kayıt nesnemizi oluşturuyoruz.
Set rs=server.createobject("adodb.recordset")
'şimdi sql ile sorgu oluşturuyoruz.
sql="select * from tablo where kayit_tarih desc"
'şimdi kayıt nesnemiz olan rs ile tabloyu açtırıyoruz
rs.open sql,conn,1,3
%>
<%
' Şimdi ise sql sorgusu ile aldığımız kayıtların sadece 10 tanesini gösterecek bir döngü yaratıyoruz
for i=1 to 10
%>
<%= rs("kayit_tarih")%> <%= rs("kayit")%>
<% rs.movenext %>
<% next %>

PHP Hazır Kodlar	Webmaster	Siyabend
JAVA Hazır Kodlar	Webmaster	Siyabend
"ABD'nin İran'a saldırı planları hazır"	Gündem & Haberler	Siyabend
`Barışı korumanın en iyi yolu savaşa hazır olmaktır`	Anketler & Testler	Siyabend
Güzel Bir Hatunun Öpücüğüne Hazır Olun	Kaçıkların Mekanı	Siyabend

ASP Hazır Kodlar!

Kimler çevrimiçi