推荐下天枫常用ASP函数封装，推荐大家使用(14)

    '****************************************************
    Public Function GetUrl()   
        Dim strTemp     
        strTemp=Request.ServerVariables("Script_Name")      
        If  Trim(Request.QueryString)<> "" Then
            strTemp=strTemp&"?"
            For Each M_item In Request.QueryString
                strTemp=strTemp&M_item&"="&Server.UrlEncode(Trim(Request.QueryString(""&M_item&"")))
            next
        end if
        GetUrl=strTemp   
    End Function 

    '****************************************************
    '函数名：CUrl
    '作  用：获取当前页面URL的函数
    '返回值：当前页面URL的函数
    '****************************************************
    Function CUrl()
        Domain_Name = LCase(Request.ServerVariables("Server_Name"))
        Page_Name = LCase(Request.ServerVariables("Script_Name"))
        Quary_Name = LCase(Request.ServerVariables("Quary_String"))
        If Quary_Name ="" Then
            CUrl = "http://"&Domain_Name&Page_Name
        Else
            CUrl = "http://"&Domain_Name&Page_Name&"?"&Quary_Name
        End If
    End Function

    '****************************************************
    '函数名：GetExtend
    '作  用：取得文件扩展名
    '参  数：filename ----文件名
    '****************************************************
    Public Function GetExtend(filename)
        dim tmp
        if filename<>"" then