ASP获取当前路径语句
(2014-06-17 13:41:01)
一、将以下代码放在一个asp页面里，保存后在IE里查看运行结果：
---------------------------------------------------------------------------------------------
本文件ip路径：<%="http://" &
request.servervariables("server_name")&
request.servervariables("script_name")
%>
<br/>
本机ip:<%=request.servervariables("remote_addr")%>
<br/>
服务器名:<%=Request.ServerVariables("SERVER_NAME")%>
<br/>
服务器IP:<%=Request.ServerVariables("LOCAL_ADDR")%>
<br/>
服务器端口:<%=Request.ServerVariables("SERVER_PORT")%>
<br/>
服务器时间:<%=now%>
<br/>
IIS版本:<%=Request.ServerVariables("SERVER_SOFTWARE")%>
<br/>
脚本超时时间:<%=Server.ScriptTimeout%>
<br/>
本文件路径:<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%>
<br/>
服务器CPU数量:<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>
<br/>
服务器解译引擎:<%=ScriptEngine & "/"&
ScriptEngineMajorVersion
&"."&ScriptEngineMinorVersion&"."&ScriptEngineBuildVersion
%> <br/>
服务器操作系统:<%=Request.ServerVariables("OS")%>
<br/>
支持的文件类型：<%=Request.ServerVariables("HTTP_Accept")%>
<br/>
访问的文件路径：<%=Request.ServerVariables("HTTP_url")%>
<br/>
用户代理的信息：<%=Request.ServerVariables("HTTP_USER_AGENT")%>
<br/>
获取url中的文件名和传过来的值:request.ServerVariables("script_name")+"?"+request.ServerVariableS("QUERY_STRING")
<br/>
---------------------------------------------------------------------------------------------
运行结果为：
本文件ip路径：http://localhost/ceshi.asp
本机ip:127.0.0.1
服务器名:localhost
服务器IP:127.0.0.1
服务器端口:8091
服务器时间:2005-7-27 14:28:04
IIS版本:Microsoft-IIS/5.0
脚本超时时间:90
本文件路径:E:\hospital\ceshi.asp
服务器CPU数量:2
服务器解译引擎:VBScript/5.6.7426
服务器操作系统:Windows_NT
支持的文件类型：image/gif, image/x-xbitmap, image/jpeg, image/pjpeg,
application/vnd.ms-powerpoint, application/vnd.ms-excel,
application/msword, application/x-shockwave-flash,*/*
访问的文件路径：/ceshi.asp
用户代理的信息：Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; Maxthon;
COM+ 1.0.2204)
---------------------------------------------------------------------------------------------
二、如若获得此文件的目录可以利用下面的函数：
<%
Public Function ServerPath
Dim Path
Dim Pos
Path="http://" & Request.ServerVariables("server_name") &
Request.ServerVariables("script_name")
Pos=InStrRev(Path,"/")
ServerPath=Left(Path,Pos)
End Function
%>
=====================<br>
所在文件目录：<%=ServerPath%>
<br>
=====================<br>
运行结果为：
=====================
所在文件目录：http://localhost/
=====================
-----------------------------------------------------
|
转载▼
