请告知,如果有关于表单输入的非法字符过滤的方案也请一并告知,分不够可以再加,谢谢

解决方案 »

  1.   

    构造函数用replace替换就可以了。
      

  2.   

    Public function HtmlEncode(fString)
    if not isnull(fString) and fString<>"" then
        fString = replace(fString,"‘","‘‘")
        fString = replace(fString, ">", "&gt;")
        fString = replace(fString, "<", "&lt;")
        fString = Replace(fString, CHR(32), "&nbsp;")
        fString = Replace(fString, CHR(9), "&nbsp;")
        fString = Replace(fString, CHR(34), "&quot;")
        fString = Replace(fString, CHR(39), "&#39;")
        fString = Replace(fString, CHR(13), "")
        fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
        fString = Replace(fString, CHR(10), "<BR> ")
        HtmlEncode = fString
    end if
    end function例如上面的函数。