<!--#include file="check.asp"-->
<!--#include file="webconn.asp"-->
<!--#include file="../inc/aspip.asp"-->
<!--#include file="../inc/md5.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<link href="web_jspok.css" rel="stylesheet" type="text/css" />
</head>

<body>
<%
Function CheckObjInstalled(strClassString)
	On Error Resume Next
	Dim TmpObj
	Set TmpObj = Server.CreateObject(strClassString)
	IF Err = 0 OR Err = -2147221477 Then
		CheckObjInstalled= "<font color=""#00FF00""><b>√</b></font>"
	ElseIF Err = 1 OR Err = -2147221005 Then
		CheckObjInstalled="<font color=""#FF0000""><b>×</b></font>"
	End IF
	Err.Clear
	Set TmpObj = Nothing
End Function
%>
<%
id=trim(request("adminjob"))
if id="main" or id="" then
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#A3BFE8">
  <tr>
    <td align="center" bgcolor="#E9F1F8">管理区首页</td>
  </tr>
  <tr>
    <td width="43%" align="center" bgcolor="#E9F1F8">&nbsp;</td>
  </tr>
  <tr>
    <td align="left" bgcolor="#FFFFFF">当前登陆用户信息</td>
  </tr>
  <tr>
    <td align="left" bgcolor="#E9F1F8">用户：<%=session("user_admin")%>&nbsp;<br>
时间：<%=now()%><br>
IP地址:<%=getip%><br></td>
  </tr>
  <tr>
    <td align="left" bgcolor="#FFFFFF">用户IE相关信息</td>
  </tr>
  <tr>
    <td align="left" bgcolor="#E9F1F8"><% 
''第三种方法：在appVersion/UserAgent或Request.ServerVariables("Http_User_Agent") 
''=之中截取固定的字符串，把有关浏览器和操作系统的字符串截取出并显示= 
''=显然问题在于，如果某一天Microsoft把浏览器版本的格式改变了，那么此方法会出错 
''=格式：浏览器版本-左数第31个字符起3个字符，系统版本-左数第44个字符起6个字符 

Response.Write Request.ServerVariables("Http_User_Agent")&"<br>" 

Function Browser2(Info) 
Info=Request.ServerVariables("Http_User_Agent") 
If InStr(Info,"MSIE")>0 Then ''判断当前浏览器是否是"Microsoft IE"类型 
Version=Mid(Info,31,3) 
IE="Internet Explorer" 
Response.Write "您的浏览器是:"&IE&" "&Version&"<br>" 
Else 
Response.Write "您的浏览器是:未知的浏览器" 
End if 
End Function 

Function System2(Info) 
Info=Request.ServerVariables("Http_User_Agent") 
If InStr(Info,"Windows")>0 Then ''判断当前操作系统是否是"Windows"平台 
Version=Mid(Info,44,6) 
Plat="Windows" 
''下面还要进行判断版本,以供显示具体的平台 
If InStr(Version,"NT 5.1")>0 Then 
Plat="Windows XP" 
ElseIf InStr(Version,"NT 5.0")>0 Then 
Plat="Windows 2000" 
ElseIf InStr(Version,"NT 4")>0 Then 
Plat="Windows NT" 
ElseIf InStr(Version,"98")>0 Then 
Plat="Windows 98" 
ElseIf InStr(Version,"Me")>0 Then 
Plat="Windows Me" 
ElseIf InStr(Version,"95")>0 Then 
Plat="Windows 95" 
Else 
Plat="未知的操作系统或者是Windows 2003!" 
End if 
Response.Write "您的操作系统是:"&Plat&"<br>" 
Else 
Response.Write "您的操作系统是:未知的操作系统或者是Windows 2003 " 
End if 
End Function
Call Browser2(Info) 
Call System2(Info) 
%></td>
  </tr>
  <tr>
    <td align="left" bgcolor="#FFFFFF">服务器相关信息</td>
  </tr>
  <tr>
    <td align="left" bgcolor="#E9F1F8">本机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 %> 
服务器操作系统:<%=Request.ServerVariables("OS")%> <br>
支持的文件类型：<%=Request.ServerVariables("HTTP_Accept")%> <br>
访问的文件路径：<%=Request.ServerVariables("HTTP_url")%> <br>
用户代理的信息：<%=Request.ServerVariables("HTTP_USER_AGENT")%> <br></td>
  </tr>
    <tr>
    <td align="left" bgcolor="#FFFFFF">服务器组件信息</td>
  </tr>
  <tr>
    <td align="left" bgcolor="#E9F1F8"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>&nbsp;FileUp上传组件：<%=CheckObjInstalled("FileUp.upload")%></td>
    <td>&nbsp;FSO文本读写：<%=CheckObjInstalled("Scripting.FileSystemObject")%></td>
  </tr>
  <tr>
    <td>&nbsp;数据库使用：<%=CheckObjInstalled("adodb.connection")%></td>
    <td>&nbsp;Jmail组件支持：<%=CheckObjInstalled("JMail.SMTPMail")%></td>
  </tr>
  <tr>
    <td>&nbsp;GflSDK组件支持：<%=CheckObjInstalled("GflAx190.GflAx")%></td>
    <td>&nbsp;EasyMail邮件支持：<%=CheckObjInstalled("easymail.Mailsend")%></td>
  </tr>
  <tr>
    <td>&nbsp;无组件上传－ADODB.Stream：<%=CheckObjInstalled("Scripting.Dictionary")%></td>
    <td>&nbsp;无组件上传－Scripting.Dictionary ：<%=CheckObjInstalled("Scripting.Dictionary")%></td>
  </tr>
</table></td>
  </tr>
</table>
<%elseif id="exit" then %>
<!--#include file="logout.asp"-->
<%elseif id="addadmin" then %>
<!--#include file="addadmin.asp"-->
<%elseif id="editadmin" then %>
<!--#include file="editadmin.asp"-->
<%elseif id="webcopy" then %>
<!--#include file="webcopy.asp"-->
<%elseif id="webanthor" then %>
<!--#include file="webanthor.asp"-->
<%elseif id="addnews" then %>
<!--#include file="addnews.asp"-->
<%elseif id="adminnews" then %>
<!--#include file="newsadmin.asp"-->
<%elseif id="addad" then %>
<!--#include file="addad.asp"-->
<%elseif id="adminad" then %>
<!--#include file="adadmin.asp"-->
<%elseif id="adminuser" then %>
<!--#include file="useradmin.asp"-->
<%elseif id="people" then %>
<!--#include file="people.asp"-->
<%elseif id="news" then %>
<!--#include file="news.asp"-->
<%elseif id="product" then %>
<!--#include file="product.asp"-->
<%elseif id="adminvote" then %>
<!--#include file="adminvote.asp"-->
<%elseif id="addfid" then %>
<!--#include file="addfid.asp"-->
<%elseif id="adminfid" then %>
<!--#include file="adminfid.asp"-->
<%elseif id="admincontent" then %>
<!--#include file="admincontent.asp"-->
<%elseif id="admincp" then %>
<!--#include file="product.asp"-->
<%elseif id="addcp" then %>
<!--#include file="add.asp"-->
<%elseif id="webmenu" then %>
<!--#include file="adminmenu.asp"-->
<%elseif id="web" then %>
<!--#include file="adminweb.asp"-->
<%elseif id="adminbk" then %>
<!--#include file="adminbk.asp"-->
<%elseif id="html" then %>
<!--#include file="html.asp"-->
<%elseif id="addvote" then %>
<!--#include file="addvote.asp"-->
<%elseif id="order" then %>
<!--#include file="adminorder.asp"-->
<%end if%>
<!--#include file="copyright.asp"-->
</body>
</html>
