<!--#include file="../Inc/adminESCMS_conn.asp" -->
<!--#include file="../Inc/adminESCMS_config.asp" --><!--#include file="check.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>栏目管理</title>
<link href="Images/admin.css" rel="stylesheet" type="text/css" />
</head>
<body>
<table width="750" border="1" cellpadding="2" cellspacing="0" bordercolor="#666666">
  <tr>
    <td height="24" colspan="2" align="center" background="Images/bg1.gif"><strong>欢迎您使用网域高科酒店宾馆网站管理系统正式版V2008</strong></td>
  </tr>
  <tr>
    <td width="508" height="24" align="left">程序版本：<%=ESCMS_Copyright%></td>
    <td width="228" align="left">今天是：<%Response.Write(Application("date_chinese"))%></td>
  </tr>

<%
Call DBConnBegin() 

Sql="Select * From Type order by Type_ID"
oRs.open Sql,oConn,1,1
Do while Not oRs.eof
select case oRs("Type_type")
case 1
	Type_Name = "单页"
case 2
	Type_Name = "新闻"
case 3
	Type_Name = "产品"
End select
%>
<%
oRs.movenext
loop
Call DBConnEnd()
%>
  <tr>
    <td height="24" colspan="2" align="left">欢迎您：<%=session("ES_admin")%>&nbsp;&nbsp;本程序授权给 <%=session("ES_web_name")%> 使用</td>
  </tr>
  <tr>
    <td height="24" colspan="2" align="left">快捷管理：<a href="ES_system.asp">系统设置</a> | <a href="ES_News_list.asp">新闻管理</a></td>
  </tr>
  <tr>
    <td height="24" colspan="2" align="left"><table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
      <tr>
        <td height="25" align="center"  class="xingmu" onclick="showsubmenu(0)"><div align="left"><strong>服务器有关参数</strong>
                </div></td>
      </tr>
      <tr class="hback">
        <td style="display" id='submenu0'><table width="100%" border="0" align="center" cellpadding="5" cellspacing="1">
            <tr height="18">
              <td width="130" bgcolor="#F8F7F5">&nbsp;服务器名</td>
              <td width="170" height="18" bgcolor="#F8F7F5">&nbsp;<%=Request.ServerVariables("SERVER_NAME")%></td>
              <td width="130" height="18" bgcolor="#F8F7F5">&nbsp;服务器操作系统</td>
              <td width="170" height="18" bgcolor="#F8F7F5">&nbsp;<%=Request.ServerVariables("OS")%></td>
            </tr>
            <tr height="18">
              <td bgcolor="#F8F7F5">&nbsp;服务器IP</td>
              <td bgcolor="#F8F7F5">&nbsp;<%=Request.ServerVariables("LOCAL_ADDR")%></td>
              <td bgcolor="#F8F7F5">&nbsp;服务器端口</td>
              <td bgcolor="#F8F7F5">&nbsp;<%=Request.ServerVariables("SERVER_PORT")%></td>
            </tr>
            <tr height="18">
              <td bgcolor="#F8F7F5">&nbsp;服务器时间</td>
              <td bgcolor="#F8F7F5">&nbsp;<%=now%></td>
              <td bgcolor="#F8F7F5">&nbsp;服务器CPU数量</td>
              <td bgcolor="#F8F7F5">&nbsp;<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
            </tr>
            <tr height="18">
              <td bgcolor="#F8F7F5">&nbsp;IIS版本</td>
              <td height="18" bgcolor="#F8F7F5">&nbsp;<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
              <td height="18" bgcolor="#F8F7F5">&nbsp;脚本超时时间</td>
              <td height="18" bgcolor="#F8F7F5">&nbsp;<%=Server.ScriptTimeout%> 秒</td>
            </tr>
            <tr height="18">
              <td bgcolor="#F8F7F5">&nbsp;Application变量</td>
              <td height="18" bgcolor="#F8F7F5">&nbsp;
                  <%Response.Write(Application.Contents.Count & "个 ")%>              </td>
              <td height="18" bgcolor="#F8F7F5">&nbsp;Session变量<br />              </td>
              <td height="18" bgcolor="#F8F7F5">  <%Response.Write(Session.Contents.Count&"个 ")%>              </td>
            </tr>
            <tr height="18">
              <td height="18" bgcolor="#F8F7F5">&nbsp;<a href="?action=showvariables">所有服务器参数</a></td>
              <td height="18" bgcolor="#F8F7F5">&nbsp;
                  <%Response.Write(Request.ServerVariables.Count&"个 ")%>              </td>
              <td height="18" bgcolor="#F8F7F5">&nbsp;服务器环境变量</td>
              <td height="18" bgcolor="#F8F7F5"> <%
			On Error Resume Next
			dim WshShell,WshSysEnv
			Set WshShell = server.CreateObject("WScript.Shell")
			Set WshSysEnv = WshShell.Environment
			if err then
				Response.Write("服务器不支持WScript.Shell组件")
				err.clear
			else
				Response.Write(WshSysEnv.count &"个 ")
				if WshSysEnv.count>0 then Response.Write("[<a href=""?action=showwsh"">遍历环境变量</a>]") 
		 	end if
		  %>              </td>
            </tr>

            <tr height="18">
              <td align="left">&nbsp;本文件实际路径</td>
              <td height="8" colspan="3" bgcolor="#F8F7F5">&nbsp;<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%></td>
            </tr>
          </table>
          </td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td height="24" colspan="2" align="left"><table width="98%" height="105" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
      <tr class="hback">
        <td height="25" colspan="2" class="xingmu">使用本软件，请确认的服务器和你的浏览器满足以下要求：</td>
      </tr>
      <tr class="hback">
        <td width="48%" height="25" bgcolor="#F8F7F5">　JRO.JetEngine(ACCESS&nbsp; 数据库<span class="small2">)：</span>
            <%
		On Error Resume Next
		Server.CreateObject("JRO.JetEngine")
		if err=0 then 
		  response.write("√")
		else
		  response.write("×")
		end if	 
		err=0
	 %>
        </td>
        <td width="52%" height="25" bgcolor="#F8F7F5">　数据库使用:
          <%
		On Error Resume Next
		Server.CreateObject("Adodb.Connection")
		if err=0 then 
		  response.write("√,可以使用本系统")
		else
		  response.write("×,不能使用本系统")
		end if	 
		err=0
	%>
        </td>
      </tr>
      <tr class="hback">
        <td height="25" bgcolor="#F8F7F5">　<span class="small2">FSO</span>文本文件读写<span class="small2">：</span>
            <%
					On Error Resume Next
					Server.CreateObject(ESCMS_FSO)
					if err=0 then 
					  response.write("√")
					else
					  response.write("×")
					end if	 
					err=0
				   %>
        </td>
        <td height="25" bgcolor="#F8F7F5"> &nbsp;&nbsp;Adodb.Stream: 
					<%Server.CreateObject("Adodb.Stream")
					if err=0 then 
					  response.write("√")
					else
					  response.write("×")
					end if	 
					err=0%>
					</td>
      </tr>
      <tr class="hback">
        <td height="25" colspan="2" bgcolor="#F8F7F5">　客户端浏览器版本：
          <%
		    Dim Agent,Browser,version,tmpstr
		    Agent=Request.ServerVariables("HTTP_USER_AGENT")
		    Agent=Split(Agent,";")
		    If InStr(Agent(1),"MSIE")>0 Then
				Browser="MS Internet Explorer "
				version=Trim(Left(Replace(Agent(1),"MSIE",""),6))
			ElseIf InStr(Agent(4),"Netscape")>0 Then 
				Browser="Netscape "
				tmpstr=Split(Agent(4),"/")
				version=tmpstr(UBound(tmpstr))
			ElseIf InStr(Agent(4),"rv:")>0 Then
				Browser="Mozilla "
				tmpstr=Split(Agent(4),":")
				version=tmpstr(UBound(tmpstr))
				If InStr(version,")") > 0 Then 
					tmpstr=Split(version,")")
					version=tmpstr(0)
				End If
			End If
			response.Write(""&Browser&"  "&version&"")
		  %>
          [需要IE5.5或以上,服务器建议采用Windows 2000或Windows 2003 Server]</td>
      </tr>
    </table></td>
  </tr>
</table>

</body>
</html>
