查看当前URL的函数

1. Function GetSelfURL()
   
2.     If Request.ServerVariables("HTTPS")="on" Then
   
3.         sSelfURL = "https://"
   
4.     ElseIf Request.ServerVariables("HTTPS")="off" Then
   
5.         sSelfURL = "http://"
   
6.     End If
   
7.     sSelfURL = sSelfURL & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO")
   
8.     sQuery = Request.ServerVariables("QUERY_STRING")
   
9.     If sQuery <> "" Then
   
10.         sSelfURL = sSelfURL & "?" & sQuery
    
11.     End If
    
12.     GetSelfURL = sSelfURL
    
13. End Function

复制代码