怎么使用呢？

我加了下面这段代码之后，发布的一些脚本都显示出了，没起作用？不加倒不显示，谢谢各位高手，指点一下
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

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