|
|
Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz..
Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
ASP : Fonksiyonlar.
- Konbuyu başlatan KerneL32
- Başlangıç tarihi
-
- Etiketler
- asp fonksiyonlar
strAscii(X) : Ascii karakter kontrolu.
Kullanim :
<%
yazi = Request.Form("yazi")
If strAscii(yazi) = False Then
Response.write "ascii karakter kullandiniz."
Else
Response.write "ascii karakter icermiyor."
End If
%>
Aciklama :
Formdan aldiginiz bir textbox icindeki yaziyi, querystring ile aldiginiz bir yaziyi, db den cektiginiz bir yaziyi kontrol etme ihtiyaci hissettiginiz her alanda kullanabilirsiniz. Bu fonksiyon ile kullanilmasini istemediginiz karakterleri belirterek kullandirmayabilirsiniz.
Saygilar.
Kod:
Function strAscii(X)
arrChar = Array("ğ" ,"ü" ,"ş" ,"ö" ,"ç" ,"ı" ,"Ğ" ,"Ş" ,"İ" ,"Ç" ,"Ü" ,"Ö" ,"," ,"/" ,"*" ,"\" ,"(" ,")" ,"%" ,"+" ,"^" ,"#" ,"!" ,"'" ,"[" ,"]" ,"{" ,"}" ,"?" ,"=" ,"&" ,"$" ,":" ,"<" ,">" ,"|" ,"`" ,"@" ,";" ,"~" ,"‘" ,"’" ,"¢" ,"£" ,"¤" ,"¥" ,"¦" ,"§" ,"¨" ,"©" ,"ª" ,"«" ,"»" ,"¬" ,"®" ,"¯" ,"°" ,"±" ,"²" ,"³" ,"´" ,"µ" ,"¶" ,"·" ,"¸" ,"¹" ,"º" ,"¼" ,"½" ,"¾" ,"¿" ,"À" ,"Á" ,"Â" ,"Ã" ,"Ä" ,"Å" ,"Æ" ,"È" ,"É" ,"Ê" ,"Ë" ,"Ì" ,"Í" ,"Î" ,"Ï" ,"Ñ" ,"Ò" ,"Ó" ,"Ô" ,"Õ" ,"×" ,"Ø" ,"Ù" ,"Ú" ,"Û" ,"İ" ,"ß" ,"à" ,"á" ,"â" ,"ã" ,"ä" ,"å" ,"æ" ,"è" ,"é" ,"ê" ,"ë" ,"ì" ,"í" ,"î" ,"ï" ,"ñ" ,"ò" ,"ó" ,"ô" ,"õ" ,"÷" ,"ø" ,"ù" ,"ú" ,"û" ,"ı" ,"ÿ" ," " ,"""", "'")
for i = 1 to UBound(arrChar)
If inStr(X, arrChar(i)) <> 0 Then
strAscii = False
Exit For
Else
strAscii = True
End If
Next
End FunctionKullanim :
<%
yazi = Request.Form("yazi")
If strAscii(yazi) = False Then
Response.write "ascii karakter kullandiniz."
Else
Response.write "ascii karakter icermiyor."
End If
%>
Aciklama :
Formdan aldiginiz bir textbox icindeki yaziyi, querystring ile aldiginiz bir yaziyi, db den cektiginiz bir yaziyi kontrol etme ihtiyaci hissettiginiz her alanda kullanabilirsiniz. Bu fonksiyon ile kullanilmasini istemediginiz karakterleri belirterek kullandirmayabilirsiniz.
Saygilar.
strEmpty : Bos dolu kontrolu
Kullanim :
<%
yazi = Request.Form("yazi")
If strEmpty(X) = True
Response.write "aldigin form nesnesi bos."
Else
Response.write "aldigin form nesnesi dolu."
End If
%>
Aciklama :
Basit bir fonksiyon olmasi ile beraber bazilarinin aklinda neden hem x = "" hem isNull isEmpty kullandin sorusu olusacaktir. Bazen yazdigimiz kodlarda x = "" kullandigimiz halde ve nesne bos oldugu halde dolu gibi gozukuyor ve suzgece takilmiyor. Kodlarda hata olmamasina ragmen bu cokca insani cileden cikartabiliyor. Bende hepsini kullanarak birine takilmazsa digerine digerine takilmazsa otekine mantigi ile hareket ettim. Umarim isinize yarar.
Saygilar.
Kod:
Function strEmpty(X)
If X = "" or isNull(X) = True or isEmpty(X) = True Then
strEmpty = True
Else
strEmpty = False
End If
End FunctionKullanim :
<%
yazi = Request.Form("yazi")
If strEmpty(X) = True
Response.write "aldigin form nesnesi bos."
Else
Response.write "aldigin form nesnesi dolu."
End If
%>
Aciklama :
Basit bir fonksiyon olmasi ile beraber bazilarinin aklinda neden hem x = "" hem isNull isEmpty kullandin sorusu olusacaktir. Bazen yazdigimiz kodlarda x = "" kullandigimiz halde ve nesne bos oldugu halde dolu gibi gozukuyor ve suzgece takilmiyor. Kodlarda hata olmamasina ragmen bu cokca insani cileden cikartabiliyor. Bende hepsini kullanarak birine takilmazsa digerine digerine takilmazsa otekine mantigi ile hareket ettim. Umarim isinize yarar.
Saygilar.
strNumeric(X) : Veri numerik mi degil mi ?
Kullanim :
<%
veri = Request("veri")
If strNumeric(X) = False Then
Response.write "gelen veri sayisal degil"
Else
Response.write "gelen veri sayisal."
End If
%>
Aciklama :
Direk kullanabiliyor olmamiza ragmen aklima gelmisken bunu da fonksiyona dokmek istedim. Gelen verinin sayisal bir deger olup olmadigini kontrol eder.
Saygilar.
Kod:
Function strNumeric(X)
if isNull(X) = False Then
If isNumeric(X) = False Then
strNumeric = False
Else
strNumeric = True
End If
Else
strNumeric = False
End If
End FunctionKullanim :
<%
veri = Request("veri")
If strNumeric(X) = False Then
Response.write "gelen veri sayisal degil"
Else
Response.write "gelen veri sayisal."
End If
%>
Aciklama :
Direk kullanabiliyor olmamiza ragmen aklima gelmisken bunu da fonksiyona dokmek istedim. Gelen verinin sayisal bir deger olup olmadigini kontrol eder.
Saygilar.
strDomainsBan(X) : Istemedigimiz domainleri banlayalim.
Kullanim :
<%
email = Request.Form("email")
If strDomainsBan(email) = False Then
Response.write "yasakli bir domaine ait eposta kullandin."
Else
Response.write "epostan banli bir domaine ait degil. gece bilirsin."
End If
%>
Aciklama :
Gelen veride veya gelen eposta adresinde yasakladigimiz bir eposta adresi var mi yok mu bunu kontrol ediyoruz. Bazen bazi sitelerde "@mynet.com gibi eposta adreslerinin kullanimi yasak." gibi bilgiler goruruz. Bu mantik ile yapiliyor. Ileri de verecegim fonksiyonlar da tamamen eposta kontrolu yapan fonksiyonda daha iyi anlayabileceksiniz.
Saygilar.
Kod:
Function strDomainsBan(X)
arrChar = Array("@mynet.com", "@mail.com", "@a.com" ,"@b.com", "@c.com")
If isNull(X) = False Then
for i = 1 to UBound(arrChar)
If inStr(X, arrChar(i)) <> 0 Then
strDomainsBan = False
Exit For
Else
strDomainsBan = True
End If
Next
Else
strDomainsBan = False
End If
End FunctionKullanim :
<%
email = Request.Form("email")
If strDomainsBan(email) = False Then
Response.write "yasakli bir domaine ait eposta kullandin."
Else
Response.write "epostan banli bir domaine ait degil. gece bilirsin."
End If
%>
Aciklama :
Gelen veride veya gelen eposta adresinde yasakladigimiz bir eposta adresi var mi yok mu bunu kontrol ediyoruz. Bazen bazi sitelerde "@mynet.com gibi eposta adreslerinin kullanimi yasak." gibi bilgiler goruruz. Bu mantik ile yapiliyor. Ileri de verecegim fonksiyonlar da tamamen eposta kontrolu yapan fonksiyonda daha iyi anlayabileceksiniz.
Saygilar.