『ASP代码』取当前网页的地址全名，以便返回用

『精品ASP代码』是本人在几年的开发中整理的久经考验的代码。可能技巧不是很强，但是肯定没有问题，而且久经考验。希望对众多ASP新手有帮助。


取当前网页的地址全名，以便返回用
<%
Function LDGetUrl()
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 LDGetUrl()
%>