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


            If Var Is Nothing Then IsBlank = True
        Case IsEmpty(Var), IsNull(Var)
            IsBlank = True
        Case IsArray(Var)
            If UBound(Var) = 0 Then IsBlank = True
        Case IsNumeric(Var)
            If (Var = 0) Then IsBlank = True
        Case Else
            If Trim(Var) = "" Then IsBlank = True
    End Select
End Function

3.得到浏览器目前的URL

Function GetCurURL()
    If Request.ServerVariables("HTTPS") = "on" Then
        GetCurrentURL = "https://"
    Else
        GetCurrentURL = "http://"
    End If
    GetCurURL = GetCurURL & Request.ServerVariables("SERVER_NAME")
    If (Request.ServerVariables("SERVER_PORT") <> 80) Then GetCurURL = GetCurURL & ":" & Request.ServerVariables("SERVER_PORT")
    GetCurURL = GetCurURL & Request.ServerVariables("URL")
    If (Request.QueryString <> "") Then GetCurURL = GetCurURL & "?" & Request.QueryString
End Function

4.MD5加密函数
Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32

Private m_lOnBits(30)
Private m_l2Power(30)

m_lOnBits(0) = CLng(1)
m_lOnBits(1) = CLng(3)
m_lOnBits(2) = CLng(7)
m_lOnBits(3) = CLng(15)
m_lOnBits(4) = CLng(31)
m_lOnBits(5) = CLng(63)
m_lOnBits(6) = CLng(127)
m_lOnBits(7) = CLng(255)
m_lOnBits(8) = CLng(511)
m_lOnBits(9) = CLng(1023)
m_lOnBits(10) = CLng(2047)
m_lOnBits(11) = CLng(4095)
m_lOnBits(12) = CLng(8191)
m_lOnBits(13) = CLng(16383)
m_lOnBits(14) = CLng(32767)
m_lOnBits(15) = CLng(65535)
m_lOnBits(16) = CLng(131071)
m_lOnBits(17) = CLng(262143)

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/2946.html