ASP防XSS注入函数技巧

'*************************************BhC中国设计秀
'防XSS注入函数 更新于2009-04-21 by evioBhC中国设计秀
'与checkstr()相比, checkxss更加安全BhC中国设计秀
'*************************************BhC中国设计秀
Function Checkxss(byVal ChkStr)BhC中国设计秀
    Dim StrBhC中国设计秀
    Str = ChkStrBhC中国设计秀
    If IsNull(Str) ThenBhC中国设计秀
        CheckStr = ""BhC中国设计秀
        Exit FunctionBhC中国设计秀
    End IfBhC中国设计秀
    Str = Replace(Str, "&", "&")BhC中国设计秀
    Str = Replace(Str, "'", "´")BhC中国设计秀
    Str = Replace(Str, """", """)BhC中国设计秀
        Str = Replace(Str, "<", "&lt;")BhC中国设计秀
        Str = Replace(Str, ">", "&gt;")BhC中国设计秀
        Str = Replace(Str, "/", "&#47;")BhC中国设计秀
        Str = Replace(Str, "*", "&#42;")BhC中国设计秀
    Dim reBhC中国设计秀
    Set re = New RegExpBhC中国设计秀
    re.IgnoreCase = TrueBhC中国设计秀
    re.Global = TrueBhC中国设计秀
    re.Pattern = "(w)(here)"BhC中国设计秀
    Str = re.Replace(Str, "$1h&#101;re")BhC中国设计秀
    re.Pattern = "(s)(elect)"BhC中国设计秀
    Str = re.Replace(Str, "$1el&#101;ct")BhC中国设计秀
    re.Pattern = "(i)(nsert)"BhC中国设计秀
    Str = re.Replace(Str, "$1ns&#101;rt")BhC中国设计秀
    re.Pattern = "(c)(reate)"BhC中国设计秀
    Str = re.Replace(Str, "$1r&#101;ate")BhC中国设计秀
    re.Pattern = "(d)(rop)"BhC中国设计秀
    Str = re.Replace(Str, "$1ro&#112;")BhC中国设计秀
    re.Pattern = "(a)(lter)"BhC中国设计秀
    Str = re.Replace(Str, "$1lt&#101;r")BhC中国设计秀
    re.Pattern = "(d)(elete)"BhC中国设计秀
    Str = re.Replace(Str, "$1el&#101;te")BhC中国设计秀
    re.Pattern = "(u)(pdate)"BhC中国设计秀
    Str = re.Replace(Str, "$1p&#100;ate")BhC中国设计秀
    re.Pattern = "(s)(or)"BhC中国设计秀
    Str = re.Replace(Str, "$1o&#114;")BhC中国设计秀
        re.Pattern = "(n)"BhC中国设计秀
    Str = re.Replace(Str, "$1o&#114;")BhC中国设计秀
        '----------------------------------BhC中国设计秀
        re.Pattern = "(java)(script)"BhC中国设计秀
    Str = re.Replace(Str, "$1scri&#112;t")BhC中国设计秀
        re.Pattern = "(j)(script)"BhC中国设计秀
    Str = re.Replace(Str, "$1scri&#112;t")BhC中国设计秀
        re.Pattern = "(vb)(script)"BhC中国设计秀
    Str = re.Replace(Str, "$1scri&#112;t")BhC中国设计秀
        '----------------------------------BhC中国设计秀
        If Instr(Str, "exPRession") > 0 ThenBhC中国设计秀
                Str = Replace(Str, "expression", "e&#173;xpression", 1, -1, 0) '防止xss注入BhC中国设计秀
        End IfBhC中国设计秀
    Set re = NothingBhC中国设计秀
    Checkxss = StrBhC中国设计秀
End FunctionBhC中国设计秀