为什么博客

最近好多人在讨论ASP获取UR的方法，我也想给zblog做一个记录访客来源地址。我从baidu 搜索了几个方法，从方法来看有的的比较复杂，要实现的话还要做很多事情。
方法一：简单，得不到参数，只有一个虚拟路径
GetUrl =request("url")

方法二：得到整个URL，得到参数
<br />'得到当前页面的地址 <br />    <br />    Function     GetUrl()     <br />    On     Error     Resume     Next     <br />    Dim     strTemp     <br />    If     LCase(Request.ServerVariables("HTTPS"))     =     "off"     Then     <br />    strTemp     =     "http://"     <br />    Else     <br />    strTemp     =     "https://"     <br />    End     If     <br />    strTemp     =     strTemp     &     Request.ServerVariables("SERVER_NAME")     <br />    If     Request.ServerVariables("SERVER_PORT")     <>     80     Then     strTemp     =     strTemp     &     ":"     &     Request.ServerVariables("SERVER_PORT")     <br />    strTemp     =     strTemp     &     Request.ServerVariables("URL")     <br />    If     Trim(Request.QueryString)     <>     ""     Then     strTemp     =     strTemp     &     "?"     &     Trim(Request.QueryString)     <br />    GetUrl     =     strTemp     <br />    End     Function   <br />

方法二：得到虚拟路径，得到参数
<br />Private Function GetUrl() <br />Dim ScriptAddress,M_ItemUrl,M_item<br />ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) '取得当前地址 <br />M_ItemUrl = "" <br />If (Request.QueryString <> "") Then <br />ScriptAddress = ScriptAddress & "?" <br />For Each M_item In Request.QueryString<br />If M_item = "page_num" Then Exit for '此处的作用就是过滤掉Page_num这个页次的参数(该参数是在page_turn.asp中自行设置的，根据个人设定而变)，否则每次翻页都会叠加这个参数<br />If InStr(page,M_Item)=0 Then <br />M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&""))<br />else<br />M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) & "&"<br />End If <br />Next<br />Else<br />ScriptAddress = ScriptAddress & "?"<br />end if <br />GetUrl = ScriptAddress & M_ItemUrl <br />End Function <br />