<!-- #INCLUDE FILE="include/onlogin.asp" -->
<html>
<head>
<title><%response.write web_var(web_config,1)%> - 管理页面</title>
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<link rel=stylesheet href='images/joekoe.css' type=text/css>
<%
select case action
case "left"
  call admin_left()
case "main"
  call admin_main()
case else
  call admin_frame()
end select

sub admin_main()
%><body topmargin=0 leftmargin=0 bgcolor=<%response.write color1%>>
<table border=0 height='100%' width=600 align=center>
<tr height='100%' align=center><td width='30%'>
<%
if trim(request.querystring("error"))="popedom" then
  response.write "<font class=red_2>可能您没有相关的后台管理权限</font>"
end if
%><br><br><br>
<img src='images/small/xx.gif' border=0><br><br><br>
<font class=red>欢迎管理员（<font class=blue><b><%response.write session("joekoe_online_admines")%></b></font>）的登陆</font>
</td><td width='70%'>
  <table border=1 width='100%' cellspacing=0 cellpadding=1<%response.write table1%>>
  <tr><td colspan=2 align=center bgcolor=#ffffff class=red_3>服务器的有关参数</td></tr>
  <tr><td>&nbsp;服务器名：</td><td>&nbsp;<%response.write Request.ServerVariables("SERVER_NAME")%></td></tr>
  <tr><td>&nbsp;服务器IP：</td><td>&nbsp;<%response.write Request.ServerVariables("LOCAL_ADDR")%></td></tr>
  <tr><td>&nbsp;服务器端口：</td><td>&nbsp;<%response.write Request.ServerVariables("SERVER_PORT")%></td></tr>
  <tr><td>&nbsp;服务器时间：</td><td>&nbsp;<%response.write now%></td></tr>
  <tr><td>&nbsp;IIS版本：</td><td>&nbsp;<%response.write Request.ServerVariables("SERVER_SOFTWARE")%></td></tr>
  <tr><td>&nbsp;服务器操作系统：</td><td>&nbsp;<%response.write Request.ServerVariables("OS")%></td></tr>
  <tr><td>&nbsp;脚本超时时间：</td><td>&nbsp;<%response.write Server.ScriptTimeout%> 秒</td></tr>
  <tr><td>&nbsp;站点物理路径：</td><td>&nbsp;<%response.write request.ServerVariables("APPL_PHYSICAL_PATH")%></td></tr>
  <tr><td>&nbsp;服务器CPU数量：</td><td>&nbsp;<%response.write Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td></tr>
  <tr><td>&nbsp;服务器解译引擎：</td><td>&nbsp;<%response.write ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td></tr>
  <tr><td colspan=2 align=center bgcolor=#ffffff class=red_3>组件支持有关参数</td></tr>
  <tr><td>&nbsp;数据库(ADO)支持：</td><td>&nbsp;<%if object_install("adodb.connection")=false then%><font class=red><b>×</b></font> （不支持）<% else %><b>√</b> （支持）<% end if %></td></tr>
  <tr><td>&nbsp;FSO文本读写：</td><td>&nbsp;<%if object_install("scripting.filesystemobject")=false then%><font class=red><b>×</b></font> （不支持）<% else %><b>√</b> （支持）<% end if %></td></tr>
  <tr><td>&nbsp;Stream文件流：</td><td>&nbsp;<%if object_install("Adodb.Stream")=false then%><font class=red><b>×</b></font> （不支持）<% else %><b>√</b> （支持）<% end if %></td></tr>
  <tr><td>&nbsp;Jmail组件支持：</td><td>&nbsp;<%If object_install("JMail.SMTPMail")=false Then%><font class=red><b>×</b></font> （不支持）<% else %><b>√</b> （支持）<% end if %></td></tr>
  <tr><td>&nbsp;CDONTS组件支持：</td><td>&nbsp;<%If object_install("CDONTS.NewMail")=false Then%><font class=red><b>×</b></font> （不支持）<% else %><b>√</b> （支持）<% end if %></td></tr>
  </table>
</td></tr>
</table><%
end sub

function object_install(strclassstring)
  on error resume next
  object_install=false
  dim xtestobj
  err=0
  set xtestobj=server.createobject(strclassstring)
  if err=0 then object_install=true
  set xtestobj=nothing
  err=0
end function

sub admin_left()
%><base target=main>
<style type=text/css>
body  { background:#799AE1; margin:0px; font:9pt 宋体; }
table  { border:0px; }
td  { font:normal 12px 宋体; }
img  { vertical-align:bottom; border:0px; }
a  { font:normal 12px 宋体; color:#000000; text-decoration:none; }
a:hover  { color:#428EFF;text-decoration:underline; }
.sec_menu  { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#D6DFF7; }
.menu_title  { }
.menu_title span  { position:relative; top:2px; left:8px; color:#215DC6; font-weight:bold; }
.menu_title2  { }
.menu_title2 span  { position:relative; top:2px; left:8px; color:#428EFF; font-weight:bold; }
</style>
<SCRIPT language=javascript1.2>
function showsubmenu(sid)
{
whichEl = eval("submenu" + sid);
if (whichEl.style.display == "none")
{
eval("submenu" + sid + ".style.display=\"\";");
}
else
{
eval("submenu" + sid + ".style.display=\"none\";");
}
}
</SCRIPT>


<%
REM 管理栏目设置
dim menu(5,13)
menu(0,0)="≡ 网 站 配 置 ≡"
menu(1,0)="≡ 用 户 设 置 ≡"
menu(2,0)="≡ 系 统 设 置 ≡"
menu(3,0)="≡ 版 面 管 理 ≡"
menu(4,0)="≡ 插 件 管 理 ≡"
menu(5,0)="≡ 数 据 管 理 ≡"
'---------------------------------------------网 站 配 置
menu(0,1)="<a href='admin_config_edit.asp'>配置修改</a>"
'---------------------------------------------用 户 设 置
menu(1,1)="<a href='admin_user.asp'>用户管理</a>"
menu(1,2)="<a href='admin_popedom.asp'>权限管理</a>"
menu(1,3)="<a href='admin_cards.asp'>会 员 卡</a>"
menu(1,4)="<a href='admin_mail.asp?action=addmail'>短信群发</a>"
'---------------------------------------------系 统 设 置
menu(2,1)="<a href='admin_nsort.asp'>分类管理</a>"
menu(2,2)="<a href='admin_update.asp'>网站公告</a>"
menu(2,3)="<a href='admin_adsmain.asp'>广告管理</a>"
menu(2,4)="<a href='admin_gongao.asp'>公告管理</a>"
menu(2,5)="<a href='admin_links.asp'>友情链接</a>"
menu(2,6)="<a href='admin_vote.asp'>调查管理</a>"
menu(2,7)="<a href='admin_upload_list.asp'>上传管理</a>"
'---------------------------------------------版 面 管 理
menu(3,1)="<a href='admin_forum.asp'>论坛管理</a>"
menu(3,2)="<a href='admin_business.asp'>交易管理</a>"
menu(3,3)="<a href='admin_article.asp'>文章管理</a>"
menu(3,4)="<a href='admin_down.asp'>下载管理</a>"
menu(3,5)="<a href='admin_gallery.asp'>图库管理</a>"
menu(3,6)="<a href='admin_flash.asp'>动画管理</a>"
menu(3,7)="<a href='admin_video.asp'>影视管理</a>"
menu(3,8)="<a href='admin_website.asp'>网站推荐</a>"
menu(3,9)="<a href='admin_review.asp'>评论管理</a>"
menu(3,10)="<a href='gbook.asp' target=_blank>留言管理</a>"
'---------------------------------------------插 件 管 理
menu(4,1)="<a href='z_bank_admin.asp'>银行管理</a>"
menu(4,2)="<a href=''>预留栏目</a>"
menu(4,3)="<a href=''>预留栏目</a>"
menu(4,4)="<a href=''>预留栏目</a>"
'--------------------------------------------数 据 管 理
menu(5,1)="<a href=admin_datamanage.asp?action=BackupData>数据库备份</a>"
menu(5,2)="<a href=admin_datamanage.asp?action=RestoreData>数据库恢复</a>"
menu(5,3)="<a href=admin_datamanage.asp?action=CompressData>压缩数据库</a>"
menu(5,4)="<a href=admin_datamanage.asp?action=SpaceSize>系统空间</a>"
menu(5,5)="<a href=admin_data.asp>数据更新</a>"
menu(5,6)="<a href=admin_sql.asp>执行SQL</a>"
%>
</head><BODY leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<table width=100% cellpadding=0 cellspacing=0 border=0 align=left>
    <tr><td valign=top>
<table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
    <td height=42 valign=bottom>
	  <img src="images/admin/title.gif" width=158 height=38>
    </td>
  </tr>
</table>
<table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
        <td height=25 class=menu_title  onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background=images/admin/title_bg_quit.gif  > 
          <span><a href="admin.asp?action=main" ><b>管理首页</b></a> 
          | <a href=admin_login.asp?action=logout target=_top><b>退出</b></a></span> 
        </td>
  </tr>
</table>
	<table width="100%" border="0" cellpadding="2" cellspacing="2">
	 <tr><td><div align="center"><font color="#FFFFFF"><b>欢迎您：<%=login_username%></b></font></div></td>
		<td><div align="center">
		<font color="#FFFFFF">

		</font>  
		</div></td>
	</tr>
</table>
<%
	dim j,i
	dim tmpmenu
	dim menuname
	dim menurl
for i=0 to ubound(menu,1)
%>
<table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
        <td height=25 class=menu_title  onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/admin/admin_left_<%=i+1%>.gif" id=menuTitle1 onclick="showsubmenu(<%=i%>)"> 
          <span><%=menu(i,0)%></span> </td>
  </tr>
  <tr>
    <td style="display:none" id='submenu<%=i%>'>
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=135>
	<%
	for j=1 to ubound(menu,2)
	if isempty(menu(i,j)) then exit for
	%>
<tr><td height=20 align=lift>&nbsp;&nbsp;<%response.write img_small("jt12")%><%=menu(i,j)%></td></tr>
<%
	next
%>
</table>
	  </div>
<div  style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=135>
<tr><td></td></tr>
</table>
	  </div>
	</td>
  </tr>
</table>
<%next%>
<table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
        <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/admin/admin_left_9.gif" id=menuTitle1 onClick="top.top.location.href='../'"> 
          <span>≡ 返 回 首 页 ≡</span> </td>
  </tr>
  <tr>
    <td>
<div  style="width:158">
<table cellpadding=0 cellspacing=0 width=158 align=center>
<tr><td></td></tr>
  <tr>
        <td height=25 class=menu_title onmouseover=this.className='menu_title'; onmouseout=this.className='menu_title2'; background="images/admin/admin_left_9.gif" id=menuTitle1> 
          <span>≡ 海风科技信息 ≡</span> </td>
  </tr>
  <tr>
    <td>
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=135>

<tr><td height=20>&nbsp;<br><a href="http://www.jzhaifeng.com/" target=_blank>版权所有：<BR>海风科技城(<font face=Verdana, Arial, Helvetica, sans-serif size=1>Jzhaifeng<font color=#CC0000>.Com</font></font>)</a><BR>
<BR>
</td></tr>

</table>
	  </div>
	</td>
  </tr>
</table><%
end sub

sub admin_frame()
%></head>
<frameset framespacing="0" cols="177,*" border="0" frameborder="0">
  <noframes>
<body topmargin="0" leftmargin="0">
  <p>此网页使用了框架，但您的浏览器不支持框架。请访问 <a href="<% response.write web_var(web_config,2) %>"><% response.write web_var(web_config,1) %></a></p>
</body>
  </noframes>
  <frame name="contents" target="main" src="admin.asp?action=left" scrolling="auto" noresize>
  <frame name="main" src="admin.asp?action=main" scrolling="auto">
</frameset><%
end sub
%>
</html>