28,409
社区成员




<%
h = Request.ServerVariables("SERVER_NAME")
u = Request.ServerVariables("URL")
p = Request.ServerVariables("SERVER_PORT")
i = InStrRev(u,"/")
u = Mid(u,1,i)
If p=80 then
url = "http://" & h & u
Else
url = "http://" & h & ":" & p & u
End If
Response.Write url
%>
<%
h = Request.ServerVariables("SERVER_NAME")
p = Request.ServerVariables("SERVER_PORT")
If p=80 then
url = "http://" & h & "/"
Else
url = "http://" & h & ":" & p & "/"
End If
Response.Write url
%>