ASP如何取得当前页URL方法
2011-01-17 16:01
113 查看
'获取当前Url参数的函数A
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 InStr(page,M_Item)=0 Then
M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) & "&"
End If
Next
end if
GetUrl = ScriptAddress & M_ItemUrl
End Function
'=============================
'获取当前页面URL的函数B
Function Cur_Url()
Domain_Name = LCase(Request.ServerVariables("Server_Name"))
Page_Name = LCase(Request.ServerVariables("Script_Name"))
Quary_Name = LCase(Request.ServerVariables("Quary_String"))
If Quary_Name ="" Then
Cur_Url = "http://"&Domain_Name&Page_Name
Else
Cur_Url = "http://"&Domain_Name&Page_Name&"?"&Quary_Name
End If
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 InStr(page,M_Item)=0 Then
M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) & "&"
End If
Next
end if
GetUrl = ScriptAddress & M_ItemUrl
End Function
'=============================
'获取当前页面URL的函数B
Function Cur_Url()
Domain_Name = LCase(Request.ServerVariables("Server_Name"))
Page_Name = LCase(Request.ServerVariables("Script_Name"))
Quary_Name = LCase(Request.ServerVariables("Quary_String"))
If Quary_Name ="" Then
Cur_Url = "http://"&Domain_Name&Page_Name
Else
Cur_Url = "http://"&Domain_Name&Page_Name&"?"&Quary_Name
End If
End Function
相关文章推荐
- ASP.NET 如何取得 Request URL 的各个部分
- ASP.NET 如何取得 Request URL 的各個部分?
- ASP.NET 如何取得 Request URL 的各個部分
- ASP.NET 如何取得 Request URL 的各个部分
- ASP.NET 如何取得 Request URL 的各個部分
- ASP.NET中利用Segments取得URL的文件名的一种方法分享
- ASP.NET 如何取得 Request URL 的各个部分
- ASP.NET 如何取得 Request URL 的各個部分
- ASP.NET 取得 Request URL 的各个部分和通过ASP.NET获取URL地址的方法
- 如何取得当前页完整URL (含HTTP头信息)
- ASP.NET 取得 Request URL 的各个部分和通过ASP.NET获取URL地址的方法
- ASP.NET 如何取得 Request URL 的各个部分
- ASP.NET 如何取得 Request URL 的各个部分 (转载)
- ASP.NET 如何取得 Request URL 的各个部分
- asp如何取得新插入记录的ID(ACCESS库和MSSQL方法不同)
- ASP.NET 如何取得 Request URL 的各個部分
- ASP.NET 取得 Request URL 的各个部分和通过ASP.NET获取URL地址的方法
- ASP.NET 如何取得 Request URL 的各個部分 [转]
- ASP.NET 如何取得 Request URL 的各个部分(转)
- asp如何取得新插入记录的ID(ACCESS库和MSSQL方法不同) .