theZ http://thez.javaeye.com UTF-8 Copyright 2003-2008, JavaEye.com http://blogs.law.harvard.edu/tech/rss JavaEye - 做最棒的软件开发交流社区 asp获取当前完整路径 theZ 作者: theZ  链接：http://thez.javaeye.com/blog/185837  发表时间: 2008年04月23日

声明：本文系JavaEye网站发布的原创博客文章，未经作者书面许可，严禁任何网站转载本文，否则必将追究法律责任！ 

<%
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")
  strTemp = strTemp & Request.ServerVariables("URL")
  if trim(request.QueryString) <> "" Then strTemp = strTemp & "?" & Trim(Request.QueryString)
  GetUrl = strTemp
End Function
response.write GetUrl()
%>

本文的讨论也很精彩，浏览讨论>>


JavaEye推荐



]]> Wed, 23 Apr 2008 12:08:00 +0800 http://thez.javaeye.com/blog/185837 http://thez.javaeye.com/blog/185837