怎样取得当页文件名和参数,其中参数名不定,参数个数也不定

 1   
 2'得到当前页面的地址   
 3Function GetUrl()   
 4On Error Resume Next   
 5Dim strTemp   
 6If LCase(Request.ServerVariables("HTTPS")) = "off" Then   
 7strTemp = "http://"   
 8Else   
 9strTemp = "https://"   
10End If   
11strTemp = strTemp & Request.ServerVariables("SERVER_NAME")   
12If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT")   
13strTemp = strTemp & Request.ServerVariables("URL")   
14If Trim(Request.QueryString) <> "" Then strTemp = strTemp & "?" & Trim(Request.QueryString)   
15GetUrl = strTemp   
16End Function   
17Response.write GetUrl()   
Published At
Categories with Web编程
Tagged with
comments powered by Disqus