ASP开发中有用的函数（function）集合(2)

网络整理 - 09-17

ASP开发中有用的函数（function）集合，挺有用的，请大家保留！

以下为引用的内容：

'*************************************
'过滤超链接
'*************************************
Function checkURL(ByVal ChkStr)
    Dim str:str=ChkStr
    str=Trim(str)
    If IsNull(str) Then
        checkURL = ""
        Exit Function
    End If
    Dim re
    Set re=new RegExp
    re.IgnoreCase =True
    re.Global=True
    re.Pattern="(d)(ocument\.cookie)"
    Str = re.replace(Str,"$1ocument cookie")
    re.Pattern="(d)(ocument\.write)"
    Str = re.replace(Str,"$1ocument write")
    re.Pattern="(s)(cript:)"
    Str = re.replace(Str,"$1cript ")
    re.Pattern="(s)(cript)"
    Str = re.replace(Str,"$1cript")
    re.Pattern="(o)(bject)"
    Str = re.replace(Str,"$1bject")
    re.Pattern="(a)(pplet)"
    Str = re.replace(Str,"$1pplet")
    re.Pattern="(e)(mbed)"
    Str = re.replace(Str,"$1mbed")
    Set re=Nothing
    Str = Replace(Str, ">", ">")
    Str = Replace(Str, "<", "<")
    checkURL=Str
end function

'*************************************
'过滤文件名字
'*************************************
Function FixName(UpFileExt)
    If IsEmpty(UpFileExt) Then Exit Function
    FixName = Ucase(UpFileExt)
    FixName = Replace(FixName,Chr(0),"")
    FixName = Replace(FixName,".","")
    FixName = Replace(FixName,"ASP","")
    FixName = Replace(FixName,"ASA","")
    FixName = Replace(FixName,"ASPX","")
    FixName = Replace(FixName,"CER","")
    FixName = Replace(FixName,"CDX","")
    FixName = Replace(FixName,"HTR","")
End Function

'*************************************
'过滤特殊字符
'*************************************
Function CheckStr(byVal ChkStr)
    Dim Str:Str=ChkStr
    If IsNull(Str) Then
        CheckStr = ""
        Exit Function
    End If
    Str = Replace(Str, "&", "&")
    Str = Replace(Str,"'","'")
    Str = Replace(Str,"""",""")
    Dim re
    Set re=new RegExp
    re.IgnoreCase =True
    re.Global=True
    re.Pattern="(w)(here)"
    Str = re.replace(Str,"$1here")
    re.Pattern="(s)(elect)"
    Str = re.replace(Str,"$1elect")
    re.Pattern="(i)(nsert)"
    Str = re.replace(Str,"$1nsert")
    re.Pattern="(c)(reate)"
    Str = re.replace(Str,"$1reate")
    re.Pattern="(d)(rop)"
    Str = re.replace(Str,"$1rop")
    re.Pattern="(a)(lter)"
    Str = re.replace(Str,"$1lter")
    re.Pattern="(d)(elete)"
    Str = re.replace(Str,"$1elete")
    re.Pattern="(u)(pdate)"
    Str = re.replace(Str,"$1pdate")
    re.Pattern="(\s)(or)"
    Str = re.replace(Str,"$1or")
    Set re=Nothing
    CheckStr=Str
End Function

'*************************************
'恢复特殊字符
'*************************************
Function UnCheckStr(ByVal Str)
        If IsNull(Str) Then
            UnCheckStr = ""
            Exit Function
        End If
        Str = Replace(Str,"'","'")
        Str = Replace(Str,""","""")
        Dim re
        Set re=new RegExp
        re.IgnoreCase =True
        re.Global=True
        re.Pattern="(w)(here)"
        str = re.replace(str,"$1here")
        re.Pattern="(s)(elect)"
        str = re.replace(str,"$1elect")
        re.Pattern="(i)(nsert)"
        str = re.replace(str,"$1nsert")
        re.Pattern="(c)(reate)"
        str = re.replace(str,"$1reate")
        re.Pattern="(d)(rop)"
        str = re.replace(str,"$1rop")
        re.Pattern="(a)(lter)"
        str = re.replace(str,"$1lter")
        re.Pattern="(d)(elete)"
        str = re.replace(str,"$1elete")
        re.Pattern="(u)(pdate)"
        str = re.replace(str,"$1pdate")
        re.Pattern="(\s)(or)"
        Str = re.replace(Str,"$1or")
        Set re=Nothing
        Str = Replace(Str, "&", "&")
        UnCheckStr=Str
End Function

'*************************************
'转换HTML代码
'*************************************
Function HTMLEncode(ByVal reString)
    Dim Str:Str=reString
    If Not IsNull(Str) Then

[1] [2] [3] [4] 下一页