asp取当前页的url地址

最新推荐文章于 2021-06-05 11:03:39 发布

tyguaike

最新推荐文章于 2021-06-05 11:03:39 发布

阅读量818

点赞数

文章标签： url asp server function

本文链接：https://blog.csdn.net/tyguaike/article/details/1664608

版权

asp取当前页的url地址

分类: 技术文章 | 标签: url, 函数, asp

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")
 end if
 strTemp = strTemp & Request.ServerVariables("URL")
 If Trim(Request.QueryString) <> "" Then
 strTemp = strTemp & "?" & Trim(Request.QueryString)
 end if
 GetUrl = strTemp
End Function

Response.Write(Request.ServerVariables("HTTPS") &" ")
Response.Write(Request.ServerVariables("SERVER_NAME") &" ")
Response.Write(Request.ServerVariables("SERVER_PORT") &" ")
Response.Write(Request.ServerVariables("URL") &" ")
Response.Write(Request.QueryString &" ")
Response.Write(GetUrl())