ErrorPage = “/hata.asp”

Function CheckStringForSQL(str)
On Error Resume Next

Dim lstr

‘ Eğer string boş ise doğru olarak geri dönder
If ( IsEmpty(str) ) Then
CheckStringForSQL = false
Exit Function
ElseIf ( StrComp(str, “”) = 0 ) Then
CheckStringForSQL = false
Exit Function
End If

lstr = LCase(str)

‘ black list kontrol

For Each s in BlackList

If ( InStr (lstr, s) <> 0 ) Then
CheckStringForSQL = true
Exit Function
End If

Next

CheckStringForSQL = false

End Function

‘ Form verilerini blacklistten geçiriyoruz

For Each s in Request.Form
If ( CheckStringForSQL(Request.Form(s)) ) Then

‘ Redirect to an error page
Response.Redirect(ErrorPage)

End If
Next

‘ Query String değerlerini kontrol etmek için aşağıdaki kodu sayfanızın en üstünde kullanın

For Each s in Request.QueryString
If ( CheckStringForSQL(Request.QueryString(s)) ) Then

‘ hata sayfasına yönlendiriyoruz
Response.Redirect(ErrorPage)

End If

Next
”””””””””

Şimdi hata.asp yi yazalım. Basit bir şey yazacağız. Siz kendinize göre değiştirirsiniz.

hata.asp

<%

Response.Write “<center>Bir hata oluştu. <center>”

%>

<%
Function KelimeSayisi(cumle)
Dim Temp

Temp = Replace(cumle, vbTab, ” “)
Temp = Replace(Temp, vbCr, ” “)
Temp = Replace(Temp, vbLf, ” “)

Temp = Trim(Temp)

Do While InStr(1, Temp, “  “, 1) <> 0
Temp = Replace(Temp, “  “, ” “)
Loop

KelimeSayisi = UBound(Split(Temp, ” “, -1, 1)) + 1
End Function

%>

Örnek ;

<%

dim cumlemiz

cumlemiz = “İnsan, diğer insanlardan hiçbir şey istememeye, onlara hep vermeye alıştığı zaman, elinde olmadan soylu davranır.”

Response.Write KelimeSayisi(cumlemiz)   ‘ ekrana 15 yazacaktır

%>

Örnek uygulama:  http://www.sozcukcevir.com/metin-ceviri.asp

Bu arada karakter sayısını Len(cumle) şeklinde alabildiğimizi hatırlayalım.

<%function sehirler(byval xid)
Select Case xid
Case 1
sehirler=”Adana”
Case 2
sehirler=”Adıyaman”
Case 3
sehirler=”Afyon”
Case 4
sehirler=”Ağrı”
Case 5
sehirler=”Amasya”
Case 6
sehirler=”Ankara”
Case 7
sehirler=”Antalya”
Case 8
sehirler=”Artvin”
Case 9
sehirler=”Aydın”
Case 10
sehirler=”Balıkesir”
Case 11
sehirler=”Bilecik”
Case 12
sehirler=”Bingöl”
Case 13
sehirler=”Bitlis”
Case 14
sehirler=”Bolu”
Case 15
sehirler=”Burdur”
Case 16
sehirler=”Bursa”
Case 17
sehirler=”Çanakkale”
Case 18
sehirler=”Çankırı”
Case 19
sehirler=”Çorum”
Case 20
sehirler=”Denizli”
Case 21
sehirler=”Diyarbakır”
Case 22
sehirler=”Edirne”
Case 23
sehirler=”Elazığ”
Case 24
sehirler=”Erzincan”
Case 25
sehirler=”Erzurum”
Case 26
sehirler=”Eskişehir”
Case 27
sehirler=”Gaziantep”
Case 28
sehirler=”Giresun”
Case 29
sehirler=”Gümüşhane”
Case 30
sehirler=”Hakkari”
Case 31
sehirler=”Hatay”
Case 32
sehirler=”Isparta”
Case 33
sehirler=”İçel”
Case 34
sehirler=”İstanbul”
Case 35
sehirler=”İzmir”
Case 36
sehirler=”Kars”
Case 37
sehirler=”Kastamonu”
Case 38
sehirler=”Kayseri”
Case 39
sehirler=”Kırklareli”
Case 40
sehirler=”Kırşehir”
Case 41
sehirler=”Kocaeli”
Case 42
sehirler=”Konya”
Case 43
sehirler=”Kütahya”
Case 44
sehirler=”Malatya”
Case 45
sehirler=”Manisa”
Case 46
sehirler=”Maraş”
Case 47
sehirler=”Mardin”
Case 48
sehirler=”Muğla”
Case 49
sehirler=”Muş”
Case 50
sehirler=”Nevşehir”
Case 51
sehirler=”Niğde”
Case 52
sehirler=”Ordu”
Case 53
sehirler=”Rize”
Case 54
sehirler=”Sakarya”
Case 55
sehirler=”Samsun”
Case 56
sehirler=”Siirt”
Case 57
sehirler=”Sinop”
Case 58
sehirler=”Sivas”
Case 59
sehirler=”Tekirdağ”
Case 60
sehirler=”Tokat”
Case 61
sehirler=”Trabzon”
Case 62
sehirler=”Tunceli”
Case 63
sehirler=”Urfa”
Case 64
sehirler=”Uşak”
Case 65
sehirler=”Van”
Case 66
sehirler=”Yozgat”
Case 67
sehirler=”Zonguldak”
Case 68
sehirler=”Aksaray”
Case 69
sehirler=”Bayburt”
Case 70
sehirler=”Karaman”
Case 71
sehirler=”Kırıkkale”
Case 72
sehirler=”Batman”
Case 73
sehirler=”Şırnak”
Case 74
sehirler=”Bartın”
Case 75
sehirler=”Ardahan”
Case 76
sehirler=”Iğdır”
Case 77
sehirler=”Yalova”
Case 78
sehirler=”Karabük”
Case 79
sehirler=”Kilis”
Case 80
sehirler=”Osmaniye”
Case 81
sehirler=”Düzce”
case else
sehirler=”Böyle bir il yok!!”
end select
end function

%>

Unutmadan bu fonksiyonun başka yöntemleri de mevcuttur. Örneğin veritabanına plaka kodları ile illeri kaydettikten sonra, bilgileri burdan da alabiliriz. Çok fazla veritabanı kullanmak istemeyenler için yukarıdaki fonksiyon tabiki daha uygun.

aspkodlari.com

<%

‘BİLGİLER
db=”(local)”;  ‘IP adresi de olabilir
veritabaniadi=”AspKodlariComDb”
kullaniciadi=”AspKodlari”
sifre= “aspkodlariSifresi”

‘VERİTABANINA BAĞLANALIM
Conn = “Provider=SQLOLEDB.1;Password=”&sifre&”;Persist Security Info=True;User ID=”&kullaniciadi&”;Initial Catalog=”&veritabaniadi&”;Data Source=”&db&”;”
Set mycon=server.createobject(“ADODB.Connection”)
Mycon.Open Conn

‘VERİLER
isim=”AspKodlariCom”;
detay=”ASP hakkında herşey”;

‘YENİ VERİ EKLEME
Set RS = Server.CreateObject(“ADODB.RecordSet”)
sql=”insert into Tablo (siteadi, aciklama) values (“&’isim&”‘,’”&detay&”‘)”
RS.Open sql,conn,0,1,&H0001

‘VERİLERİ GÖSTERME
Set RS = Server.CreateObject(“ADODB.RecordSet”)
sql=”select * from Tablo”;
RS.Open sql,conn,0,1,&H0001
do while not RS.eof
Response.Write “Site Adı” & RS.fields(“siteadi”)
Response.Write “Detay” & RS.fields(“aciklama”)
RS.MoveNext

loop

‘VERİ SİLME
sql=”delete from Tablo where isim=’AspKodlariCom’”
set rs = conn.execute(sql)

‘KAYIT GÜNCELLEME
Set RS = Server.CreateObject(“ADODB.RecordSet”)
sql=”update Tablo set isim=’AspKodlariCom’, aciklama=’ASP bilgileri’ where isim=’AspKodlariCom’ ”
set rs = conn.execute(sql)

‘KAYIT KÜMESİNİ (RECORD SET-RS) KAPATMA VE BAĞLANTIYI KESME
set RS = Nothing
conn.Close
set conn = Nothing

%>

adres satırındaki url : aspkodlari.com/default.asp?id=10

<%

xid=Request.QueryString(“id”)

if IsNumeric(xid) then

Response.Write (“Id değeri bir sayı!”)

else

Response.Write (“Id değeri sayı değil!”)

end if

%>

Adres satırından gelen url içindeki Id değeri hem karekter hem de rakamlardan oluştuğunu varsayalım. Örnek url:

aspkodlari.com/default.asp?id=ab198rcgbdp4asc

şeklinde olsun. Aşağıdaki fonksiyon ile 1984 sayısını alacağız. Bu fonksiyon içinde mid ve instr komutlarını kullanacağız.

<%

xid=Request.QueryString(“id”)

Response.Write NumberControl(xid)

%>

<%
function NumberControl(byval comein)
dim gecerliKarakterler
dim input
dim temp
temp=”"
gecerliKarakterler=”0123456789″
input=comein
if len(input)>0 then
for i=1 to len(input)
harf = mid(input,i,1)
if instr(gecerliKarakterler,harf)>0 then
temp=temp & harf
end if
next
end if
NumberControl=temp
end function
%>

Çıktı: 1984 olacaktır.

Fonksyon içinde Instr ile gelen karekterin, belirlediğimiz karekterler içinde olup olmadığını kontrol ettik. Mid ile ise gelen string içindeki karekterleri teker teker aldık.

İngilizce Türkçe karışık bir fonksiyon oldu , idare edin.

Aşağıdaki sitemap örneği, bir şarkı sözleri sitesi için yaptığım sitemap.xml dosyasıdır.  Xml dosyasında asp kodlarını nasıl çalıştıracağız dediğiniz duyar gibiyim. Bunun için IIS ayarlarında aşağıdaki gibi işlemleri yapıyoruz.  IIS – Home Directory – Configuration – Add >

Executable: C:\WINDOWS\system32\inetsrv\asp.dll

Extension: .xml

Xml dosyası içinde asp kodları çalıştırma 1

Xml dosyası içinde asp kodları çalıştırma 2

Ok butonuna bastıktan sonra, sitemizde xml sayfaları asp sayfası gibi kodları çalıştıracaktır. Ve sitemap.xml içine aşağıdaki kodları yazarak kaydediyoruz.

<%dim SQL
dim Myset1
dim Mycon1
dim Temp

adoopen_connection mycon1
sql=”SELECT * from Sarkilar order by stranid”
adoopen_fwdonly myset1,sql,mycon1
temp=”"
temp= temp & “<?xml version=”"1.0″” encoding=”"UTF-8″”?>”
temp= temp & “<urlset xmlns=”"http://www.sitemaps.org/schemas/sitemap/0.9″”>”
do while not myset1.eof
temp= temp & “<url>”
temp= temp & ” <loc>” & myset1.fields(“sarki_sayfasi”) & “</loc>”
temp= temp & “<lastmod>myset1.fields(“tarih”) </lastmod> <changefreq>weekly</changefreq>”
temp= temp & “<priority>0.8</priority>”
temp= temp & “</url>”
myset1.movenext
loop
temp= temp & “</urlset>”
adoclose_rset myset1
adoclose_connection mycon1
Response.Write temp %>

aspkodlari.com

Fonksiyon aşağıda. Fonksiyon “<” ile “>” arasındaki kodları temizlemektedir. Bunun için instr,left ve mid hazır fonksiyonlarını kullanıyoruz. Başlangıç “<” karekterinin konumu, bitiş “>” karekterinin konumu şeklinde alınıyor.
<%
Function HtmlAyikla( strText )
Dim nPos1
Dim nPos2

nPos1 = InStr(strText, “<”) Do While nPos1 > 0
nPos2 = InStr(nPos1 + 1, strText, “>”)
If nPos2 > 0 Then
strText = Left(strText, nPos1 – 1) & Mid(strText, nPos2 + 1)
Else
Exit Do
End If
nPos1 = InStr(strText, “<”) Loop HtmlAyikla= strText End Function %>

aspkodlari.com

Öncelikle bize gerekli olan aspkodlari_country.rar nesnesini indiriyoruz ve C sürücüsü altına çıkartıyoruz. (C: Sistemin kurulu olduğu sürücü yolu). Daha sonra Başlat – Donatılar – Çalıştır’ı açıp, aşağıdaki kodu girip çalıştırıyoruz.

C:\> regsvr32 ip2location.dll

Bu şekilde dll dosyamızı yüklemiş olduk.

<%
Response.Write (“Ülke kodu: ” &wherecoming())
If wherecoming() = “TR” Then
Response.Write (“Türkiye’den giriş yapıltınız. Yönlendiriliyorsunuz…”)
Respose.Redirect (“/turkce.asp”)
elseif wherecoming() = “EN” then
Response.Write (“You are logged in from England. Redirecting…”)
Respose.Redirect (“/english.asp”)
end if

%>
<%
function wherecoming()

‘ server taraflı nesne yaratılıyor
Set ipObj = Server.CreateObject(“IP2Location.Country”)

‘Ziyaretçinin ip adresini alalım
ip_adresi = Request.ServerVariables(“REMOTE_ADDR”)

‘Ip adresi ile ziyaretçinin bulunduğu ülke tespit ediliyor
CountryName = ipObj.LookUpShortName(ip_adresi)

Set ipObj = nothing

wherecoming=CountryName

end function

%>