newasp中main类(29)

        l = Len(HtmlStr)
        If l >= strLen Then
            strContent = Left(HtmlStr, strLen) & "..."
        Else
            strContent = HtmlStr & " "
        End If
        strContent = Replace(strContent, Chr(34), """)
        strContent = Replace(strContent, Chr(39), "'")
        strContent = Replace(strContent, Chr(36), "$")
        strContent = Replace(strContent, Chr(123), "{")
        strContent = Replace(strContent, Chr(125), "}")
        strContent = Replace(strContent, ">", ">")
        strContent = Replace(strContent, "<", "<")
        CutString = strContent
    End Function
    '================================================
    '函数名：CheckInfuse
    '作  用：防止SQL注入
    '参  数：str   ----原字符串
    '        strLen  ----提交字符串长度
    '================================================
    Public Function CheckInfuse(ByVal str, ByVal strLen)
        Dim strUnsafe, arrUnsafe
        Dim i

        If Trim(str) = "" Then
            CheckInfuse = ""
            Exit Function
        End If
        str = Left(str, strLen)

        On Error Resume Next
        strUnsafe = "'|^|;|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
        If Trim(str) <> "" Then