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()
怎样取得当页文件名和参数,其中参数名不定,参数个数也不定
comments powered by Disqus