| 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
|
| 点击：1538 发布者：xinyou 发布时间：2018-10-27 09:26:51 | |
|
|
|
