我是用Request.ServerVariables("HTTP_REFERER")这一句
在WEB上是可以得到的,但是在手机浏览的页面,得到的就为空.
判断上一页的来源 http://www.w3sky.com/2409.html
取得本页地址 http://www.w3sky.com/2973.html
<%
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")
end if
strTemp = strTemp & Request.ServerVariables("URL")
If Trim(Request.QueryString) <> "" Then
strTemp = strTemp & "?" & Trim(Request.QueryString)
end if
GetUrl = strTemp
End Function
response.write "来访地址:" & geturl()
response.end()
%>