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

<%

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;")
    fString=ReplaceText(fString,"(fuck|shit)",string(len("&$1&"),"*"))
    if IsSqlDataBase=0 then 过滤片假名(日文字符)[\u30A0-\u30FF] by yuzi
        fString=escape(fString)
        fString=ReplaceText(fString,"%u30([A-F][0-F])","0$1;")
        fString=unescape(fString)
    end if
    HTMLEncode=fString
End Function


Function RequestInt(fString)
    RequestInt=Request(fString)
    if IsNumeric(RequestInt) then
        RequestInt=int(RequestInt)
    else
        RequestInt=0
    end if
End Function

UserName=HTMLEncode(unescape(Request.QueryString("UserName")))
UserNameLength=RequestInt("UserNameLength")
If len(UserName)<>UserNameLength Then
    response.write "用户名非法！"
Else
    response.write "用户名合法！"
End If
%>