获取当前Url参数的函数

ASP　2008/1/21 8:10:29　　点击：不统计

Function GetUrl()

Dim ScriptAddress,Servername,qs

ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))

Servername = CStr(Request.ServerVariables("Server_Name"))

qs=Request.QueryString

if qs<>"" then

GetUrl ="http://"& Servername & ScriptAddress &"?"&qs

else

GetUrl ="http://"& Servername & ScriptAddress

end if

End Function

·上一篇：网络采集程序asp >> 　　　·下一篇：获取前一页url代码 >>