[原创]asp获取URL参数的几种方法分析总结

　　GetUrl =request("url")  '这个因为我们没有url=什么字样所以直接pass掉

　　'得到当前页面的地址

　　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

　　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

　　If M_item = "page_num" Then Exit for '此处的作用就是过滤掉Page_num这个页次的参数(该参数是在page_turn.asp中自行设置的，根据个人设定而变)，否则每次翻页都会叠加这个参数，虽然不影响功能，但总归不太好吧~~

　　If InStr(page,M_Item)=0 Then

　　M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&""))

　　else

　　M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) & "&"

　　End If

　　Next

　　Else

　　ScriptAddress = ScriptAddress & "?"

　　end if

　　GetUrl = ScriptAddress & M_ItemUrl

　　End Function

　　response.write replace(request.querystring,".html","")