admin_lookmsg.asp

机票订票系统,使用ASP

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!--#include file="conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
managemode
dim action
action=trim(request("action"))

select case action
case "lookserver"
lookserver
case else
response.write("<script>alert('错误的传递参数！');history.back(1);</script>")
end select

sub lookserver
%><table width="618" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr align="center" bgcolor="#F7F7F7">
    <td width="229" height="25">功能描述</td>
    <td width="386" height="25">服务器变量</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 服务器的域名 </td>
    <td>　<%=Request.ServerVariables("server_name")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 服务器的IP地址</td>
    <td>　<%=Request.ServerVariables("LOCAL_ADDR")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 服务器操作系统</td>
    <td>　<%=Request.ServerVariables("OS")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 服务器解译引擎</td>
    <td>　<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 服务器软件的名称及版本</td>
    <td>　<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 服务器正在运行的端口</td>
    <td>　<%=Request.ServerVariables("server_port")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 


 服务器CPU数量

</td>
    <td>　<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 请求的物理路径</td>
    <td>　<%=Request.ServerVariables("path_translated")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 在域名根目录外的到被请求页面的路径</td>
    <td>　<%=Request.ServerVariables("path_info")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 发出request的方式</td>
    <td>　<%=Request.ServerVariables("request_method")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 


 脚本连接超时时间

</td>
    <td>　<%=Server.ScriptTimeout%>秒</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 程序被调用的路径</td>
    <td>　<%=Request.ServerVariables("script_name")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 发出request请求的远端机器的名称</td>
    <td>　<%=Request.ServerVariables("remote_host")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 发出request请求的远端机器的IP名称</td>
    <td>　<%=Request.ServerVariables("remote_addr")%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="22">　


 client可以request的浏览器类型</td>
    <td>　<%=Request.ServerVariables("http_user_agent")%></td>
  </tr>
</table>
<%
end sub
manageend
%>