Arkadaslar elinde gelenveri = Replace(gelenveri ,Chr(199),"Ç",1,-1,0)
function olan var mi ? komple tüm türkce karakterlerin büyük kücük karfine göre cevirecek. ?
Misal bendeki söyle ama yanlis ;büyügüde kücügüde ayni yapiyor ?
gelenveri = Replace(gelenveri ,Chr(208),"g",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(240),"g",1,-1,0)
Ben kendi kullandığım fonksiyon dosyamı paylaşayım. İşinin görebilir. Lazım olabilecek bir çok fonksiyon var.
<%
Function LOGINKT(veri) ' Login için özel karakter temizleme
If veri = "" Then Exit Function
'// Zararlı Kodlar Burada Ayıklanıyor
veri = Replace(veri, "<", "<")
veri = Replace(veri, ">", ">")
veri = Replace(veri, "[", "[")
veri = Replace(veri, "]", "]")
veri = Replace(veri, """", "", 1, -1, 1)
veri = Replace(veri, "=", "=", 1, -1, 1)
veri = Replace(veri, "'", "''", 1, -1, 1)
veri = Replace(veri, "select", "select", 1, -1, 1)
veri = Replace(veri, "join", "join", 1, -1, 1)
veri = Replace(veri, "union", "union", 1, -1, 1)
veri = Replace(veri, "where", "where", 1, -1, 1)
veri = Replace(veri, "insert", "insert", 1, -1, 1)
veri = Replace(veri, "delete", "delete", 1, -1, 1)
veri = Replace(veri, "update", "update", 1, -1, 1)
veri = Replace(veri, "like", "like", 1, -1, 1)
veri = Replace(veri, "drop", "drop", 1, -1, 1)
veri = Replace(veri, "create", "create", 1, -1, 1)
veri = Replace(veri, "modify", "modify", 1, -1, 1)
veri = Replace(veri, "rename", "rename", 1, -1, 1)
veri = Replace(veri, "alter", "alter", 1, -1, 1)
veri = Replace(veri, "cast", "cast", 1, -1, 1)
LOGINKT = veri
End Function
Function KT(veri) ' Genel amaçlı özel karakter temizleme
If veri = "" Then Exit Function
'veri = Replace(veri, "<", "<")
'veri = Replace(veri, ">", ">")
veri = Replace(veri, "[", "[")
veri = Replace(veri, "]", "]")
'veri = Replace(veri, "'", "")
veri = Replace(veri, "'", "`")
'veri = Replace(veri, """", "", 1, -1, 1)
veri = Replace(veri, "=", "=", 1, -1, 1)
'veri = Replace(veri, "'", chr(34), 1, -1, 1)
'veri = Replace(veri, "'", "´")
veri = Replace(veri, "select", "select", 1, -1, 1)
veri = Replace(veri, "join", "join", 1, -1, 1)
veri = Replace(veri, "union", "union", 1, -1, 1)
veri = Replace(veri, "where", "where", 1, -1, 1)
veri = Replace(veri, "insert", "insert", 1, -1, 1)
veri = Replace(veri, "delete", "delete", 1, -1, 1)
veri = Replace(veri, "update", "update", 1, -1, 1)
veri = Replace(veri, "like", "like", 1, -1, 1)
veri = Replace(veri, "drop", "drop", 1, -1, 1)
veri = Replace(veri, "create", "create", 1, -1, 1)
veri = Replace(veri, "modify", "modify", 1, -1, 1)
veri = Replace(veri, "rename", "rename", 1, -1, 1)
veri = Replace(veri, "alter", "alter", 1, -1, 1)
veri = Replace(veri, "cast", "cast", 1, -1, 1)
KT = veri
End Function
Function MailKontrol(email) ' Mail adres doğrulama
Dim i,j, first, last, char
i = InStr(1, email, "@" , vbtextcompare)
If i > 0 and i < Len(email) Then
first = Left(email, i - 1)
last = Mid(email, i+1, Len(email))
Else
MailKontrol = false
exit Function
End If
i = 0
Do Until i = Len(first)
i = i + 1
char = Mid(first, i, 1)
' If char is not in [.z-aA-Z0-9]
If Asc(char) <> 46 and Asc(char) <> 95 and (Asc(46) < 48 or Asc(char) > 57) and _
(Asc(char) < 65 or Asc(char) > 90) and (Asc(char) < 97 or Asc(char) > 122) Then
MailKontrol = false
exit Function
End If
Loop
i = 0
nokta = false
Do Until i = Len(last)
i = i + 1
char = Mid(last, i, 1)
' If char is not in [.z-aA-Z0-9]
If Asc(char) <> 46 and (Asc(46) < 48 or Asc(char) > 57) and _
(Asc(char) < 65 or Asc(char) > 90) and (Asc(char) < 97 or Asc(char) > 122) Then
MailKontrol = false
exit Function
End If
Loop
nokta = false
If InStr(1, last, "." , 1) > 0 Then
nokta = true
End If
MailKontrol = nokta
End Function
Function TR_cevir2(veri) ' Sadece ünlü harfleri çevirme. Dosya adı tanımlarken ünlü harfleri noktasızlarıyla değiştirir.
If veri = "" Then Exit Function
veri = replace(veri, "ü", "u")
veri = replace(veri, "Ü", "U")
veri = replace(veri, "ğ", "g")
veri = replace(veri, "Ğ", "G")
veri = replace(veri, "İ", "I")
veri = replace(veri, "ı", "i")
veri = replace(veri, "ş", "s")
veri = replace(veri, "Ş", "S")
veri = replace(veri, "ç", "c")
veri = replace(veri, "Ç", "C")
veri = replace(veri, "ö", "o")
veri = replace(veri, "Ö", "O")
TR_cevir2 = veri
End Function
Function TR_cevir(veri) ' Genel amaçlı Türkçe karakter çevirme
If veri = "" Then Exit Function
veri = Replace (veri ,"""","",1,-1,1)
veri = Replace (veri ," ","",1,-1,1)
veri = Replace (veri ,"é","",1,-1,1)
veri = Replace (veri ,"!","",1,-1,1)
veri = Replace (veri ,"'","",1,-1,1)
veri = Replace (veri ,"^","",1,-1,1)
veri = Replace (veri ,"+","",1,-1,1)
veri = Replace (veri ,"%","",1,-1,1)
veri = Replace (veri ,"&","",1,-1,1)
veri = Replace (veri ,"/","",1,-1,1)
veri = Replace (veri ,"(","",1,-1,1)
veri = Replace (veri ,")","",1,-1,1)
veri = Replace (veri ,"=","",1,-1,1)
veri = Replace (veri ,"?","",1,-1,1)
veri = Replace (veri ,";","",1,-1,1)
veri = Replace (veri ,":","",1,-1,1)
veri = Replace (veri ,",","",1,-1,1)
veri = Replace (veri ,">","",1,-1,1)
veri = Replace (veri ,"<","",1,-1,1)
veri = Replace (veri ,"*","",1,-1,1)
veri = Replace (veri ,"-","",1,-1,1)
veri = Replace (veri ,"£","",1,-1,1)
veri = Replace (veri ,"$","",1,-1,1)
veri = Replace (veri ,"½","",1,-1,1)
veri = Replace (veri ,"{","",1,-1,1)
veri = Replace (veri ,"}","",1,-1,1)
veri = Replace (veri ,"(","",1,-1,1)
veri = Replace (veri ,")","",1,-1,1)
veri = Replace (veri ,"]","",1,-1,1)
veri = Replace (veri ,"[","",1,-1,1)
veri = Replace (veri ,"\","",1,-1,1)
veri = Replace (veri ,"|","",1,-1,1)
veri = Replace (veri ,"`","",1,-1,1)
veri = Replace (veri ,"´","",1,-1,1)
veri = Replace (veri ,"~","",1,-1,1)
veri = Replace (veri ,"@","",1,-1,1)
veri = Replace (veri ,"æ","",1,-1,1)
veri = Replace (veri ,"İ","i",1,-1,1)
veri = Replace (veri ,"ü","u",1,-1,1)
veri = Replace (veri ,"ğ","g",1,-1,1)
veri = Replace (veri ,"ç","c",1,-1,1)
veri = Replace (veri ,"ş","s",1,-1,1)
veri = Replace (veri ,"ö","o",1,-1,1)
veri = Replace (veri ,"ı","i",1,-1,1)
veri = Replace (veri ,"#39","",1,-1,1)
veri = Replace (veri ,"#96","-",1,-1,1)
veri = Replace (veri ,"#8242","",1,-1,1)
veri = Replace (veri ," ","",1,-1,1)
veri = Replace (veri ,",","",1,-1,1)
veri = Replace (veri ,".","",1,-1,1)
TR_cevir=veri
End Function
'YUKARI YUVARLAMA
Function yukariyuvarla(s) ' Yukarı yuvarlama
if s-cint(s) > 0 then
yukariyuvarla = cint(s) + 1
else
yukariyuvarla = cint(s)
end if
End function
'AŞAĞI YUVARLAMA
Function asagiyuvarla(s1) ' aşağı yuvarlama
If s1-cint(s1) < 0 then
asagiyuvarla = cint(s1) - 1
else
asagiyuvarla = cint(s1)
end if
End function
Function SAAT_Cevir(veri) ' Saat çevirisi Örnek 12:24:36 çıktısını 12-24-36 yapar.
If veri = "" Then Exit Function
veri = Replace(veri ,":","-")
SAAT_Cevir = veri
End Function
Function TARIH_Cevir(veri) ' Tarih çeviri. Örnek : 15/05/2014 veya 15.04.2014 tarihini 15-04-2015 yapar
If veri = "" Then Exit Function
veri = Replace(veri ,".","-")
veri = Replace(veri ,"/","-")
TARIH_Cevir = veri
End Function
Function TR_Kontrol(ByVal veri) ' Türkçe karakter girilip girilmediğini denetler.
'// Örnek Kullanım
'// If TR_Kontrol(Request.Form("sifre")) = False Then Response.Write "Türkçe Karakter Kullandınız."
'// Değişkenler Tanımlanıyor
Dim Karakterler '// TR Karakter dizisi tutulacak
Dim Karakter '// Dizideki her bir elemanı teker teker alacak
blnValid = True '// Varsayılan değer True olarak atanıyor
'// Kontrol Başlıyor
Karakterler = Array("ğ","ü","ı","ş","ç","ö","Ğ","Ü","İ","Ş","Ç","Ö"," ")
For Each Karakter In Karakterler
If InStr(veri,Karakter) <> 0 Then blnValid = False '// Değer False olarak değiştiriliyor
Next
TR_Kontrol = blnValid
End Function
Function Buyut(strBaslik) ' Tüm harfleri büyük harfe çevirir
strBaslik = Replace(strBaslik, "a", "A")
strBaslik = Replace(strBaslik, "b", "B")
strBaslik = Replace(strBaslik, "c", "C")
strBaslik = Replace(strBaslik, "ç", "Ç")
strBaslik = Replace(strBaslik, "d", "D")
strBaslik = Replace(strBaslik, "e", "E")
strBaslik = Replace(strBaslik, "f", "F")
strBaslik = Replace(strBaslik, "g", "G")
strBaslik = Replace(strBaslik, "ğ", "Ğ")
strBaslik = Replace(strBaslik, "h", "H")
strBaslik = Replace(strBaslik, "ı", "I")
strBaslik = Replace(strBaslik, "i", "İ")
strBaslik = Replace(strBaslik, "j", "J")
strBaslik = Replace(strBaslik, "k", "K")
strBaslik = Replace(strBaslik, "l", "L")
strBaslik = Replace(strBaslik, "m", "M")
strBaslik = Replace(strBaslik, "n", "N")
strBaslik = Replace(strBaslik, "o", "O")
strBaslik = Replace(strBaslik, "ö", "Ö")
strBaslik = Replace(strBaslik, "p", "P")
strBaslik = Replace(strBaslik, "q", "Q")
strBaslik = Replace(strBaslik, "r", "R")
strBaslik = Replace(strBaslik, "s", "S")
strBaslik = Replace(strBaslik, "ş", "Ş")
strBaslik = Replace(strBaslik, "t", "T")
strBaslik = Replace(strBaslik, "u", "U")
strBaslik = Replace(strBaslik, "ü", "Ü")
strBaslik = Replace(strBaslik, "v", "V")
strBaslik = Replace(strBaslik, "w", "W")
strBaslik = Replace(strBaslik, "x", "X")
strBaslik = Replace(strBaslik, "y", "Y")
strBaslik = Replace(strBaslik, "z", "Z")
Buyut = strBaslik
End Function
Function BuyutTR(strBaslik) ' Türkçeye özel harf büyütme
strBaslik = Replace(strBaslik, "a", "A")
strBaslik = Replace(strBaslik, "b", "B")
strBaslik = Replace(strBaslik, "c", "C")
strBaslik = Replace(strBaslik, "ç", "Ç")
strBaslik = Replace(strBaslik, "d", "D")
strBaslik = Replace(strBaslik, "e", "E")
strBaslik = Replace(strBaslik, "f", "F")
strBaslik = Replace(strBaslik, "g", "G")
strBaslik = Replace(strBaslik, "ğ", "Ğ")
strBaslik = Replace(strBaslik, "h", "H")
strBaslik = Replace(strBaslik, "ı", "I")
strBaslik = Replace(strBaslik, "i", "İ")
strBaslik = Replace(strBaslik, "j", "J")
strBaslik = Replace(strBaslik, "k", "K")
strBaslik = Replace(strBaslik, "l", "L")
strBaslik = Replace(strBaslik, "m", "M")
strBaslik = Replace(strBaslik, "n", "N")
strBaslik = Replace(strBaslik, "o", "O")
strBaslik = Replace(strBaslik, "ö", "Ö")
strBaslik = Replace(strBaslik, "p", "P")
strBaslik = Replace(strBaslik, "q", "Q")
strBaslik = Replace(strBaslik, "r", "R")
strBaslik = Replace(strBaslik, "s", "S")
strBaslik = Replace(strBaslik, "ş", "Ş")
strBaslik = Replace(strBaslik, "t", "T")
strBaslik = Replace(strBaslik, "u", "U")
strBaslik = Replace(strBaslik, "ü", "Ü")
strBaslik = Replace(strBaslik, "v", "V")
strBaslik = Replace(strBaslik, "w", "W")
strBaslik = Replace(strBaslik, "x", "X")
strBaslik = Replace(strBaslik, "y", "Y")
strBaslik = Replace(strBaslik, "z", "Z")
BuyutTR = strBaslik
End Function
Function BuyutENG(strBaslik) ' İngilizçeye özel harf büyütme
strBaslik = Replace(strBaslik, "a", "A")
strBaslik = Replace(strBaslik, "b", "B")
strBaslik = Replace(strBaslik, "c", "C")
strBaslik = Replace(strBaslik, "d", "D")
strBaslik = Replace(strBaslik, "e", "E")
strBaslik = Replace(strBaslik, "f", "F")
strBaslik = Replace(strBaslik, "g", "G")
strBaslik = Replace(strBaslik, "ğ", "Ğ")
strBaslik = Replace(strBaslik, "h", "H")
strBaslik = Replace(strBaslik, "i", "I")
strBaslik = Replace(strBaslik, "j", "J")
strBaslik = Replace(strBaslik, "k", "K")
strBaslik = Replace(strBaslik, "l", "L")
strBaslik = Replace(strBaslik, "m", "M")
strBaslik = Replace(strBaslik, "n", "N")
strBaslik = Replace(strBaslik, "o", "O")
strBaslik = Replace(strBaslik, "p", "P")
strBaslik = Replace(strBaslik, "q", "Q")
strBaslik = Replace(strBaslik, "r", "R")
strBaslik = Replace(strBaslik, "s", "S")
strBaslik = Replace(strBaslik, "t", "T")
strBaslik = Replace(strBaslik, "u", "U")
strBaslik = Replace(strBaslik, "v", "V")
strBaslik = Replace(strBaslik, "w", "W")
strBaslik = Replace(strBaslik, "x", "X")
strBaslik = Replace(strBaslik, "y", "Y")
strBaslik = Replace(strBaslik, "z", "Z")
BuyutENG = strBaslik
End Function
Function Kucult(strBaslik) ' Tüm harfleri küçük harfe çevirir
strBaslik = Replace(strBaslik, "A", "a")
strBaslik = Replace(strBaslik, "B", "b")
strBaslik = Replace(strBaslik, "C", "c")
strBaslik = Replace(strBaslik, "Ç", "ç")
strBaslik = Replace(strBaslik, "D", "d")
strBaslik = Replace(strBaslik, "E", "e")
strBaslik = Replace(strBaslik, "F", "f")
strBaslik = Replace(strBaslik, "G", "g")
strBaslik = Replace(strBaslik, "Ğ", "ğ")
strBaslik = Replace(strBaslik, "H", "h")
strBaslik = Replace(strBaslik, "I", "ı")
strBaslik = Replace(strBaslik, "İ", "i")
strBaslik = Replace(strBaslik, "J", "j")
strBaslik = Replace(strBaslik, "K", "k")
strBaslik = Replace(strBaslik, "L", "l")
strBaslik = Replace(strBaslik, "M", "m")
strBaslik = Replace(strBaslik, "N", "n")
strBaslik = Replace(strBaslik, "O", "o")
strBaslik = Replace(strBaslik, "Ö", "ö")
strBaslik = Replace(strBaslik, "P", "p")
strBaslik = Replace(strBaslik, "Q", "q")
strBaslik = Replace(strBaslik, "R", "r")
strBaslik = Replace(strBaslik, "S", "s")
strBaslik = Replace(strBaslik, "Ş", "ş")
strBaslik = Replace(strBaslik, "T", "t")
strBaslik = Replace(strBaslik, "U", "u")
strBaslik = Replace(strBaslik, "Ü", "ü")
strBaslik = Replace(strBaslik, "V", "v")
strBaslik = Replace(strBaslik, "W", "w")
strBaslik = Replace(strBaslik, "X", "x")
strBaslik = Replace(strBaslik, "Y", "y")
strBaslik = Replace(strBaslik, "Z", "z")
Kucult = strBaslik
End Function
'RASTGELE PAROLA URETICI
Dim Password
Dim RandomPassword
Dim nCharacters
Dim array_cod(35)
array_cod(0) = "0"
array_cod(1) = "1"
array_cod(2) = "2"
array_cod(3) = "3"
array_cod(4) = "4"
array_cod(5) = "5"
array_cod(6) = "6"
array_cod(7) = "7"
array_cod(8) = "8"
array_cod(9) = "9"
array_cod(10) = "A"
array_cod(11) = "B"
array_cod(12) = "C"
array_cod(13) = "D"
array_cod(14) = "E"
array_cod(15) = "F"
array_cod(16) = "G"
array_cod(17) = "H"
array_cod(18) = "I"
array_cod(19) = "J"
array_cod(20) = "K"
array_cod(21) = "L"
array_cod(22) = "M"
array_cod(23) = "N"
array_cod(24) = "O"
array_cod(25) = "P"
array_cod(26) = "Q"
array_cod(27) = "R"
array_cod(28) = "S"
array_cod(29) = "T"
array_cod(30) = "U"
array_cod(31) = "V"
array_cod(32) = "W"
array_cod(33) = "X"
array_cod(34) = "Y"
array_cod(35) = "Z"
for cod = 0 to 5
MaxCod = 35
MinCod = 0
Randomize
RandomPassword = CStr(RandomPassword & array_cod(Int(Rnd * MaxCod) - MinCod))
next
'//RANDOM PAROLA URETICI
' HTML KODLARI TEMİZLEME - Bu süzgeç ile gelen html verileri düz text olur
Function HTMLSil(GelenVeri)
Set objReg = New RegExp
objReg.Global = True
objReg.IgnoreCase = True
objReg.Pattern = "<[^>]*>"
GelenVeri = objReg.Replace(GelenVeri,"" )
HTMLSil = GelenVeri
End Function
%>