ASP获取当前路径语句

(2014-06-17 13:41:01)

转载▼

标签： it asp

分类： 开发—VB-ASP

一、将以下代码放在一个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/
=====================
-----------------------------------------------------