怎么使用呢？

表述不清

我加了下面这段代码之后，发布的一些脚本都显示出了，没起作用？不加倒不显示，谢谢各位高手，指点一下
function filthtml(InString)
    NewStr=Replace(InString,"'","''")
    NewStr=Replace(NewStr,"<","&lt")
    NewStr=Replace(NewStr,">","&gt")
    NewStr=Replace(NewStr,"chr(60)","&lt;")
    NewStr=Replace(NewStr,"chr(37)","&gt;")
    NewStr=Replace(NewStr,"""","&quot")
    NewStr=Replace(NewStr,";",";;")
    NewStr=Replace(NewStr,"--","-")
    NewStr=Replace(NewStr,"/*"," ")
    NewStr=Replace(NewStr,"%"," ")
    filthtml=NewStr
end function

这个只是替换了非法字符，并不是清除非法字符
清除非法字符应该这样写
function filthtml(InString)
    NewStr=Replace(InString,"'","")
    NewStr=Replace(NewStr,"<","")
    NewStr=Replace(NewStr,">","")
    NewStr=Replace(NewStr,"chr(60)","")
    NewStr=Replace(NewStr,"chr(37)","")
    NewStr=Replace(NewStr,"""","")
    NewStr=Replace(NewStr,";","")
    NewStr=Replace(NewStr,"--","")
    NewStr=Replace(NewStr,"/*","")
    NewStr=Replace(NewStr,"%","")
    filthtml=NewStr
end function

用上这段代码是不是就可以起到防范一些非法攻击了 ？
谢谢，非常感谢！

是

NewStr=Replace(NewStr,"<","")   ------把<替换成空
这个可以防止表单写入<script>这样的东西，如果不过滤，那读出来的时候就可能输出脚本。
NewStr=Replace(InString,"'","")-----把单引号替换成空
往往很多SQL注入都需要单引号帮忙