ASP常用函数收藏乱七八糟未整理版(47)

        tmp = LCase(tmp)
        If InStr(1, tmp, "asp")>0 or InStr(1, tmp, "php")>0 or InStr(1, tmp, "php3")>0 or InStr(1, tmp, "aspx")>0 Then
            getextend = "txt"
        Else
            getextend = tmp
        End If
    Else
        getextend = ""
    End If
End Function

' *----------------------------------------------------------------------------
' * 函数：CheckIn
' * 描述：检测参数是否有SQL危险字符
' * 参数：str要检测的数据
' * 返回：FALSE：安全 TRUE：不安全
' * 作者：
' * 日期：
' *----------------------------------------------------------------------------

Function CheckIn(Str)
    If InStr(1, Str, Chr(39))>0 or InStr(1, Str, Chr(34))>0 or InStr(1, Str, Chr(59))>0 Then
        CheckIn = True
    Else
        CheckIn = False
    End If
End Function

' *----------------------------------------------------------------------------
' * 函数：HTMLEncode
' * 描述：过滤HTML代码
' * 参数：--
' * 返回：--
' * 作者：
' * 日期：
' *----------------------------------------------------------------------------

Function HTMLEncode(fString)
    If Not IsNull(fString) Then
        fString = Replace(fString, ">", ">")
        fString = Replace(fString, "<", "<")
        fString = Replace(fString, Chr(32), " ")
        fString = Replace(fString, Chr(9), " ")
        fString = Replace(fString, Chr(34), """)
        fString = Replace(fString, Chr(39), "'")
        fString = Replace(fString, Chr(13), "")
        fString = Replace(fString, Chr(10) & Chr(10), "</P><P> ")