muratbdg' Alıntı:Sade ve içerik açısından güzel bir site elinize sağlık. Durmuş hoca iyi adamdır![]()

Function sqldegistir(metin) 
  strZararli = Array("""","'","SELECT","DROP", ";", "--", "INSERT", "DELETE", "xp_", "UNION", "+", "and", "or") 
  strTemiz = Array("`","`","","", "", "", "", "", "", "", "", "", "") 
  For  i= 0 to uBound(strZararli) 
    metin = Replace(metin, strZararli(i), strTemiz(i),1,-1,1)
  Next 
  If isNumeric(metin) = True Then
    sqldegistir = int(metin)
  Else
    sqldegistir = metin 
  End if
End Function
'Kullanımı
haber_id=sqldegistir(request.QueryString("haber_id"))
	if IsNumeric(request.QueryString("haber_id"))=false then
response.redirect("default.asp")
else
.
.
işlemleriniz
.
.
end if
	s_kajmeran' Alıntı:Hocam güzel olmuş ellerinize sağlık...
id değerlerinizi sql injection'a karşı süzün hocam...
Kod:Function sqldegistir(metin) strZararli = Array("""","'","SELECT","DROP", ";", "--", "INSERT", "DELETE", "xp_", "UNION", "+", "and", "or") strTemiz = Array("`","`","","", "", "", "", "", "", "", "", "", "") For i= 0 to uBound(strZararli) metin = Replace(metin, strZararli(i), strTemiz(i),1,-1,1) Next If isNumeric(metin) = True Then sqldegistir = int(metin) Else sqldegistir = metin End if End Function 'Kullanımı haber_id=sqldegistir(request.QueryString("haber_id"))
Bir de bu değerleri aldıktan sonra sayı mı diye kontrol ettirin...
Kod:if IsNumeric(request.QueryString("haber_id"))=false then response.redirect("default.asp") else . . işlemleriniz . . end if
Kolay gelsin...
marfan' Alıntı:menüyü beğendim
 Daha prof durur. Kolay gelsin...s_kajmeran' Alıntı:Şuan sanırım tamamdır hocam... Yalnız ... tespit edildi gibi ifade yerine doğrudan ana sayfaya yönlendirin benceDaha prof durur. Kolay gelsin...
	