<!-- #INCLUDE FILE="include/onlogin.asp" -->
<html>
<head>
<title>时代在线影院-后台管理页面</title>
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<%
select case action
case "left"
  call admin_left()
case "main"
  call admin_main()
case else
  call admin_frame()
end select

sub admin_main()
%>
<link rel=stylesheet href='skins/<%=login_skins%>/style.css' type=text/css>
<body>
<br>
<%response.write admin_bar("服务器信息",1,"99%")%>
<table border=0 height='98%' width=100% align=center>
<tr align=center>
<%
if trim(request.querystring("error"))="popedom" then
  response.write "<script language=javascript>alert(""可能您没有相关的后台管理权限！"");</script>"
end if
%>
<table cellpadding="2" cellspacing="1" border="0" width="98%" class="border" align=center>
    <td width="50%"  class="tdbg" height=23>服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
    <td width="50%" class="tdbg">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
  </tr>
  <tr> 
    <td width="50%" class="tdbg" height=23>站点物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
    <td width="50%" class="tdbg">数据库地址：</td>
  </tr>
  <tr> 
    <td width="50%" class="tdbg" height=23>FSO文本读写：
      <%if object_install("scripting.filesystemobject")=false then%>
      <font color="red"><b>×</b></font>
      <%else%>
      <b>√</b>
      <%end if%></td>
    <td width="50%" class="tdbg">Stream文件流：
      <%if object_install("Adodb.Stream")=false then%>
      <font color="red"><b>×</b></font>
      <%else%>
      <b>√</b>
      <%end if%></td>
  </tr>
  <tr> 
    <td width="50%" class="tdbg" height=23>Jmail组件支持：
      <%If object_install("JMail.SMTPMail")=false Then%>
      <font color="red"><b>×</b></font>
      <%else%>
      <b>√</b>
      <%end if%></td>
    <td width="50%" class="tdbg">CDONTS组件支持：
      <%If object_install("CDONTS.NewMail")=false Then%>
      <font color="red"><b>×</b></font>
      <%else%>
      <b>√</b>
      <%end if%></td>
  </tr>
  <tr>
    <td class="tdbg" height=23><a onclick="document.all.show_view.style.display=document.all.show_view.style.display=='none'?'':'none';return false;" href="javsscript:;">显示系统空间占用情况&gt;&gt;&gt;</a></td>
    <td class="tdbg"><a href="Admin_ServerInfo.asp">点此查看更详细的服务器信息&gt;&gt;&gt;</a></td>
  </tr>
</table>
<%response.write admin_bar("",2,"99%")&kong
call SpaceSize()
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 宋体; FONT-SIZE: 9pt;text-decoration: none;
SCROLLBAR-FACE-COLOR: #6699FF;
SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #3399ff; SCROLLBAR-3DLIGHT-COLOR: #3399ff; SCROLLBAR-ARROW-COLOR: #3399ff; SCROLLBAR-TRACK-COLOR: #3366FF; SCROLLBAR-DARKSHADOW-COLOR: #ffffff;}
}
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(3,13)
menu(0,0)="≡ 版 面 管 理 ≡"
menu(1,0)="≡ 网 站 配 置 ≡"
menu(2,0)="≡ 用 户 设 置 ≡"
menu(3,0)="≡ 数 据 管 理 ≡"
'---------------------------------------------版 面 管 理
menu(0,1)="<a href='admin_video.asp'>电影管理</a>"
menu(0,2)="<a href='admin_news.asp'>电影头条</a>"
menu(0,3)="<a href=admin_down.asp>下载栏目</a>"
menu(0,4)="<a href='admin_gallery.asp'>精彩管理</a>"
menu(0,5)="<a href=admin_website.asp>网站推荐</a>"
menu(0,6)="<a href='admin_update.asp'>网站更新</a>"
menu(0,7)="<a href='admin_review.asp'>评论管理</a>"
menu(0,8)="<a href=admin_article.asp>文章管理</a>"
menu(0,9)="<a href=admin_ads.asp>广告管理</a>"
menu(0,10)="<a href='gbook.asp' target=_blank>留言管理</a>"

'---------------------------------------------网 站 配 置
menu(1,1)="<a href='admin_config_edit.asp'>配置修改</a>"
menu(1,2)="<a href='admin_nsort.asp'>分类管理</a>"
menu(1,3)="<a href=admin_forum.asp>论坛管理</a>"
menu(1,4)="<a href='admin_skins.asp'>皮肤设置</a>"
menu(1,5)="<a href='admin_links.asp'>友情链接</a>"
menu(1,6)="<a href='admin_vote.asp'>调查管理</a>"
menu(1,7)="<a href='admin_upload_list.asp'>上传管理</a>"
'---------------------------------------------用 户 设 置
menu(2,1)="<a href='admin_user.asp'>用户管理</a>"
menu(2,2)="<a href='admin_car.asp'>会 员 卡</a>"
menu(2,3)="<a href='admin_popedom.asp'>权限管理</a>"
menu(2,4)="<a href='admin_mail.asp?action=addmail'>群发短信</a>"
menu(2,5)="<a href='admin_lockip.asp'>IP管理</a>"
menu(2,6)="<a href='admin_user.asp?us=订单'>订单管理</a>"
'--------------------------------------------数 据 管 理
menu(3,1)="<a href=admin_sql.asp>执行SQL</a>"
menu(3,2)="<a href=admin_datamanage.asp?action=BackupData>数据库备份</a>"
menu(3,3)="<a href=admin_datamanage.asp?action=RestoreData>数据库恢复</a>"
menu(3,4)="<a href=admin_datamanage.asp?action=CompressData>压缩数据库</a>"
menu(3,5)="<a href=admin_data.asp>数据更新</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_skins()%><%=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></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>
时代在线影院系统<br>V8.5增强版<br>商业注册联系<br>QQ：13441688<br>&nbsp;&nbsp;&nbsp;&nbsp;43164605<tr><td height=20 align=center>

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

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

sub SpaceSize()
on error resume next
response.write admin_bar("系统空间占用情况",1,"99%")
%>
<table border=0 cellspacing=0 cellpadding=1 width=98% align=center>
<tr id=show_view<%response.write " style=""display:none;"""%>><td>
<blockquote>
<b>系统文件占用空间情况：</b><br><br>
程序文件占用空间：&nbsp;<img src="images/bar_space.gif" width=<%=drawspecialbar%> height=10>&nbsp;<%showSpecialSpaceinfo("Program")%><br> 			
数据文件占用空间：&nbsp;<img src="images/bar_space.gif" width=<%=drawbar("data")%> height=10>&nbsp;<%showSpaceinfo("data")%><br>
备份数据占用空间：&nbsp;<img src="images/bar_space.gif" width=<%=drawbar("databackup")%> height=10>&nbsp;<%showSpaceinfo("databackup")%><br>
站点图片占用空间：&nbsp;<img src="images/bar_space.gif" width=<%=drawbar("images")%> height=10>&nbsp;<%showSpaceinfo("images")%><br>
站点风格占用空间：&nbsp;<img src="images/bar_space.gif" width=<%=drawbar("skins")%> height=10>&nbsp;<%showSpaceinfo("skins")%><br><br>
<b>上传文件占用空间情况：</b><br><br>
新闻图片占用空间：&nbsp;<img src="images/bar_space.gif" width=<%=drawbar("upload/news")%> height=10>&nbsp;<%showSpaceinfo("upload/news")%><br>
文章图片占用空间：&nbsp;<img src="images/bar_space.gif" width=<%=drawbar("upload/article")%> height=10>&nbsp;<%showSpaceinfo("upload/article")%><br>
软件图片占用空间：&nbsp;<img src="images/bar_space.gif" width=<%=drawbar("upload/soft")%> height=10>&nbsp;<%showSpaceinfo("upload/soft")%><br>
论坛图片占用空间：&nbsp;<img src="images/bar_space.gif" width=<%=drawbar("upload/forum")%> height=10>&nbsp;<%showSpaceinfo("upload/forum")%><br><br>
<b>系统占用空间总计：</b>&nbsp;<img src="images/bar_space.gif" width=<%=drawbar(".")%> height=10> <%showspecialspaceinfo("All")%>
</blockquote> 	
</td></tr>
</table>
<%
response.write admin_bar("",2,"99%")
end sub

'=====================系统空间参数=========================
	Sub ShowSpaceInfo(drvpath)
 		dim fso,d,size,showsize
 		set fso=server.createobject("scripting.filesystemobject") 		
 		drvpath=server.mappath(drvpath) 		 		
 		set d=fso.getfolder(drvpath) 		
 		size=d.size
 		showsize=size & "&nbsp;字节" 
 		if size>1024 then
 		   size=(size\1024)
 		   showsize=size & "&nbsp;KB"
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=formatnumber(size,2) & "&nbsp;MB"		
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=formatnumber(size,2) & "&nbsp;GB"	   
 		end if   
 		response.write "<font face=verdana>" & showsize & "</font>"
 	End Sub	
 	
 	Sub Showspecialspaceinfo(method)
 		dim fso,d,fc,f1,size,showsize,drvpath 		
 		set fso=server.createobject("scripting.filesystemobject")
 		drvpath=server.mappath("images")
 		drvpath=left(drvpath,(instrrev(drvpath,"\")-1))
 		set d=fso.getfolder(drvpath) 		
 		
 		if method="All" then 		
 			size=d.size
 		elseif method="Program" then
 			set fc=d.Files
 			for each f1 in fc
 				size=size+f1.size
 			next	
 		end if	
 		
 		showsize=size & "&nbsp;Byte" 
 		if size>1024 then
 		   size=(size\1024)
 		   showsize=size & "&nbsp;KB"
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=formatnumber(size,2) & "&nbsp;MB"		
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=formatnumber(size,2) & "&nbsp;GB"	   
 		end if   
 		response.write "<font face=verdana>" & showsize & "</font>"
 	end sub 	 	 	
 	
 	Function Drawbar(drvpath)
 		dim fso,drvpathroot,d,size,totalsize,barsize
 		set fso=server.createobject("scripting.filesystemobject")
 		drvpathroot=server.mappath("images")
 		drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"\")-1))
 		set d=fso.getfolder(drvpathroot)
 		totalsize=d.size
 		
 		drvpath=server.mappath(drvpath) 		
 		set d=fso.getfolder(drvpath)
 		size=d.size
 		
 		barsize=cint((size/totalsize)*400)
 		Drawbar=barsize
 	End Function 	
 	
 	Function Drawspecialbar()
 		dim fso,drvpathroot,d,fc,f1,size,totalsize,barsize
 		set fso=server.createobject("scripting.filesystemobject")
 		drvpathroot=server.mappath("images")
 		drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"\")-1))
 		set d=fso.getfolder(drvpathroot)
 		totalsize=d.size
 		
 		set fc=d.files
 		for each f1 in fc
 			size=size+f1.size
 		next	
 		
 		barsize=cint((size/totalsize)*400)
 		Drawspecialbar=barsize
 	End Function
%></html>