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

答案:2 悬赏:70

解决时间 2021-02-18 03:58

提问者网友：时间却是纷扰
2021-02-17 13:14

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

最佳答案

二级知识专家网友：为你轻狂半世殇
2021-02-17 14:41

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

全部回答

1楼网友：滚刀废物浮浪人
2021-02-17 15:45

cstr(request.servervariables("script_name")) 获取本页名 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 & "?" for each m_item in request.querystring m_itemurl = m_itemurl & m_item &"="& server.urlencode(request.querystring(""&m_item&"")) & "&" next if right(m_itemurl,1)="&" then m_itemurl=left(m_itemurl,len(m_itemurl)-1) end if geturl=request.servervariables("server_name")&scriptaddress & m_itemurl end function response.write "http://"&geturl

我要举报

如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！