ASP Hazır Kodlar!

Siyabend

Sayfa yuklenme süresi

<%
'
Dim SatirBaslangicZamani
SatirBaslangicZamani = Timer
Response.Write "Baslangic Zamani: " & SatirBaslangicZamani

Dim SatirBitisZamani
SatirBitisZamani = Timer
Response.Write "Bitis Zamani: " & SatirBitisZamani
'Burada sayfanin talep edilme ile yorumlanma zamanini agzimizla yakaladik.. :)
Dim Hesap
Hesap = FormatNumber(SatirBitisZamani - SatirBaslangicZamani, 4) 'Burada yorumlanma suresinden talep edlme zamanini cikariyoruz..
Response.Write "Bu Sayfa [" & Hesap & "] saniyede yuklendi..." 'Cikan sonucu yaziyoruz..
%>

Siyabend

sayfalama yapmak

New Page 1

<%
set data=server.createobject("adodb.connection")
set rst6=server.createobject("adodb.recordset")
data.Open "Provider=SQLOLEDB.1;Password=4671547;Persist Security Info=True;User ID=web;Initial Catalog=TICONA2005;Data Source=ramazan"
rst6.open "select * from TBLSTSABIT order by STOK_KODU ",data,3,3
deste=15
Sayfa=rst6.recordcount/deste
sayi=request("S")
Liste=sayi * deste
if sayi=>2 then
for i= 0 to Liste-15
if i=rst6.recordcount then
exit for
end if
rst6.movenext
next
else
end if
%>

<%
if sayi=1 then
liste=1
end if
%>
<%
for i= liste to liste+Deste%>

<%
if i=rst6.recordcount then
exit for
end if
rst6.movenext
next
%>

<%=rst6.fields("STOK_KODU")%>--<%=rst6.fields("STOK_ADI")%>

<%for i=1 to Sayfa%><%next%>

><%=i%>

Siyabend

Sayfayi yenile

<%if Request.QueryString ("refresh")<>1 then%>

<%end if%>

Siyabend

Sifre korumali giris

<%
logstatus=request.QueryString("logadm")
if logstatus="true" then
session("user_admin")=""
session.Contents.RemoveAll()
session.Abandon()
'response.Redirect("Cikistamamlaninca yonlenecek sayfa")
end if

action=request.form("action")
if action="login" then
kullanici=trim(request.Form("kullanici"))
sifre=trim(request.Form("sifre"))

if kullanici="yahya" AND sifre="yahya" then

session.Timeout=180
session("user_admin")="admin"
response.Redirect("giristamam.asp")
else
error_msg="Yanlış kullanıcı veya şifre"
end if

end if
%>

Admin giris

Siyabend

Sitenizdeki aktif kullanicilar

Aktif kullanicilar - global.asa
--------------------------------------------------

Siyabend

Sql server connect

<%

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") & "
")
RS.MoveNext
Next

RS.Close
Set RS = Nothing

Bag.Close
Set Bag = Nothing

%>

Siyabend

Türkiye'yle saat farkini kullaniciya yansitmamak için

Kullandigimiz serverlarin genelinin abd saatine göre ayarlanmasi sitelerimizde saat bildirmede problem çikartabiliyor. iste bu problemi çözmek için bir yöntem de asagidaki fonksiyondur
------------------------------------------------------
function TRSaat(saat)
SaatFarki = 7
'Burada örnek olarak serverımızın ABD saatine göre ayarlandığını varsayalım.
TRSaat = DateAdd("h", SaatFarki, saat)
end function

'Örneğin saat farkı 7,5 saat ise fonksiyonumuzu şöyle yazabilirsiniz:

function TRSaatK(saat)
SaatFarki = 7
DakikaFarki = 30

TurkiyeSaati = DateAdd("h", SaatFarki, saat)
TRSaat = DateAdd("m", DakikaFarki, TurkiyeSaati)
end function

'Fonksiyonu sayfanızda istediğiniz yerde çağırarak kullanabilirsiniz.
'Örneğin Ülkemize göre saat ve tarihi yazdırmak için;
' response.write TRSaat(Now())
'yazabilirsiniz.
'
'Bir başka örnek olarak ülkemize göre sadece saati yazdırmak için;
' response.write Hour(TRSaat(Now())) & ":" & Minute(TRSaat(Now()))
'yazabilirsiniz.

Siyabend

xml den hava durumu alma (weatherroom.com)

<%@ Language=VBScript %>
<%
Response.ContentType = "text/html"
Response.CharSet = "ISO-8859-9"
%>
<%
Dim XmlHTTP, SourceFile, objDOM, objChild, I
SourceFile = "http://www.weatherroom.com/xml/loc/LTAU"
Set XmlHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP" )
XmlHTTP.Open "GET" , SourceFile, false
XmlHTTP.SEnd

Set objDOM = Server.CreateObject("MSXML2.DomDocument" )
objDOM.async = False
objDOM.loadXML(XmlHTTP.ResponseText)
%>
<% For I = 1 To 12 %>
<%
NodeName = objDOM.documentElement.childNodes(I).NodeName
Text = objDOM.documentElement.childNodes(I).Text
%>

Siyabend

Zamana göre selamlama

<% select case Hour(now)
case 1,2,3,4,5,24,23
Response.write("

İyi geceler

")
case 6,7,8,9,10,11,12
Response.write("

İyi Sabahlar

")
case 13,14,15,16
Response.write("

İyi Öğlenler

")
case else
Response.write("

İyi Akşamlar

")
end select %>

Siyabend

Zararli kod temizleme

Örneğin form alanlarına girilen zaralı kodlar sitemizin çökmesine neden olabilir. Bunun için önlem almak gerekmektedir.
----------------------------------------------

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

Daha sonra bu kodu aşağıdaki gibi kullanabiliriz.
Örneğin ad adında bir değişkenimiz olsun.

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

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