%
''''''''''''''''''''''''''''''''''''
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),"#38;")    '“”
    fString=Replace(fString,CHR(32),"#32;")    '“ ”
    fString=Replace(fString,CHR(34),"quot;")    '“"”
    fString=Replace(fString,CHR(37),"#37;")    '“%”
    fString=Replace(fString,CHR(39),"#39;")    '“'”
    fString=Replace(fString,CHR(42),"#42;")    '“*”
    fString=Replace(fString,CHR(43),"#43;")    '“+”
    fString=Replace(fString,CHR(44),"#44;")    '“,”
    fString=Replace(fString,CHR(45)CHR(45),"#45;#45;")    '“--”
    fString=Replace(fString,CHR(92),"#92;")    '“\”
    'fString=Replace(fString,CHR(95),"#95;")    '“_”
    fString=Replace(fString,CHR(40),"#40;")    '“(”
    fString=Replace(fString,CHR(41),"#41;")    '“)”
    fString=Replace(fString,CHR(60),"#60;")    '“”
    fString=Replace(fString,CHR(62),"#62;")    '“>”
    fString=Replace(fString,CHR(123),"#123;")    '“{”
    fString=Replace(fString,CHR(125),"#125;")    '“}”
    fString=Replace(fString,CHR(59),"#59;")    '“;”
    fString=Replace(fString,CHR(10),"br>")
    fString=ReplaceText(fString,"([#])([a-z0-9]*)#59;","$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])","#x30$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
%>