有时候我么您需要获取网址，端口、路径文件名、参数等，这里就为大家分享一下这个函数代码，需要的朋友可以参考下
函数1
<%
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.Ser
