newasp中main类(7)

        str = Replace(str, ";", "")
        str = Replace(str, "*", "")
        str = Replace(str, "<", "")
        str = Replace(str, ">", "")
        str = Replace(str, "|", "")
        str = Replace(str, "and", "")
        str = Replace(str, "chr", "")

        If Len(str) > 0 And strLen > 0 Then
            str = Left(str, strLen)
        End If
        CheckRequest = str
    End Function
    '-- 移除有害字符
    Public Function RemoveBadCharacters(ByVal strTemp)
        Dim re
        On Error Resume Next
        Set re = New RegExp
        re.Pattern = "[^\s\w]"
        re.Global = True
        RemoveBadCharacters = re.Replace(strTemp, "")
        Set re = Nothing
    End Function
    '-- 去掉HTML标记
    Public Function RemoveHtml(ByVal Textstr)
        Dim Str,re
        Str = Textstr
        On Error Resume Next
        Set re = New RegExp
        re.IgnoreCase = True
        re.Global = True
        re.Pattern = "<(.[^>]*)>"
        Str = re.Replace(Str, "")
        Set re = Nothing
        RemoveHtml=Str
    End Function
    '-- 数据库连接
    Public Function Execute(Command)