获取当前完整Url字符串的函数

1. Function GetUrl()
   
2.   Dim ScriptAddress,Servername,qs
   
3.   Dim PROTOCOL
   
4.   If (Request.ServerVariables("HTTPS") = "off") Then
   
5.   PROTOCOL="http://"
   
6.   else
   
7.   PROTOCOL="https://"
   
8.   end if
   
9.   ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
   
10.   Servername = CStr(Request.ServerVariables("Server_Name"))
    
11.   qs=Request.QueryString
    
12.   if qs<>"" then
    
13.   GetUrl =PROTOCOL& Servername & ScriptAddress &"?"&qs
    
14.   else
    
15.   GetUrl =PROTOCOL& Servername & ScriptAddress
    
16.   end if
    
17. End Function

复制代码

收藏，做个忠实的观（听）众！