取当页文件名
Request.ServerVariables("URL")
取所有参数名和参数值
For Each x In Request.QueryString
Response.Write x & "=" & Trim(Request.QueryString(x))
Next
将Request.QueryString换成Request.Form同理取POST的所有参数和值
<%
'得到当前页面的地址
Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp & Request.ServerVariables("SERVER_NAME")
If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT")
strTemp = strTemp & Request.ServerVariables("URL")
If Trim(Request.QueryString) <> "" Then strTemp = strTemp & "?" & Trim(Request.QueryString)
GetUrl = strTemp
End Function
Response.write GetUrl()
%>