ASP Karakter Temizleme
ASP ile site tasarlarken en cok karsilasilan sorun guvenlik aciklari, Turkce karakter sorunlari ve benzeri karakterlerdir.
Bunlar icin isinize yarayabilecek kucuk bir kod.
Function Temizle(gelenveri)
'Enter a basilinca asagi satira atlama'
gelenveri = Replace(gelenveri ,Chr(13),"<br />"
'Bazi guvenlik onlemleri'
gelenveri = Replace(gelenveri ,"<","& lt;",1,-1,1)
gelenveri = Replace(gelenveri ,">","& gt;",1,-1,1)
gelenveri = Replace(gelenveri ,Chr(34)," 34;",1,-1,1)
gelenveri = Replace(gelenveri ,Chr(39)," 39;",1,-1,1)
'Turkce Karakter'
gelenveri = Replace(gelenveri ,"C"," 199;",1,-1,1)
gelenveri = Replace(gelenveri ,"c"," 231;",1,-1,1)
gelenveri = Replace(gelenveri ,"Ð"," 208;",1,-1,1)
gelenveri = Replace(gelenveri ,"g"," 287;",1,-1,1)
gelenveri = Replace(gelenveri ,"S"," 350;",1,-1,1)
gelenveri = Replace(gelenveri ,"s"," 351;",1,-1,1)
gelenveri = Replace(gelenveri ,"I"," 304;",1,-1,1)
gelenveri = Replace(gelenveri ,"i","i",1,-1,1)
gelenveri = Replace(gelenveri ,"U"," 220;",1,-1,1)
gelenveri = Replace(gelenveri ,"u"," 252;",1,-1,1)
gelenveri = Replace(gelenveri ,"o"," 214;",1,-1,1)
gelenveri = Replace(gelenveri ,"o"," 246;",1,-1,1)
Temizle = gelenveri
End Function
'Enter a basilinca asagi satira atlama'
gelenveri = Replace(gelenveri ,Chr(13),"<br />"
'Bazi guvenlik onlemleri'
gelenveri = Replace(gelenveri ,"<","& lt;",1,-1,1)
gelenveri = Replace(gelenveri ,">","& gt;",1,-1,1)
gelenveri = Replace(gelenveri ,Chr(34)," 34;",1,-1,1)
gelenveri = Replace(gelenveri ,Chr(39)," 39;",1,-1,1)
'Turkce Karakter'
gelenveri = Replace(gelenveri ,"C"," 199;",1,-1,1)
gelenveri = Replace(gelenveri ,"c"," 231;",1,-1,1)
gelenveri = Replace(gelenveri ,"Ð"," 208;",1,-1,1)
gelenveri = Replace(gelenveri ,"g"," 287;",1,-1,1)
gelenveri = Replace(gelenveri ,"S"," 350;",1,-1,1)
gelenveri = Replace(gelenveri ,"s"," 351;",1,-1,1)
gelenveri = Replace(gelenveri ,"I"," 304;",1,-1,1)
gelenveri = Replace(gelenveri ,"i","i",1,-1,1)
gelenveri = Replace(gelenveri ,"U"," 220;",1,-1,1)
gelenveri = Replace(gelenveri ,"u"," 252;",1,-1,1)
gelenveri = Replace(gelenveri ,"o"," 214;",1,-1,1)
gelenveri = Replace(gelenveri ,"o"," 246;",1,-1,1)
Temizle = gelenveri
End Function
Kullanim Sekli
<%=Temizle(veri)%>
- personAyberk Atasay
- calendar_monthAugust 31, 2008
- categoryASP
- sharepaylaÅŸ
