📄 admin_data.asp
字号:
<!--#include file="Inc/Const.asp"-->
<%
if Not Cl.TrueOtherPurview("Data") then
Cl.ShowErr("<br /><li>您无此操作权限！</li>")
end if
dim Action,DataBackPath
DataBackPath="DataBackup" '备份目录
Action=Trim(request("Action"))
dim ObjInstalled
ObjInstalled=Cl.ChkObjInstalled(Trim(Cl.Web_Info(13)))
%>
<html>
<head>
<title>数据库管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../Skins/Css/Admin.Css">
<script src="../Inc/Js/Admin.js" type="text/javascript"></script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="title">
<td height="22" colspan="2" align="center"><strong>数 据 库 管 理</strong></td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td height="30"><a href="Admin_Data.asp?Action=Backup">备份数据库</a> | <a href="Admin_Data.asp?Action=Restore">恢复数据库</a>
| <a href="Admin_Data.asp?Action=Compact">压缩数据库</a> | <a href="Admin_Data.asp?Action=Init">系统初始化</a>
| <a href="Admin_Data.asp?Action=ServerInfo">服务器信息</a>
| <a href="Admin_Data.asp?Action=SpaceSize">系统空间占用</a>
| <a href="Admin_Data.asp?Action=DoSqlMain">执行SQL查询</a></td>
</tr>
</table>
<%
Select Case Action
Case "Backup"
call ShowBackup()
Case "BackupData"
call ShowBackup()
Case "Compact"
call ShowCompact()
Case "CompactData"
call ShowCompact()
Case "Restore"
call ShowRestore()
Case "RestoreData"
call ShowRestore()
Case "DelBackup"
call ShowRestore()
Case "Init"
call ShowInit()
Case "Clear"
call ShowInit()
Case "SpaceSize"
call SpaceSize()
Case "ServerInfo"
Call ServerInfo()
Case "DoSqlMain"
call DoSqlMain()
Case "DoSql"
call DoSql()
Case else
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>错误参数！</li>"
End Select
if FoundErr=True then
Cl.ShowErr(ErrMsg)
end if
Sub ShowBackup()
if IsSqlDataBase=1 then
Call SQLUserReadme()
else
%>
<br />
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<form method="post" action="Admin_Data.asp?action=BackupData">
<tr class="title">
<td align="center" height="22" valign="middle"><b>备 份 数 据 库</b></td>
</tr>
<tr class="tdbg">
<td height="150" align="center" valign="middle">
<%
if Action="BackupData" then
call backupdata()
else
%>
<table cellpadding="3" cellspacing="1" border="0" width="100%">
<tr>
<td width="200" height="33" align="right">备份目录：</td>
<td><input type="text" size="30" name="bkfolder" value="<%=DataBackPath%>" ReadOnly></td>
<td>如要修改备份目录，请在此文件第8行处更改。</td>
</tr>
<tr>
<td width="200" height="34" align="right">备份名称：</td>
<td height="34"><input type="text" size="30" name="bkDBname" value="<%=Cl.Format_Time(Now,8)%>_Bak"></td>
<td height="34">不用输入文件名后缀（默认为“.bak”）。如有同名文件，将覆盖</td>
</tr>
<tr align="center">
<td height="40" colspan="3"><input name="submit" type="submit" value=" 开始备份 " <%If ObjInstalled=false Then response.Write "disabled"%>></td>
</tr>
</table>
<%
If ObjInstalled=false Then
Response.Write "<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能</font></b>"
end if
end if
%>
</td>
</tr>
</form>
</table>
<%
end if
end sub
sub ShowCompact()
if IsSqlDataBase=1 then
Call SQLUserReadme()
else
%>
<br />
<table class="border" width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr class="title">
<td align="center" height="22" valign="middle"><b>数据库在线压缩</b></td>
</tr>
<tr class="tdbg">
<td align="center" height="150" valign="middle">
<%
if Action="CompactData" then
call CompactData()
else
%>
<br />
<br />
<br />
压缩前，建议先备份数据库，以免发生意外错误。 <br />
<br />
<br />
<form name="form1" method="post" action="Admin_Data.asp?action=CompactData">
<input name="submit1" type="submit" value=" 压缩主数据库 " <%If ObjInstalled=false Then response.Write "disabled"%>>
</form>
<br />
<%
If ObjInstalled=false Then
Response.Write "<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能</font></b>"
end if
end if
%>
</td>
</tr>
</table>
<%
end if
end sub
sub ShowRestore()
if IsSqlDataBase=1 then
Call SQLUserReadme()
else
%>
<br />
<table width="100%" class="border" border="0" align="center" cellpadding="0" cellspacing="1">
<tr class="title">
<td align="center" height="22" valign="middle"><b>数据库恢复</b></td>
</tr>
<tr class="tdbg">
<td align="center" valign="middle">
<%
if Action="RestoreData" then
call RestoreData()
elseif Action="DelBackup" then
Call DelBackup()
else
Dim Fso
Set Fso=server.createobject(Trim(Cl.Web_Info(13)))
dim theFolder,theFile,strFileType
if Not fso.FolderExists(Server.MapPath(DataBackPath)) then
response.write "找不到数据库备份文件夹（"&DataBackPath&"）！"
response.end
end if
Set theFolder=fso.GetFolder(Server.MapPath(DataBackPath))
For Each theFile In theFolder.Files
strFileType=lcase(mid(theFile.name,instrrev(theFile.name,".")+1))
if strFileType="bak" Then
%>
<br />
<fieldset><legend align="center"><strong><%=theFile.name%></strong></legend>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr class="tdbg">
<td align="right">文 件 名：</td>
<td><font color=#ff6600><%=theFile.name%></font></td>
<td align="right">文件大小：</td>
<td><%=round(theFile.size/1024) & " K"%></td>
<td align="right">修改时间：</td>
<td><%=theFile.DateLastModified%></td>
</tr>
<tr class="tdbg">
<td align="right">操作选项：</td>
<td colspan="5" valign="middle">
<form method="Post" action="Admin_Data.asp?action=RestoreData" onsubmit="return confirm('确定恢复数据库吗？，此操作将替换现在使用中的数据库！');">
<input name="backpath" type="text" id="backpath" value="<%=DataBackPath%>\<%=theFile.name%>" size=50 maxlength="200" readonly>
<input name="submit" type="submit" value=" 恢复数据 " <%If ObjInstalled=false Then response.Write "disabled"%>>
</form>
<form method="Post" action="Admin_Data.asp?action=DelBackup" onsubmit="return confirm('确定删除备份文件吗？');">
<input name="Document" type="text" id="Document" value="<%=DataBackPath%>\<%=theFile.name%>" size=50 maxlength="200" readonly>
<input name="Del" type="submit" value=" 删除备份 " <%If ObjInstalled=false Then response.Write "disabled"%>>
</form>
</td>
</tr>
</table>
</fieldset>
<%
end if
Next
If ObjInstalled=false Then
Response.Write "<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能</font></b>"
end if
end if
%>
</td>
</tr>
</table>
<%
end if
end sub
sub ShowInit()
if Cl.Admin_Purview(0)<>1 then
ErrMsg="<br /><li>您无此操作权限！</li>"
Cl.ShowErr(ErrMsg)
response.end
end if
%>
<script language="JavaScript" type="text/javascript">
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != "chkall"&&e.disabled!=true)
e.checked = form.chkall.checked;
}
}
</script>
<br />
<table class="border" width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
<form action="Admin_Data.asp" method="post" name="form1" id="form1" onSubmit="return confirm('确实要清除选定的表吗？一旦清除将无法恢复！');">
<tr class="title">
<td align="center" height="22" valign="middle"><b>系 统 初 始 化</b></td>
</tr>
<tr class="tdbg">
<td width="100%" height="150" valign="middle">
<%
if Action="Clear" then
call ClearData()
else
%> <br />
<font color="#FF0000"><b>请慎用此功能，因为一旦清除将无法恢复！</b></font><br />
<br />
<table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td align="center"><b>请选择你要清空的数据库：</b></td>
</tr>
<%
Set rs=Cl.Execute("select ChannelID,ChannelName,ChannelItemName,ChannelItemUnit,ChannelDir,IsCreateHtml from Cl_Channel where ChannelID>0 and ChannelID<>6 and ChannelType<=1 order by ModuleID Asc,ChannelID Asc")
Do while not Rs.eof
%>
<tr>
<td><fieldset><legend><%=rs("ChannelName")%></legend>
<table width="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td width="20%"> <input name="AllClass" type="checkbox" id="AllClass" value="<%=rs("ChannelID")%>"> <%=rs("ChannelItemName")%>栏目</td>
<td width="20%"> <input name="AllInfo" type="checkbox" id="AllInfo" value="<%=rs("ChannelID")%>"> 所有<%=rs("ChannelItemName")%></td>
<td width="20%"> <input name="AllSpecial" type="checkbox" id="AllSpecial" value="<%=rs("ChannelID")%>"> <%=rs("ChannelItemName")%>专题</td>
<td width="20%"> <input name="AllComment" type="checkbox" id="AllComment" value="<%=rs("ChannelID")%>"> <%=rs("ChannelItemName")%>评论</td>
<td width="20%"> <input name="AllJs" type="checkbox" id="AllJs" value="<%=rs("ChannelID")%>"> <%=rs("ChannelItemName")%>JS</td>
</tr>
</table></fieldset></td>
</tr>
<%
Rs.MoveNext
Loop
Set Rs=Nothing
%>
<tr>
<td><fieldset><legend>其他</legend><table width="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td width="20%"> <input name="Announce" type="checkbox" id="Announce" value="yes"> 所有公告</td>
<td width="20%"> <input name="Ads" type="checkbox" id="Ads" value="yes"> 所有广告</td>
<td width="20%"> <input name="Vote" type="checkbox" id="Vote" value="yes"> 所有调查</td>
<td width="20%"> <input name="LinkSite" type="checkbox" id="LinkSite" value="yes"> 友情链接</td>
<td width="20%"> <input name="LinkClass" type="checkbox" id="LinkClass" value="yes"> 链接栏目</td>
</tr>
<tr>
<td width="20%"> <input name="Label" type="checkbox" id="Label" value="yes"> 自定义标签</td>
<td width="20%"> <input name="KeyWord" type="checkbox" id="KeyWord" value="yes"> 网站关键字</td>
<td width="20%"> <input name="Message" type="checkbox" id="Message" value="yes"> 站内短消息</td>
<td width="20%"> <input name="Guest" type="checkbox" id="Guest" value="yes"> 所有留言</td>
<td width="20%"> <input name="User" type="checkbox" id="User" value="yes"> 注册用户</td>
</tr>
<tr>
<td width="20%"> <input name="PublicSpecial" type="checkbox" id="PublicSpecial" value="yes"> 公共专题</td>
<td width="20%"> <input name="AdminLog" type="checkbox" id="AdminLog" value="yes"> 管理事件记录</td>
<td width="20%"> <input name="SQLLog" type="checkbox" id="SQLLog" value="yes"> SQL事件记录</td>
<td width="20%"> <input name="UpLoadLog" type="checkbox" id="UpLoadLog" value="yes"> 上传文件记录</td>
<td width="20%"> <input name="PlusCz" type="checkbox" id="PlusCz" value="yes"> 所有充值卡</td>
</tr>
</table></fieldset></td>
</tr>
<tr>
<td align="right"><input type="checkbox" name="chkall" value="on" onclick="CheckAll(this.form)">全选</td>
</tr>
<tr>
<td align="center"><input name="Action" type="hidden" id="Action2" value="Clear">
<input type="submit" name="Submit" value=" 开始清除数据 "></td>
</tr>
</table>
<%
end if
%>
</td>
</tr>
</form>
</table>
<%
end sub
sub SpaceSize()
on error resume next
%>
<br />
<table class="border" width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr class="title">
<td align="center" height="22" valign="middle"><b>系统空间占用情况</b></td>
</tr>
<tr class="tdbg">
<td width="100%" height="25" valign="middle">
系统数据占用空间： <img src="../images/bar/bar3.gif" width=<%=drawbar("../Data")%> height=10> <%showSpaceinfo("../Data")%>
</td>
</tr>
<tr class="tdbg">
<td width="100%" height="25" valign="middle">
备份数据占用空间： <img src="../images/bar/bar3.gif" width=<%=drawbar("Databackup")%> height=10> <%showSpaceinfo("Databackup")%>
</td>
</tr>
<tr class="tdbg">
<td width="100%" height="25" valign="middle">
生成文件占用空间： <img src="../images/bar/bar3.gif" width=<%=drawbar("../"&Cl.Web_Info(16))%> height=10> <%showSpaceinfo("../"&Cl.Web_Info(16))%>
</td>
</tr>
<tr class="tdbg">
<td width="100%" height="25" valign="middle">
模板文件占用空间： <img src="../images/bar/bar3.gif" width=<%=drawbar("../Skins")%> height=10> <%showSpaceinfo("../Skins")%>
</td>
</tr>
<tr class="tdbg">
<td width="100%" height="25" valign="middle">
系统图片占用空间： <img src="../images/bar/bar3.gif" width=<%=drawbar("../Images")%> height=10> <%showSpaceinfo("../Images")%>
</td>
</tr>
<tr class="tdbg">
<td width="100%" height="25" valign="middle">
上传文件占用空间： <img src="../images/bar/bar3.gif" width=<%=drawbar(Cl.UpLoadDir)%> height=10> <%showSpaceinfo(Cl.UpLoadDir)%>
</td>
</tr>
<tr class="tdbg">
<td width="100%" height="25" valign="middle">
系统占用空间总计： <img src="../images/bar/bar3.gif" width=500 height=10> <%showSpaceinfo(Cl.WebDir)%>
</td>
</tr>
</table>
<%
end sub
sub DoSqlMain()
%>
<br />
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<form method="POST" action="Admin_Data.asp" id="form1" name="form1">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -