Ayberk Atasay

ASP, CSS, Internet konuları üzerine paylaşımlar

ASP Karakter Temizleme

ASP ile site tasarlarken en çok karşılaşılan sorun güvenlik açıkları, Türkçe karakter sorunları ve benzeri karakterlerdir.
Bunlar için işinize yarayabilecek küçük bir kod.

Function Temizle(gelenveri)



'Enter a basılınca aşağı satıra atlama'

  gelenveri = Replace(gelenveri ,Chr(13),"<br />"



'Bazı güvenlik önlemleri'

  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)



'Türkçe Karakter'

  gelenveri = Replace(gelenveri ,"Ç","&# 199;",1,-1,1)

  gelenveri = Replace(gelenveri ,"ç","&# 231;",1,-1,1)

  gelenveri = Replace(gelenveri ,"Ğ","&# 208;",1,-1,1)

  gelenveri = Replace(gelenveri ,"ğ","&# 287;",1,-1,1)

  gelenveri = Replace(gelenveri ,"Ş","&# 350;",1,-1,1)

  gelenveri = Replace(gelenveri ,"ş","&# 351;",1,-1,1)

  gelenveri = Replace(gelenveri ,"İ","&# 304;",1,-1,1)

  gelenveri = Replace(gelenveri ,"ı","ı",1,-1,1)

  gelenveri = Replace(gelenveri ,"Ü","&# 220;",1,-1,1)

  gelenveri = Replace(gelenveri ,"ü","&# 252;",1,-1,1)

  gelenveri = Replace(gelenveri ,"Ö","&# 214;",1,-1,1)

  gelenveri = Replace(gelenveri ,"ö","&# 246;",1,-1,1) 

Temizle = gelenveri

End Function

Kullanım Şekli
<%=Temizle(veri)%>

ASPAyberk Atasay31 Ağustos 2008, PazarEkle Bunu

Önceki Kayıt

Sonraki Kayıt

Yorumlar

Henüz yorum yazılmamış.