例如 当前地址为 http://www.bj.com/inc/dd/cs.asp?get=46454
通过程序获取结果为
http://www.bj.com/inc/dd/
<p>已测试,可直接删减复制使用</p>
1:<%=Request.ServerVariables("HTTP_HOST")%>
<p>获取当前 域名</p>
2:<%=Request.ServerVariables("URL")%>
<p>获取当前域名后的 文件名及目录名</p>
3:<%=Request.ServerVariables("QUERY_STRING")%>
<p>获取当前 参数</p>
4: <%=server.mappath("./") %>
<p>获取当前 磁盘参数</p>
<%
'调试过程,也是我的思路总过程.
'以当前地址 http://www.bj.com/inc/dd/cs.asp?get=46454 做为案例,最后实现获取当前文件所处在的目录.
'结果为: http://www.bj.com/inc/dd/
a = Request.ServerVariables("HTTP_HOST")
b = Request.ServerVariables("URL")
c = a&b
d = instrrev(b,"/") '取第一个斜杠之前字符串 数
%>
<br />
<%=a%>
<br />
<%=b%>
<br />
<%=c%>
<br />
<%=d%>
<br />
<%=left(b,d)%>
<br />
<%url = "http://"&Request.ServerVariables("HTTP_HOST")&left(Request.ServerVariables("URL"),instrrev(Request.ServerVariables("URL"),"/"))%>
<br />
<%=url%>