获取当前页面URL的ASP函数

    今天在做一个网站，想到怎么登录后返回原来的也页面，到网上找了这个函数，把URL放到SESSION里面去，搞定，嘿嘿！

 

' ---------------------
' 获取当前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