凹丫丫网络社区 » 【网页编程】 » ASP获取当前页URL（带参数）

oyaya 发表于 2008-3-30 10:43

ASP获取当前页URL（带参数）

<%
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
response.write GetUrl()
%>

稻草人 发表于 2008-4-1 20:33

这个东西很实用的

TroyHorse 发表于 2008-4-13 17:40

学习了，楼主辛苦了！！！

查看完整版本: ASP获取当前页URL（带参数）