asp ajax注册验证之 预防用户名输入空格

check.asp

代码如下:

<%

''''''''''''''''''''''''''''''''''''

Function ReplaceText(fString,patrn,replStr)

    Set regEx = New RegExp    ' 建立正则表达式。

        regEx.Pattern = patrn ' 设置模式。

        regEx.IgnoreCase = True ' 设置是否区分大小写。

        regEx.Global = True ' 设置全局可用性。

        ReplaceText = regEx.Replace(""&fString&"",""&replStr&"") ' 作替换。

    Set regEx=nothing

End Function

''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''

Function HTMLEncode(fString)

    fString=Trim(fString)

    fString=Replace(fString,CHR(9),"")

    fString=Replace(fString,CHR(13),"")

    fString=Replace(fString,CHR(22),"")

    fString=Replace(fString,CHR(38),"&")    '“&”

    fString=Replace(fString,CHR(32)," ")    '“ ”

    fString=Replace(fString,CHR(34),""")    '“"”

    fString=Replace(fString,CHR(37),"%")    '“%”

    fString=Replace(fString,CHR(39),"'")    '“'”

    fString=Replace(fString,CHR(42),"*")    '“*”

    fString=Replace(fString,CHR(43),"+")    '“+”

    fString=Replace(fString,CHR(44),",")    '“,”

    fString=Replace(fString,CHR(45)&CHR(45),"--")    '“--”

    fString=Replace(fString,CHR(92),"\")    '“/”

    'fString=Replace(fString,CHR(95),"_")    '“_”

    fString=Replace(fString,CHR(40),"(")    '“(”

    fString=Replace(fString,CHR(41),")")    '“)”

    fString=Replace(fString,CHR(60),"<")    '“<”

    fString=Replace(fString,CHR(62),">")    '“>”

    fString=Replace(fString,CHR(123),"{")    '“{”

    fString=Replace(fString,CHR(125),"}")    '“}”

    fString=Replace(fString,CHR(59),";")    '“;”

    fString=Replace(fString,CHR(10),"<br>")

    fString=ReplaceText(fString,"([&#])([a-z0-9]*);","$1$2;")

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!