获取当前Url参数的函数

答案：
要求：
任何一页面都可登录系统，即每一页面都显示登录表单，登录后自动刷新到该页。 
实现： 
第一步，我在HEAD页中，加入登录表单，因每页都包含HEAD页，所以，每页都含登录表单即实现。 
第二步，验证登录后再自动刷新到前登录页，则需知道前登录页的URL，特别是前URL一般都含有参数，若无参数，则只用“Request.ServerVariables("SCRIPT_NAME")”即可，但含参数的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 
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 

上一个：ASP.net(VB)编程入门进阶[基础篇一]
下一个：ASP.net(VB)编程入门进阶[基础篇二]