|
楼主 |
发表于 2005-4-7 18:38:10
|
显示全部楼层
下面这个是我写的超BT的过滤函数,经过这样过滤,基本无SQL注入的可能了
请把这段代码放在CONN.ASP里面(也不一定是这个名字,反正是放在所有网页都用到的公共文件里面就可以了)
function unHtml(content)
unHtml=content
if content <> "" then
unHtml=replace(unHtml,";",";")
unHtml=replace(unHtml,"&","&")
unHtml=replace(unHtml,"<","<")
unHtml=replace(unHtml,">",">")
unHtml=replace(unHtml,"#","#")
unHtml=replace(unHtml,"%","%")
unHtml=replace(unHtml,"|","|")
unHtml=replace(unHtml,"\","\")
unHtml=replace(unHtml,"/","/")
unHtml=replace(unHtml,"*","*")
unHtml=replace(unHtml,"$","$")
unHtml=replace(unHtml,"(","(")
unHtml=replace(unHtml,")",")")
unHtml=replace(unHtml,"+","+")
unHtml=replace(unHtml,"-","-")
unHtml=replace(unHtml,"=","=")
unHtml=replace(unHtml,chr(34),""")
unHtml=replace(unHtml,chr(13),"<br>")
unHtml=replace(unHtml,chr(32)," ")
unHtml = Replace(unHtml, CHR(9), " ")
unHtml = Replace(unHtml," "," ") '不推荐使用,如果要空格正确显示,这句要去掉
unHtml = Replace(unHtml, CHR(39), "'")
unHtml = Replace(unHtml, CHR(58), ":")
unHtml = Replace(unHtml, CHR(10) & CHR(10), "</P><P> ")
end if
end function
使用方法:
把所有request("XXX")的地方
修改成unHtml(request("XXX"))
修改完再使用软件检查,基本找不到漏洞了 |
|