<%
'程序名称：千纸鹤网站管理系统
'程序作者：千纸鹤
'作者邮箱：qzhxxw@sina.com
'作者 Q Q：138999501
'作者电话：0000000000
'官方主页：http://www.qqzzhh.com/
'官方论坛：http://www.qqzzhh.com/bbs
%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/dll.asp"-->
<!--#include file="inc/md5.asp"-->
<%
if useradmin<>3 then
response.write"<script>alert('您不是管理员！请重新登陆！');this.location.href='index.asp';</script>"
Response.End
end if
if request("action")="login" then
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
Response.Write"<script>alert('你提交的路径有误，禁止从站点外部提交数据请不要乱改参数！');this.location.href='c:\';</script>" 
response.end
end if
if cstr(session("admincode"))<>cstr(trim(request.Form("admincode"))) then
Response.Write"<script>alert('请正确输入验证码！');this.location.href='admin.asp';</script>" 
response.end
end if
session("admincode")=""
adminname=trim(replace(request("adminname"),"'",""))
adminpass=MD5(trim(replace(request("adminpass"),"'","")))
sql="select * from YC_admin where admin_name='"&adminname&"' and admin_pass='"&adminpass&"'"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
Response.Write("<script>alert('您输入的用户名和密码不正确！');this.location.href='admin.asp';</script>")
Response.End
else
if rs("admin_lock")=true then
Response.Write("<script>alert('您的帐户已经锁定，请和超级管理员联系！');this.location.href='admin.asp';</script>")
Response.End
end if
session("superlogin")=yecao
session("supername")=rs("admin_name")
session("superuser")=rs("admin_user")
session("superadmin")=rs("admin_super")
session.timeout=30
Response.write "<script>this.top.location.href='admin.asp';</script>"
rs.close
set rs=nothing
end if
elseif request("action")="adminout" then
session("superlogin")=""
session("supername")=""
session("superuser")=""
session("superadmin")=""
Response.write "<script>this.top.location.href='index.asp';</script>"
end if
if session("superlogin")=yecao then
if request("action")="" then%>
<HTML>
<HEAD>
<title>千纸鹤网站后台管理系统</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
</HEAD>
<FRAMESET name=btmframe framespacing='0' frameborder='no' border='0' cols=160,8,*>
<FRAME name=left src="admin.asp?action=left">
<FRAME src="admin.asp?action=center" noResize style="cursor:hand;border-left:1px solid #ffffff;border-right:1px solid #000000;">
<FRAME   name=admin src="admin.asp?action=right">
</FRAMESET>
</HTML>
<%elseif request("action")="left" then%>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>千纸鹤网站管理系统→后台管理</title><script src=img/adminjs.js></script>
<SCRIPT language=javascript1.2>
function showmenu_item(sid)
{
	which = eval("menu_item" + sid);
	if (which.style.display == "none")
	{
		var i = 1
		while(i<8){
			eval("menu_item"+ i +".style.display=\"none\";");
			i++;
		}
		eval("menu_item" + sid + ".style.display=\"\";");
	}else{
		eval("menu_item" + sid + ".style.display=\"none\";");
	}
}
</SCRIPT>
<link rel="STYLESHEET" type="text/css" href="img/admin.css">
</head>
<body topmargin="0" leftmargin="0"  scroll=no>
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d>
<tr class="titleleft" height="22">
<td><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;千纸鹤网站 控制面板</b></td></tr>
<tr class=bg height="20"><td style="line-height:150%;">

&nbsp;管理员：<b><%=session("supername")%></b><br>
&nbsp;权&emsp;限：<b><%
if session("superadmin")="admin" then
response.write"<font color=red>超级管理员</font>"
elseif session("superadmin")="news" then
response.write"新闻管理员"
elseif session("superadmin")="art" then
response.write"文章管理员"
elseif session("superadmin")="pic" then
response.write"图片管理员"
elseif session("superadmin")="down" then
response.write"下载管理员"
elseif session("superadmin")="dj" then
response.write"娱乐管理员"
else
response.write"非法管理员"
end if%></b><br>
</td></tr></table>

<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d><tr class="titleleft"  height="22" id=menuTitle1 onclick="showmenu_item(1)"><td><b>&nbsp;<img src=img/admin.gif border=0 width=15 height=15 align=absMiddle>&nbsp;基本管理</b></td></tr>
<tr class=bg height="50" style="display:none;" id='menu_item1'>
<td align=center style="line-height:150%;">
<a href="admin.asp?action=right" target="admin">管理首页</a>
<a href="admin.asp?action=adminout">安全退出</a><br>
<a href="admin_sqlin.asp" target="admin">注入管理</a>
<a href="admin.asp?action=help" target="admin">站长帮助</a><br>
<a href="admin_set.asp" target="admin">网站设置</a>
<a href="admin_sms.asp"  target="admin">短信管理</a><br>
<a href="admin_link.asp" target="admin">连接管理</a>
<a href="book.asp" target="admin">留言管理</a><br>
<a href="admin_gg.asp" target="admin">公告管理</a>
<a href="admin_gg.asp?action=new" target="admin">添加公告</a><br>
<a href="admin_tongji.asp" target="admin">修改统计</a>
<a href="admin_edit.asp" target="admin">修改密码</a><br>
</td></tr></table>
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d>
<tr class="titleleft"  height="22" id=menuTitle2 onclick="showmenu_item(2)"><td><b>&nbsp;<img src=img/admin.gif border=0 width=15 height=15 align=absMiddle>&nbsp;栏目管理</b></td></tr>
<tr class=bg height="36" style="display:none" id="menu_item2">
<td style="line-height:150%;">
&nbsp;√&nbsp;<a href="admin_news.asp" target="admin">新闻管理</a>
<a href="admin_news.asp?action=add" target="admin">添加新闻</a><br>
&nbsp;√&nbsp;<a href="admin_art.asp" target="admin">文章管理</a>
<a href="admin_art.asp?action=add" target="admin">添加文章</a><br>
&nbsp;√&nbsp;<a href="admin_pic.asp" target="admin">图片管理</a>
<a href="admin_pic.asp?action=add" target="admin">添加图片</a><br>
&nbsp;√&nbsp;<a href="admin_dj.asp" target="admin">娱乐管理</a>
<a href="admin_dj.asp?action=add" target="admin">添加娱乐</a><br>
&nbsp;√&nbsp;<a href="admin_down.asp" target="admin">下载管理</a>
<a href="admin_down.asp?action=add" target="admin">添加下载</a><br>
</td></tr></table>
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d>
<tr class="titleleft"  height="22" id=menuTitle3 onclick="showmenu_item(3)">
<td><b>&nbsp;<img src=img/admin.gif border=0 width=15 height=15 align=absMiddle>&nbsp;菜单频道</b></td></tr>
<tr class=bg height="22" style="display:none" id="menu_item3">
<td style="line-height:150%;">
&nbsp;√&nbsp;<a href="admin_menu.asp?action=menu" target="admin">菜单管理</a>&nbsp;<a href="admin_menu.asp?action=newmenu" target="admin">添加菜单</a><br>
&nbsp;√&nbsp;<a href="admin_other.asp" target="admin">频道管理</a>&nbsp;<a href="admin_other.asp?action=newother" target="admin">添加频道</a>
</td></tr></table>
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d>
<tr class="titleleft" height="22" id=menuTitle4 onclick="showmenu_item(4)">
<td><b>&nbsp;<img src=img/admin.gif border=0 width=15 height=15 align=absMiddle>&nbsp;皮肤管理</b></td></tr>
<tr class=bg height="22" style="display:none" id="menu_item4">
<td style="line-height:150%;">
&nbsp;√&nbsp;<a href="admin_skin.asp" target="admin">皮肤管理</a>&nbsp;<a href="admin_skin.asp?action=new" target="admin">添加皮肤</a>
</td></tr></table>
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d>
<tr class="titleleft" height="22" id=menuTitle5 onclick="showmenu_item(5)">
<td><b>&nbsp;<img src=img/admin.gif border=0 width=15 height=15 align=absMiddle>&nbsp;用户管理</b></td></tr>
<tr class=bg height="22"  style="display:none" id="menu_item5">
<td style="line-height:150%;">
&nbsp;√&nbsp;<a href="admin_user.asp" target="admin">会员管理</a>&nbsp;<a href="admin_user.asp?action=new" target="admin">添加会员</a><br>
&nbsp;√&nbsp;<a href="admin_admin.asp" target="admin">管员管理</a>&nbsp;<a href="admin_admin.asp?action=newadmin" target="admin">添加管员</a><br>
</td></tr></table>
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d><tr class="titleleft"  height="22" onclick="showmenu_item(6)">
<td><b>&nbsp;<img src=img/admin.gif border=0 width=15 height=15 align=absMiddle>&nbsp;上传管理</b></td></tr>
<tr class=bg height="36"  style="display:none" id="menu_item6">
<td style="line-height:150%">
&nbsp;√&nbsp;<a href="admin_up.asp?path=news" target="admin">新闻附件管理</a><br>
&nbsp;√&nbsp;<a href="admin_up.asp?path=art" target="admin">文章附件管理</a><br>
&nbsp;√&nbsp;<a href="admin_up.asp?path=pic" target="admin">图片附件管理</a><br>
&nbsp;√&nbsp;<a href="admin_up.asp?path=dj" target="admin">娱乐附件管理</a><br>
&nbsp;√&nbsp;<a href="admin_up.asp?path=down" target="admin">下载附件管理</a><br>
&nbsp;√&nbsp;<a href="admin_up.asp?path=other" target="admin">频道附件管理</a><br>
</td></tr></table>
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d><tr class="titleleft"  height="22" onclick="showmenu_item(7)">
<td><b>&nbsp;<img src=img/admin.gif border=0 width=15 height=15 align=absMiddle>&nbsp;数据管理</b></td></tr>
<tr class=bg height="36"  style="display:none" id="menu_item7">
<td style="line-height:150%">
&nbsp;√&nbsp;<a href="admin_data.asp?action=godata" target="admin">压缩数据库</a><br>
&nbsp;√&nbsp;<a href="admin_data.asp?action=backdata" target="admin">备份数据库</a><br>
&nbsp;√&nbsp;<a href="admin_data.asp?action=redata" target="admin">恢复数据库</a><br>
&nbsp;√&nbsp;<a href="admin_data.asp?action=resetdata" target="admin">系统初始化</a><br>
&nbsp;√&nbsp;<a href="admin_sql.asp" target="admin">SQL 操作器</a><br>
</td></tr></table>
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d><tr class="titleleft"  height="22"><td><b>&nbsp;<img src=img/admin_copy.gif border=0 width=15 height=15 align=absMiddle>&nbsp;版权所有</b></td></tr>
<tr class=bg height="36"><td style="line-height:150%;">
&nbsp;程序设计：千纸鹤<br>
&nbsp;官方网站：<a href=http://www.qqzzhh.com target=_blank>千纸鹤网络</a>	<br>
&nbsp;官方论坛：<a href=http://www.qqzzhh.com/bbs target=_blank>千纸鹤 =5论坛</a>	<br>
&nbsp;当前版本：<%=Version%>
</td></tr></table>
</body></html>
<%elseif request("action")="center" then%>
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link rel="STYLESHEET" type="text/css" href="img/admin.css">
<SCRIPT>
<!--
var leftorright='left';
function changeSize(){
top.btmframe.cols=(top.btmframe.cols=="160,8,*")?"0,8,*":"160,8,*";
if(leftorright=='left'){
leftorright='right';
}
else
{
leftorright='left';
}
}
document.oncontextmenu="return false";
document.onselectstart="return false";
if (self == top)
location="index.asp";
//-->
</SCRIPT></HEAD>
<BODY style="margin:0;padding:0;cursor:hand;" onmouseOver="this.style.background='#cccccc'"onmouseOut="this.style.background='#d4d0c8'" bgcolor=d0d4c8 scroll=no onclick=changeSize()>

</BODY></HTML>
<%elseif request("action")="right" then%>
<html>
<head>
<link rel="STYLESHEET" type="text/css" href="img/admin.css">
<script src=img/adminjs.js></script>
<head>
<body>
<br>
<table align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d  id=me style="position:absolute;left:30;top:100;width:570;display:none">
<tr onmousedown="MDown(me)" style="cursor:move" height=22><td colspan="2" class=title><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;千纸鹤简介</b>
<img onclick="document.all.me.style.display=(document.all.me.style.display=='none')?'':'none'" style="position:absolute;right:2;top:5;cursor:hand" border="0" src="img/adminclose.gif" align=absMiddle></td></tr>
<tr class=bg>
<td height="25" align="center" width=100>
<div style="margin:6px;border-top:1px solid #000;border-left:1px solid #000;border-bottom:1px solid #ffffff;border-right:1px solid #ffffff;width:200px;height:250px;background:url(img/yecao.jpg)">
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codeBase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="200" height="250">
<PARAM NAME="movie" VALUE="img/4.swf">
<PARAM NAME="quality" VALUE="high">
<PARAM NAME="wmode" VALUE="transparent">")
<embed src="img/4.swf" width="100%" height="100%" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer"  type="application/x-shockwave-flash" wmode="transparent"></embed></OBJECT>

</div>
</td>
<td  valign=top><br />
<style type="text/css">
<!--
body{font-size: 12px;background-color: #D4D0C8;color:#000000;}
td, div, input, textarea{font-size: 12px;cursor: default;}
.title{background-color: #000080;color:#ffffff;padding: 1;font-family:宋体;font-size:12px;}
.up{background-color: #D4D0C8;color:#000000;border: 2px outset #ffffff}
.down{background-color: #D4D0C8;border:2px inset #ffffff}
.up1{background-color: #D4D0C8;color: #000000;border: 1px outset #ffffff}
.down1{background-color:#D4D0C8;border:1px inset #ffffff}
.l{background-color: #D4D0C8; height: 18px; border-left: 2px outset #ffffff;border-right: 2px outset #ffffff; color:#000000;
border-top: 2px outset #ffffff; padding-top: 2;height:18;cursor:hand;}
.lc{background-color: #D4D0C8; height: 18px; border-left: 2px outset #ffffff;border-right: 2px outset #ffffff; color:#000000;cursor:hand;
border-top: 2px outset #ffffff; padding-top: 2;height:20}
.l-h{ background-color: #D4D0C8; border-left: 2px outset #ffffff ; border-top: 2px outset #ffffff;color:#000000; }
.l-c{ background-color: #D4D0C8; border-top: 2px outset #ffffff }
.l-r{ background-color: #D4D0C8; border-right: 2px outset #ffffff; border-top: 2px outset #ffffff;color:#000000;}
.l-hc{ background-color: #D4D0C8; border-left: 2px outset #ffffff;color:#000000;}
.l-cc{ background-color: #D4D0C8;color:#000000; }
.l-rc{ background-color: #D4D0C8; border-right: 2px outset #ffffff;color:#000000;}td{color:#000000;}
-->
</style>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
function restore()
{
td1.className="l";
td2.className="l";
td3.className="l";
td_1.className="l-h";
td_2.className="l-c";
td_3.className="l-c";
w1.style.display="none";
w2.style.display="none";
w3.style.display="none";

}
function c1()
{
td1.className="lc";
td_1.className="l-hc";
w1.style.display="block";
}
function c2()
{
td2.className="lc";
td_2.className="l-cc";
w2.style.display="block";
}
function c3()
{
td3.className="lc";
td_3.className="l-cc";
w3.style.display="block";
}
function killErrors() {
return true;}
window.onerror = killErrors;
//-->
</SCRIPT>
<table border="0" cellpadding="0" cellspacing="0" width="350" height="61"><tr>
<form method="post" action="?menu=setok">
<td width="90" height="20" align="center" valign="bottom" onclick=restore();c1();>
<div id="td1" class="lc">我的简介</div></td>
<td width="90" height="20" align="center" valign="bottom" onclick=restore();c2();>
<div id="td2" class="l">程序开发</div></td>
<td width="90" height="20" align="center" valign="bottom" onclick=restore();c3();>
<div id="td3" class="l">我的故事</div></td>
<td width="90" height="20" align="center" valign="bottom"></td>
</tr>
<tr>
<td width="70" height="1" align="center" class="l-hc" id="td_1" >&nbsp;</td>
<td width="70" height="1" align="center" class="l-c" id="td_2">&nbsp;</td>
<td width="70" height="1" align="center" class="l-c" id="td_3">&nbsp;</td>
<td width="50" height="1" align="center" class="l-r" id="td_">&nbsp;</td>
</tr>
<tr>
<td  class="up" colspan="4" style="border-top-style: solid; border-top-width: 0; padding: 5">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr><td width="100%">
<div style="display:bolck;" id=w1>
<table height="190" border="0" width="100%" align="center"><tr><td valign="top" style="line-height:150%">
真实姓名：暂时保密<br />
我的年龄：26岁<br />
所属民族：汉族<br />
所属籍贯：江苏盐城人<br />
现所在地：江苏省盐城市，有空来找我！<br />
我的喜好：网页制作，听歌，<br />
我的学历：中专<br />
我的志言：野火烧不尽，春风吹又生。<br />
我的愿望：能为IT行业做出贡献。<br />
</td></tr></table>
</div>
<div style="display:none;" id=w2 >
<table height="185" border="0" width="100%" align="center"><tr><td valign="top" style="line-height:150%">
&nbsp;&nbsp;&nbsp;&nbsp;2004年11月买电脑开始，我就开始了登上了千纸鹤网站的设<br />计之路，开发了18天才把千纸鹤网站的基本框架和模型做出来，因<br />为早就习惯了用记事本编辑代码，所以虽然精度高，但是太<br />浪费时间和精力，不过幸好遇上了EditPlus这个软件，效率<br />
提高了不少。<br>
&nbsp;&nbsp;&nbsp;&nbsp;在这里特别感谢那些支持我，帮助过我的人，都是因为<br />他们的帮助，才会有今天的千纸鹤网站，这里我表示特别的感谢。<br />
&nbsp;&nbsp;&nbsp;&nbsp;希望在以后的日子里会有更多的有志人士加入并合作，<br />
共同创造美好明天！
</td></tr></table>
</div>
<div style="display:none;" id=w3>
<table height="190" border="0" width="100%" align="center"><tr><td valign="top" style="line-height:150%" align="center">
暂时保密！哈哈！
</td></tr></table>
</div>
</td></tr></table>
</td></tr>
</table>


</td>
</tr>
</table>
<table width="600" align=center  border="0" cellpadding="0" cellspacing="0" rules=none class=3d><tr class="title"  height="22"><td><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;<font color="#ffffff">本程序由[千纸鹤网络]授权给[<%
if webname="千纸鹤网络" then
response.write"自己"
elseresponse.write webname
end if%>]使用。当前版本：<%=Version%>&nbsp;<%=Edition%></font></td></tr>
<tr class=bg height="100"><td STYLE="BACKGROUND:#444444;PADDING:0PX"><img src=img/adminwelcome.gif border=0></td></tr>
<tr><td class="hr"></td></tr><TR>
<TD class=bg><br>
<center><button class=button onclick="document.all.size.style.display=(document.all.size.style.display =='none')?'':'none'" style=height:30>占用空间情况</button>&nbsp;&nbsp;<button style=height:30 class=button onclick="document.all.dll.style.display=(document.all.dll.style.display =='none')?'':'none'">组件支持情况</button>&nbsp;&nbsp;<button style=height:30 class=button onclick="document.all.host.style.display=(document.all.host.style.display =='none')?'':'none'">主机环境情况</button></center><br>
<center>
<button style=height:30 class=button onclick="location.href='admin_sqlin.asp';">查看注入信息</button>&nbsp;&nbsp;
<button style=height:30 class=button onclick="location.href='admin_set.asp';">快速设置网站</button>&nbsp;&nbsp;
<button style=height:30 class=button onclick="location.href='admin_link.asp';">审核友情连接</button></center><br>

</tr>
<tr><td class="hr"></td></tr>
<tr>
<td calss=bg style=line-height:180%>
&emsp;程序开发：千纸鹤网络<br>
&emsp;产品名称：千纸鹤网站管理系统&emsp;[<font color=red><%=Edition%></font>]<br>
&emsp;产品负责：程序/美工/数据库设计：<a href="#" onclick="document.all.me.style.display=(document.all.me.style.display =='none')?'':'none'"><font color="red">千纸鹤</font></a><br>
&emsp;当前版本：千纸鹤网站 <%=Version%><br>
&emsp;联系电话：000000000 [<font color="red">办公电话</font>]<br>
&emsp;交流 Q Q：138999501 <br>
&emsp;电子信箱：bgh_edu@126.com <br>
&emsp;官方网站：<a href="http://www.qqzzhh.com/" target="_blank">http://www.qqzzhh.com/</a><br>
&emsp;官方论坛：<a href="http://www.qqzzhh.com/bbs" target="_blank">http://www.qqzzhh.com/bbs</a><br>

<center><font color="red"><b>承接各种网站订做业务！</b></font></center>
</tr><TR>
<tr><td class="hr"></td></tr><tr><td calss=bg>
<center><br>
Power By FY Design Studio&nbsp;<br>
Copyright (c) 2006-2008 www.qqzzhh.com. All Rights Reserved .</center>
<br>
</TD></TR> 
</table>
<%
sub othersize(names)
set fso=server.CreateObject("scripting.filesystemobject")
path=server.mappath("images")
ml=left(path,(instrrev(path,"\")-1))&"\"&names
set d=fso.getfolder(ml) 
mlsize=d.size
size=mlsize
dx=size & "&nbsp;Byte" 
 		if size>1024 then
 		   size=(Size/1024)
 		   dx=formatnumber(size,2) & "&nbsp;KB"
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   dx=formatnumber(size,2) & "&nbsp;MB"		
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   dx=formatnumber(size,2) & "&nbsp;GB"	   
 		end if   
 		response.write dx
end sub

sub allsize()
set fso=server.CreateObject("scripting.filesystemobject")
path=server.mappath("index.asp")
ml=left(path,(instrrev(path,"\")-1))
set d=fso.getfolder(ml) 
mlsize=d.size
size=mlsize
dx=size & "&nbsp;Byte" 
 		if size>1024 then
 		   size=(Size/1024)
 		   dx=size & "&nbsp;KB"
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   dx=formatnumber(size,2) & "&nbsp;MB"		
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   dx=formatnumber(size,2) & "&nbsp;GB"	   
 		end if   
 		response.write dx
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 	
%>
<table width="95%" align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d  id=size style="position:absolute;left:30;top:300;width:680;display:none">
<tr onmousedown="MDown(size)" style="cursor:move" height=22><td colspan="2" class=title><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;系统占用空间情况(全部：<%allsize()%>)</b>
<img onclick="document.all.size.style.display=(document.all.size.style.display=='none')?'':'none'" style="position:absolute;right:2;top:5;cursor:hand" border="0" src="img/adminclose.gif" align=absMiddle></td></tr>
<tr class=bg>
<td height="25" align="center" width=100>系统图片占用：</td>
<td><img src="img/bar.gif" width=<%=Drawbar("img")%> height=10>&nbsp;<%othersize("img")%></td>
</tr>
<tr class=bg>
<td height="25" align="center">系统皮肤占用：</td>
<td><img src="img/bar.gif" width=<%=Drawbar("skin")%> height=10>&nbsp;<%othersize("skin")%></td>
</tr>
<tr class=bg>
<td height="25" align="center">上传新闻占用：</td>
<td><img src="img/bar.gif" width=<%=Drawbar("up/news")%> height=10>&nbsp;<%othersize("up/news")%></td>
</tr>
<tr class=bg>
<td height="25" align="center">上传文章占用：</td>
<td><img src="img/bar.gif" width=<%=Drawbar("up/art")%> height=10>&nbsp;<%othersize("up/art")%></td>
</tr>
<tr class=bg>
<td height="25" align="center">上传图片占用：</td>
<td><img src="img/bar.gif" width=<%=Drawbar("up/pic")%> height=10>&nbsp;<%othersize("up/pic")%></td>
</tr>
<tr class=bg>
<td height="25" align="center">上传娱乐占用：</td>
<td><img src="img/bar.gif" width=<%=Drawbar("up/dj")%> height=10>&nbsp;<%othersize("up/dj")%></td>
</tr><tr class=bg>
<td height="25" align="center" >上传软件占用：</td>
<td><img src="img/bar.gif" width=<%=Drawbar("up/down")%> height=10>&nbsp;<%othersize("up/down")%></td>
</tr><tr class=bg>
<tr class=bg>
<td height="25" align="center" >系统数据占用：</td>
<td><img src="img/bar.gif" width=<%=Drawbar("data")%> height=10>&nbsp;<%othersize("data")%></td>
</tr><tr class=bg>
<td height="25" align="center">论坛目录占用：</td>
<td><img src="img/bar.gif" width=<%=Drawbar("bbs")%> height=10>&nbsp;<%othersize("bbs")%></td>
</tr>
</table><%call br%>
<table width="95%" align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d  id=host style="position:absolute;left:50;top:50;width:550;height:300;display:none;">
<tr>
<td style="cursor:move" colspan="2" height="22" class=title onmousedown=MDown(host)><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;主机环境变量</b> <img onclick="document.all.host.style.display=(document.all.host.style.display =='none')?'':'none'" style="position:absolute;right:2;top:5;cursor:hand" border="0" src="img/adminclose.gif" align=absMiddle></td>
</tr>
<tr class=bg><td height="25" align="center" width="57%">项目</td><td align="center">&nbsp;值</td></tr>
<tr class=bg>
<td height="25" width="57%">&nbsp;服务器的域名</td>
<td  height="25">&nbsp;<%=Request.ServerVariables("server_name")%>　</td>
</tr>
<tr class=bg>
<td height="25" width="57%">&nbsp;服务器的IP地址</td>
<td  height="25">&nbsp;<%=Request.ServerVariables("LOCAL_ADDR")%>　</td>
</tr>
<tr class=bg>
<td height="25" width="57%">&nbsp;服务器操作系统</td>
<td  height="25">&nbsp;<%=Request.ServerVariables("OS")%>　</td>
</tr>
<tr class=bg>
<td height="25" width="57%">&nbsp;服务器解译引擎</td>
<td  height="25">&nbsp;<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>　</td>
</tr>
<tr class=bg>
<td height="25" width="57%">&nbsp;服务器软件的名称及版本</td>
<td  height="25">&nbsp;<%=Request.ServerVariables("SERVER_SOFTWARE")%>　</td>
</tr>
<tr class=bg>
<td height="25" width="57%">&nbsp;服务器正在运行的端口</td>
<td  height="25">&nbsp;<%=Request.ServerVariables("server_port")%>　</td>
</tr>
<tr class=bg>
<td height="25" width="57%">&nbsp;服务器CPU数量</td>
<td  height="25">&nbsp;<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
</tr>

<tr class=bg>
<td width="57%">&nbsp;服务器Application数量</td>
<td height="25">&nbsp;<%=Application.Contents.Count%> 个</td>
</tr>

<tr class=bg>
<td height="25" width="57%">&nbsp;服务器Session数量</td>
<td >&nbsp;<%=Session.Contents.Count%> 个</td>
</tr>

<tr class=bg>
<td height="25" width="57%">&nbsp;请求的物理路径</td>
<td  height="25">&nbsp;<%=Request.ServerVariables("path_translated")%>　</td>
</tr>
<tr class=bg>
<td height="25" width="57%">&nbsp;请求的URL</td>
<td width="66%" height="25">&nbsp;http://<%=Request.ServerVariables("server_name")%><%=Request.ServerVariables("script_name")%></td>
</tr>
<tr class=bg>
<td height="25" width="57%">&nbsp;服务器当前时间</td>
<td  height="25">&nbsp;<%=now()%>　</td>
</tr>
<tr class=bg>
<td height="25" width="57%">&nbsp;脚本连接超时时间</td>
<td height="25">&nbsp;<%=Server.ScriptTimeout%> 秒</td>
</tr>
</table><%call br%>
<table width="95%" id="dll" align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d style="position:absolute;left:50;top:50;width:550;height:300;display:none"><tr style="cursor:move"><td colspan="2" height="22" class=title onmousedown=MDown(dll)><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;组件支持情况</b><img style="position:absolute;right:2;top:5;cursor:hand" border="0" src="img/adminclose.gif" align=absMiddle onclick="document.all.dll.style.display=(document.all.dll.style.display =='none')?'':'none'"></td>
</tr>
<tr class=bg>
<td width="57%" height=25 align=center>&nbsp;组件名称</td><td width="41%" align=center>支持及版本</td>
</tr>
<%
Dim theInstalledObjects(16)
theInstalledObjects(0) = "MSWC.AdRotator"
theInstalledObjects(1) = "MSWC.BrowserType"
theInstalledObjects(2) = "MSWC.NextLink"
theInstalledObjects(3) = "MSWC.Tools"
theInstalledObjects(4) = "MSWC.Status"
theInstalledObjects(5) = "MSWC.Counters"
theInstalledObjects(6) = "MSWC.PermissionChecker"
theInstalledObjects(7) = "Scripting.FileSystemObject"
theInstalledObjects(8) = "adodb.connection"
theInstalledObjects(9) = "SoftArtisans.FileUp"
theInstalledObjects(10) = "SoftArtisans.FileManager"
theInstalledObjects(11) = "JMail.Message"
theInstalledObjects(12) = "CDONTS.NewMail"
theInstalledObjects(13) = "Persits.MailSender"
theInstalledObjects(14) = "LyfUpload.UploadFile"
theInstalledObjects(15) = "Persits.Upload.1"
theInstalledObjects(16) = "w3.upload"
For i=0 to 16
Response.Write "<TR class=bg><TD>&nbsp;" & theInstalledObjects(i) & "<font color=888888>&nbsp;"
select case i
case 7
Response.Write "(FSO 文本文件读写)"
case 8
Response.Write "(ACCESS 数据库)"
case 9
Response.Write "(SA-FileUp 文件上传)"
case 10
Response.Write "(SA-FM 文件管理)"
case 11
Response.Write "(JMail 邮件发送)"
case 12
Response.Write "(WIN虚拟SMTP 发信)"
case 13
Response.Write "(ASPEmail 邮件发送)"
case 14
Response.Write "(LyfUpload 文件上传)"
case 15
Response.Write "(ASPUpload 文件上传)"
case 16
Response.Write "(w3 upload 文件上传)"
end select
Response.Write "</font></td><td height=25>"
If Not IsObjInstalled(theInstalledObjects(i)) Then
Response.Write "<font color=red><b>×</b></font>"
Else
Response.Write "<b>√</b> " & getver(theInstalledObjects(i)) & ""
End If
Response.Write "</td></TR>" & vbCrLf
Next
%>
</table>
<%
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
''''''''''''''''''''''''''''''
Function getver(Classstr)
On Error Resume Next
getver=""
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(Classstr)
If 0 = Err Then getver=xtestobj.version
Set xTestObj = Nothing
Err = 0
End Function
%>
<br>
<%elseif request("action")="help" then%>
<link rel="STYLESHEET" type="text/css" href="img/admin.css">
<table width="100%" align=center  border="0" cellpadding="0" cellspacing="0" rules=none class=3d><tr class="title"  height="22">
<td><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;站长使用帮助！</td></tr>
<tr class=bg height="100"><td STYLE="BACKGROUND:#444444;PADDING:0PX"><img src=img/adminwelcome.gif border=0></td></tr>
<tr><td class="hr"></td></tr>
<tr>
<td calss=bg style=line-height:180%;padding:0px;margin:0px>
<ul style=list-style-type:square;padding-left:15px;margin:3px;padding-top:0px;pading-bottom:0px;>
<li style=color:red>关于增加记录？
<li>增加记录前必须先要添加栏目分类。
<li>增加记录前必须要把相关的选项添完。
</ul>
<ul style=list-style-type:square;padding-left:15px;margin:3px;padding-top:0px;pading-bottom:0px;>
<li style=color:red>关于频道和菜单？
<li>添加频道后要把频道地址插入到菜单管理。
<li>增加记录前必须要把相关的选项添完。
</ul>
<ul style=list-style-type:square;padding-left:15px;margin:3px;padding-top:0px;pading-bottom:0px;>
<li style=color:red>关于皮肤管理？
<li>皮肤系统是千纸鹤本人的原创制作，可以无限制的增加皮肤。<br>您只要在官方下载皮肤后直接上传到skin文件夹，上传成功后即到后台添加皮肤名称和皮肤地址，这样就可以使用该皮肤了！
<li>默认皮肤要在网站设置里修改！
</ul>
<ul style=list-style-type:square;padding-left:15px;margin:3px;padding-top:0px;pading-bottom:0px;>
<li style=color:red>关于用户管理？
<li>您可以任意查看用户相关数据。
<li>可以为用户增加点数！
</ul>
<ul style=list-style-type:square;padding-left:15px;margin:3px;padding-top:0px;pading-bottom:0px;>
<li style=color:red>关于数据库管理？
<li>可以实现在线数据库压缩、备份、恢复。
<li>数据库可以初始化，就是把记录清空！
<li>您应该间隔2-3天把数据库压缩一下，这样有助于您的网站运行效率！压缩前尽量备份一下，避免意外发生。
<li>数据库操作器如果您要升级的时候就用，如果您不升级数据库就把该文件删除或则改名子，这样可以保证您网站的安全。
</ul>
<ul style=list-style-type:square;padding-left:15px;margin:3px;padding-top:0px;pading-bottom:0px;>
<li style=color:red>怎样修改数据库路径？
<li>第一步：在INC目录下有个CONN。ASP，这个是数据库连接文件里面可以修改。
<li>第二步：如果您的虚拟主机支持MDB文件防下载，那么就使用MDB后缀文件，如果不是就使用你任意的后缀如：[xxx.#%$&@?]！其中XXX为文件名，#%$&@?为后缀扩展名。还有尽量把数据库文件文件夹设置结构深一点如：data/feiyang/jinzhe/888/xxx.#%$&@?.这样就可以防止数据库下载。
</ul>
<ul style=list-style-type:square;padding-left:15px;margin:3px;padding-top:0px;pading-bottom:0px;>
<li style=color:red>关于数据库的压缩？
<li>可以实现在线数据库压缩、备份、恢复。
<li>数据库可以初始化，就是把记录清空！
</ul>
</tr><TR>
<tr><td class="hr"></td></tr><tr><td calss=bg>
<center><br>
Power By FY Design Studio&nbsp;<br>
Copyright (c) 2003-2008 qqzzhh.com. All Rights Reserved .</center>
<br>
</TD></TR> 
</table>

<%end if
else%>
<HTML><HEAD><TITLE>后台登陆</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="img/admin.css" type=text/css rel=stylesheet>
<script>
var travel=true
var hotkey=<%=mypasskey%>
if (document.layers)
document.captureEvents(Event.KEYPRESS)
function mypass(e){
if(document.layers){
if(e.which==hotkey&&travel)
mypass.style.display=""
}
else if (document.all){
if(event.keyCode==hotkey)
document.all.mypass.style.display=""
}
}
document.onkeypress=mypass
function login(){
if (document.form1.adminname.value==""){alert("请输入用户名？");document.form1.adminname.focus();return false}
if (document.form1.adminpass.value==""){alert("请输入密码？");document.form1.adminpass.focus();return false} 
if (document.form1.getcode.value==""){alert("请输入验证码？");document.form1.getcode.focus();return false}
return true}
</script>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey)) scroll=no><br><br><br>
<table width="300" align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d><tr class="uptitle"  height="22"><td><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;千纸鹤网站管理系统后台登陆
</b></td></tr>
<tr class="bg"><td><img src=img/adminlogin.gif border=0 align=absMiddle></td></tr><tr><td class="hr"></td></tr><TR>
<tr>
<TD height=25 align=center><form name="form1" method="post" action="admin.asp?action=login" onsubmit="return login()">
&emsp;用户名：<input type="text" name="adminname"  style=width:150px autocomplete="off"  class="yecao">
</td></tr>
<tr><td height=25 align=center>
&emsp;密&emsp;码：<input type="password" name="adminpass"  style=width:150px  class="yecao">
</td></tr>
<%if mypassopen="yes"	then%>
<tr  id=mypass style="display:none"><td height=25 align=center>
&emsp;二次码：<input type="password" name="adminpasspass"  style=width:150px  class="yecao" >
</td></tr>
<%end if%>
<tr><td height=25 align=center>
&emsp;认证码：<input name="admincode" type="text" size="13" maxlength="8" class="yecao">&nbsp;<img src="inc/YCMS-CODE.asp"  id="GetCodePic" align=absmiddle height=14 border=0><script language=jscript>document.getElementById('GetCodePic').src='inc/YCMS-CODE.asp?rnd='+Math.random();</script><%call br%></td></tr><tr><td height=25 align=center>
&emsp;<input type="submit" name="Submit" value="登 录" class="adminbutton">&emsp;<input type="reset" name="reset" value="清 空" class="adminbutton">
</TD></TR>
<tr><td class="hr"></td></tr><TR>
<TD height=22 ALIGN=RIGHT>&nbsp;&nbsp;Copyright&copy;2004-2005 FY Design Studio&nbsp;</TD></TR>
</table>
</body></html>
<%end if
call closedata()%>
