<%
function GetUrl()
on Error Resume Next
Dim strTemp
if LCase(request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
end if
strTemp = strTemp & Request.ServerVariables("SERVER_NAME")
if Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT")
strTemp = strTemp & Request.ServerVariables("URL")
if trim(request.QueryString) <> "" Then strTemp = strTemp & "?" & Trim(Request.QueryString)
GetUrl = strTemp
End Function
response.write GetUrl()
%>
asp获取当前完整路径
最新推荐文章于 2023-04-11 17:17:29 发布