|
- response.write Request.ServerVariables("SERVER_NAME")'
- response.Write "<p>"& PageUrl &"</p>"
- function PageUrl
- dim sPort
- sPort = Request.ServerVariables("SERVER_PORT")
- if sPort = "80" then
- sPort = ""
- else
- sPort = ":" & sPort
- end if
- PageUrl = "http://" & Request.ServerVariables("SERVER_NAME") & sPort & _
- Request.ServerVariables("URL") & "?" & _
- Request.ServerVariables("QUERY_STRING")
- end function
复制代码
|
|