Question

asp怎样获取本页完整的URL？

Answer 1

Request.ServerVariables("SERVER_NAME") 获取主机名 Request.QueryString 获取url问号后面的所有参数名 这样就可以写一个函数，来取得本页的完整的URL Private Function GetUrl() Dim ScriptAddress, M_ItemUrl, M_item ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) M_ItemUrl = "" If (Request.QueryString <> "") Then ScriptAddress = ScriptAddress & "?" M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) & "&"Nextif right(M_ItemUrl,1)="&" then M_ItemUrl=left(M_ItemUrl,len(M_ItemUrl)-1)end ifGetUrl=Request.ServerVariables("SERVER_NAME")&ScriptAddress & M_ItemUrl