给你一段代码，过滤输入特殊符号，保治百病(:)

给你一段代码，过滤输入特殊符号，保治百病(:)

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- 给你一段代码，过滤输入特殊符号，保治百病(:) (http://www.webasp.net/article/4/3408.htm)

-- 作者：未知
-- 发布日期： 2003-07-11

   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

sub showBody(Str)'多行文本显示函数
    str=replace(str,chr(13),"<br>" & chr(13)+chr(10))
    str=replace(str,chr(32)," ")
    response.write str
end sub

webasp.net