ASP获取当前页URL<br /> <br /> ASP获取当前页URL，特别是前URL一般都含有参数，若无参数，则只用“Request.ServerVariables(&quot;SCRIPT_NAME&quot;)”即可，但含参数的URL如何得到呢？用如下函数实现： <br /> <br /> '获取当前Url参数的函数<br /> Private Function GetUrl()<br /> Dim ScriptAddress, M_ItemUrl, M_item<br /> ScriptAddress = CStr(Request.ServerVariables(&quot;SCRIPT_NAME&quot;)) '取得当前地址<br /> M_ItemUrl = &quot;&quot;<br /> If (Request.QueryString &lt;&gt; &quot;&quot;) Then<br /> ScriptAddress = ScriptAddress &amp; &quot;?&quot;<br /> For Each M_item In Request.QueryString<br /> If InStr(page,M_Item)=0 Then<br /> M_ItemUrl = M_ItemUrl &amp; M_Item &amp;&quot;=&quot;&amp; Server.URLEncode(Request.QueryString(&quot;&quot;&amp;M_Item&amp;&quot;&quot;)) &amp; &quot;&amp;&quot;<br /> End If<br /> Next<br /> end if<br /> GetUrl = ScriptAddress &amp; M_ItemUrl<br /> End Function<br /> <br /> <br /> <br /> 另外，可以写成一个函数<br /> Function Cur_Url() '获取当前页面URL的函数<br /> Domain_Name = LCase(Request.ServerVariables(&quot;Server_Name&quot;))<br /> Page_Name = LCase(Request.ServerVariables(&quot;Script_Name&quot;))<br /> Quary_Name = LCase(Request.ServerVariables(&quot;Quary_String&quot;))<br /> If Quary_Name =&quot;&quot; Then<br /> Cur_Url = &quot;http://&quot;&amp;Domain_Name&amp;Page_Name<br /> Else<br /> Cur_Url = &quot;http://&quot;&amp;Domain_Name&amp;Page_Name&amp;&quot;?&quot;&amp;Quary_Name<br /> End If<br /> End Function<br />