怎样ASP http://www.k169.com/1.asp获取当前页URL

怎样ASP http://www.k169.com/1.asp获取当前页URL

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这个函数就是取当前页面的url的 Request.ServerVariables("SERVER_NAME") 是网站的域名，Request.ServerVariables("SERVER_PORT")网站所使用的端口Request.QueryString 是？号后面的字符串。