批量入侵网站之安全防护

function eck(str)
rem 检查过滤所有的输入
dim dist
dist=replace(str,"’","’’")
dist=replace(dist,"<","<")
dist=replace(dist,">",">")
dist=replace(dist,"chr(60)","<")
dist=replace(dist,"chr(37)",">")
dist=replace(dist,"""",""")
dist=replace(dist,";",";;")
eck=dist
end function
只要加如这个就可以过滤符号`！