ASP Kod Arşivi

<% select case Hour(now)
case 1,2,3,4,5,24,23
Response.write("<h1>İyi geceler</h1>")
case 6,7,8,9,10,11,12
Response.write("<h1>İyi Sabahlar</h1>")
case 13,14,15,16
Response.write("<h1>İyi Öğlenler</h1>")
case else
Response.write("<h1>İyi Akşamlar</h1>")
end select %>

<% Session.Codepage=1254 %>

<%


satir = "50" [B][COLOR="YellowGreen"]'kac satır olsun[/COLOR][/B]
site = "12" [B][COLOR="yellowgreen"]'kayitli kac site var [/COLOR][/B]%>

<% for sira=1 to satir-site %>
<% =sira+site %> - Site Ekle<br>
<% next %>

<% 
[B][COLOR="YellowGreen"]' Veritabanına bağlanalım[/COLOR][/B]
set kon=server.createobject("addob.connection") 
conn.open= "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " & server.mappath ("db/data.mdb")
set rs=server.createobject("adodb.recordset")
sql = "select * from tablo"
conn.open sq,kon,3,3
%>

<% 
Function temizle(temizlik) 
temizlik=replaca(temizlik, ">" , "" ) 
temizlik=replaca(temizlik, "<" , "" ) 
temizlik=replaca(temizlik, "%" , "" ) 
temizlik=replaca(temizlik, "*" , "" ) 
temizlik=replaca(temizlik, "'" , "" ) 
temizle=temizlik 
End Function 
%>

<% 
ad=Trim(Request.Form("ad" )) 
ad=temizle(ad) 
%>

<%
'Eğer Application("hit") boş ise Application("hit") 'i sıfıra eşitliyoruz
If Application("hit") = "" Then
Application("hit") = 0
End If

'Application("hit") sayisini 1 arttırıyoruz
Application("hit") = Application("hit") + 1
%>

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

<% 
tarih1 = DateAdd('d',0,'"& Date &" ') 
tarih2 = DateAdd('d',5,'"& Date &" ') 
' veya 
' StrSql ; 
' Select * From tablo where tarih between #"& tarih1 &" # and #"& tarih2 &" #" 
' yada 
' Select * From tablo where tarih >#" & tarih1 &"# and tarih < #" & tarih2 & "#" 
%>

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

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

Login Asp İçin
<%
if request.querystring("login")="" then ' eğer sorgu cümlesi boş gelirse burayı göstersin
%>
<p align ="center">Lütfen Yönetici Şifrenizi Girin<br>
<form action="login.asp?login" method="Post">
<input type="password" name="sifre">
<br>
<input type="submit" value="Giriş">
</form>
<%
elseif request.querystring("login")="check" then 'eğer sorgu cümlesi check olarak gelirse burayı göstersin
sifre ="sifreniz" 'belirleyeceğiniz Yönetici şifresi
gelensifre=request.form("sifre") ' formdan gelen şifre

if gelensifre=sifre then 'eğer formdan gelecek şifre bizim şifremize eşitse yapılacak işlemler
session("admin")=true
session.timeout=20 'bu süre oturumun açık kalacağı süre değiştirilebilir
response.redirect "admin.asp" ' şifre doğruysa yönlencek sayfa
else 
response.redirect "login.asp" eğer şifre yanlışsa login sayfasına gitsin
end if
end if
%>

ve Şifreleyeceğiniz her sayfanın en üstüne ekliyceniz kod örnek. admin.asp için

<%
if session("admin")=false then
response.redirect "login.asp"
end if
%>

<% 
with response 
.write "www.siteniz.com <br>" 
.write " hehe : ) " 
End with 
%>

<% Server.Execute ("istenilen.asp" ) %>

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

<% 
Set Sur = Server.CreateObject("ADODB.Connection" ) 
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabanimiz.mdb" ) 
%> 
<% 
'Baglanti dosyamızı include ettigimize göre artık veritabanından bilgilerimizi alabiliriz 
Set rs = Server.CreateObject("ADODB.Recordset" ) 
sor = "Select * from tablo" 
frestons.Open sor,Sur,1,3 
' veritabanimizla baglantimizi kurduk.. 

rs("hit" ) = rs("hit" ) + 1 
rs.update 
%>

<table> 
<% 
theFinished = 0 
For theX=1 To RecordsetAdi.RecordCount %> 
<tr> 
<td><%Response.Write RecordsetAdi("Deger" ) %></td> 
<% 
RecordsetAdi.Movenext 
If RecordsetAdi.Eof Then 
TheFinished = 1 
Exit For 
End If 
%> 
<td><%Response.Write RecordsetAdi("Deger" ) %></td> 
</tr> 
<% 
RecordsetAdi.Movenext 
If RecordsetAdi.Eof Then 
TheFinished = 1 
Exit For 
End If 
Next 
If TheFinished = 1 Then Response.Write "</tr>" %> 
</table>

<%
dim parola
parola = "Sifreniz"
if session("administrator") <> parola then
if request.form("administrator") <> parola then
call parolaform
else
session("administrator") = parola
end if
end if
%>
<%
sub parolaform
aynen = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")
%><head>


<title>Giris....</title>
</head>

<p align="center"><b>Administrator Olmadan Buralarda Gezemezsiniz... :D</b>


<form method=post action="<%=aynen%>">
<p align="center">
<input type="password" name="administrator" value="" size="20" class="form">
<br>
<input type="submit" value="hade..." class="form">
</form>

<%
response.end
end sub
%>