📄 admin_mov_database.asp
字号:
<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=true
Const PurviewLevel=0
%>
<!--#include file="../conn.asp"-->
<!--#include file="../inc/Function.asp"-->
<!--#include file="Admin_ChkPurview.asp"-->
<!--#include file="Admin_mov_Conn.asp"-->
<!--#include file="Admin_mov_Function.asp"-->
<%
Collect
'dim Action
Dim Rs,Sql,RsItem,SqlItem,ItemID,ItemName,ClassID,SpecialID,Flag
'Dim FoundErr,ErrMsg
Dim ObjInstalled,tClass,tSpecial
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")
Action=trim(request("Action"))
dim TruePath,fso
TruePath=Server.MapPath("DataBackup")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
%>
<html>
<head>
<title>电影采集系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="Admin_Style.css">
<SCRIPT language=javascript>
function unselectall(thisform){
if(thisform.chkAll.checked){
thisform.chkAll.checked = thisform.chkAll.checked&0;
}
}
function CheckAll(thisform){
for (var i=0;i<thisform.elements.length;i++){
var e = thisform.elements[i];
if (e.Name !="chkAll"&&e.disabled!=true)
e.checked = thisform.chkAll.checked;
}
}
</script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr class='topbg'>
<td height="22" colspan="2" align="center" ><strong>采 集 系 统 数 据 库 管 理</strong></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr class="tdbg">
<td width="65" height="30"><strong>管理导航：</strong></td>
<td height="30"><a href="Admin_mov_Database.asp">管理首页</a> | <a href="Admin_mov_Database.asp?Action=Compact">数据库压缩</a> | <a href="Admin_mov_Database.asp?Action=Backup">数据库备份</a> | <a href="Admin_mov_Database.asp?Action=Restore">数据库恢复</a> | <a href="Admin_mov_Database.asp?Action=LeadOut">项目导出</a> | <a href="Admin_mov_Database.asp?Action=LeadIn">项目导入</a><!-- | <a href="Admin_mov_Database.asp?Action=ShowUpData">检查更新数据</a>--> | <a href="Admin_mov_Database.asp?Action=Init">系统初始化</a></td>
</tr>
</table>
<%
if Action="Compact" or Action="CompactData" then
call ShowCompact()
elseif Action="Backup" or Action="BackupData" then
call ShowBackup()
elseif Action="Restore" or Action="RestoreData" then
call ShowRestore()
elseif Action="LeadOut" or Action="LeadOutData" then
call ShowLeadOut()
elseif Action="LeadIn" or Action="ShowLeadInData" or Action="LeadInData" Then
call ShowLeadIn()
elseif Action="ShowUpData" or Action="UpData" Then
call ShowUpData()
elseif Action="Init" or Action="Clear" then
call ShowInit()
set conn=nothing
Else
call main()
End If
call closeconn()
call closeconnitem()
%>
<%Sub Main%>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr>
<td colspan="2" align="center" class="title" height=22><b>数 据 库 管 理 说 明</b></td>
</tr>
<tr>
<td colspan="2" align="left" class="tdbg" height="100">
<br>
<p align="center">欢迎使用电影采集系统，使用数据库管理功能之前请阅读此说明。</p>
<p>1、数据库压缩：因使用了历史记录，数据库的记录数会越来越多，使用压缩功能将会使数据库体积减少不少。
<p>2、数据库备份：备份数据以防意外。
<p>3、数据库恢复：使用本功能可以恢复数据库，前提是有数据库备份。
<p>4、项目导出：将电影采集项目和过滤项目导出到一个数据库
<p>5、项目导入：和朋友交流本系统项目的设置心得，这可是少不了的哦。
<!--<p>6、检查更新数据：在使用项目导入功能后必须使用本功能更新数据，否则不能正常采集。-->
<p>6、系统初始化：清空采集项目、采集历史记录等数据，一旦清空将不可恢复。
<p>
</td>
</tr>
</table>
<%End Sub%>
<%
Sub ShowCompact
If Action="Compact" Then
%>
<form method="post" action="Admin_mov_Database.asp?Action=CompactData">
<table class='border' width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>
<tr class='title'>
<td align='center' height='22' valign='middle'><b>数据库在线压缩</b></td>
</tr>
<tr class='tdbg'>
<td align='center' height='120' valign='middle'><br><br>压缩前，建议先备份数据库，以免发生意外错误。<br><br><br><input name="submit" type=submit value=" 压缩数据库 " <%If ObjInstalled=False Then response.Write "disabled"%>><br><%If ObjInstalled=False Then Response.Write "<br><b><font color=red>您的服务器不支持 FSO(Scripting.FileSystemObject)组件! 不能使用本功能</font></b>"%><br></td>
</tr>
</table>
</form>
<%
Else
Call CompactData()
end if
End Sub
%>
<%
Sub ShowBackup
If Action="Backup" Then
%>
<form method="post" action="Admin_mov_Database.asp?Action=BackupData">
<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0' class='border'>
<tr class='title'>
<td align='center' height='22' valign='middle'><b>备 份 数 据 库</b></td>
</tr>
<tr class='tdbg'>
<td height='150' align='center' valign='middle'>
<table cellpadding='3' cellspacing='1' border='0' width='100%'>
<tr>
<td width='200' height='33' align='right'>备份目录：</td><td><input type=text size=20 name="BackPath" value="Databackup"></td><td>相对路径目录，如目录不存在，将自动创建</td>
</tr>
<tr>
<td width='200' height='34' align='right'>备份名称：</td><td height='34'><input type=text size=20 name="BackMdb" value="<%=Date()%>"></td><td height='34'>不用输入文件名后缀（默认为“.asa”）。如有同名文件，将覆盖</td>
</tr>
<tr align='center'>
<td height='40' colspan='3' valign=middle><input name='submit' type=submit value=' 开始备份 ' <%If ObjInstalled=false Then response.Write "disabled"%>><br><%If ObjInstalled=false Then Response.Write "<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)组件! 不能使用本功能</font></b>"%></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<% Else
Call BackUpData()
End If
End Sub
%>
<%Sub ShowRestore
If Action="Restore" Then
%>
<form method="Post" action="Admin_mov_Database.asp?Action=RestoreData" onSubmit="return confirm('确定恢复数据吗？');">
<table width='100%' class='border' border='0' align='center' cellpadding='0' cellspacing='0'>
<tr class='title'>
<td align='center' height='22' valign='middle'><b>数据库恢复</b></td>
</tr>
<tr class='tdbg'>
<td align='center' height='150' valign='middle'>
<table width='100%' border='0' cellspacing='0' cellpadding='0'>
<tr>
<td width='200' height='30' align='right'>原备份数据库路径（相对）：</td>
<td height='30'><input name="RestorePath" size=50 maxlength='200' type="text" id="RestorePath" value="Databackup\PowerEasy.asa"></td>
</tr>
<tr align='center'>
<td height='40' colspan='2'><input name="submit" type="submit" value=" 恢复数据 " <%If ObjInstalled=false Then response.Write "disabled"%>></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<br><b>说明：</b><br> 原备份数据库的扩展名必须为：asa或者asp<br><br>
<%
Else
Call RestoreData()
end if
End Sub
%>
<%Sub ShowLeadOut()
If Action="LeadOut" Then
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr>
<td colspan="2" align="center" class="title" height=22><b>项 目 导 出</b></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<form method="post" name="myform" action="Admin_mov_Database.asp?Action=LeadOutData">
<tr class="tdbg">
<td width="5%" align="center" class=ButtonList height="22">选择</td>
<td width="10%" align="center" class=ButtonList>项目名称</td>
<td width="10%" align="center" class=ButtonList>所属频道</td>
<td width="10%" align="center" class=ButtonList>所属栏目</td>
<td width="10%" align="center" class=ButtonList>所属专题</td>
<td width="5%" align="center" class=ButtonList>状态</td>
</tr>
<%
Set RsItem=server.createobject("adodb.recordset")
SqlItem="select ItemID,ItemName,ListStr,ListPaingType,ListPaingStr2,ListPaingID1,ListPaingID2,ListPaingStr3,ChannelID,ClassID,SpecialID,Flag from Item order by ItemID DESC"
RsItem.open SqlItem,ConnItem,1,1
If (Not RsItem.Eof) And (Not RsItem.Bof) then
Do While Not RsItem.Eof
%>
<tr class="tdbg">
<td width="5%" height="22" align="center"><input type="checkbox" value=<%=RsItem("ItemID")%> name="ItemID" onClick="unselectall(this.form)"></td>
<td width="10%" align="left"><%=RsItem("ItemName")%></td>
<td width="10%" align="center"><%Call ShowName(1,RsItem("ChannelID"))%></td>
<td width="10%" align="center"><%Call ShowName(2,RsItem("ClassID"))%></td>
<td width="10%" align="center"><%Call ShowName(3,RsItem("SpecialID"))%></td>
<td width="5%" align="center">
<%
If RsItem("Flag")=True Then
Response.write "√"
Else
Response.write "<font color=red>×</font>"
End If
%>
</td>
</tr>
<%
RsItem.MoveNext
Loop
%>
<tr class="tdbg">
<td colspan=7 height="52" align="center">
<input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox" >全选
导出到数据库：<input type="text" name="LeadOutMdb" size="30" value="Databackup/LeadOut.mdb">
<input type="submit" name="submit" value="导出" style="cursor: hand;background-color: #cccccc;">
</td>
</tr>
<%Else%>
<tr class="tdbg">
<td colspan='9' class="tdbg" align="center"><br>系统中暂无采集项目！</td>
</tr>
<%
End If
RsItem.Close
Set RsItem=Nothing
%>
</form>
</table>
<%
Else
Call LeadOutData()
End If
End Sub
%>
<%
Sub ShowLeadIn
If Action="LeadIn" Then
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr>
<td colspan="2" align="center" class="title" height=22><b>项 目 导 入</b></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<form method="post" action="Admin_mov_Database.asp?Action=ShowLeadInData">
<tr class="tdbg">
<td align="center" valign="middle" height="100">
<br>数据库位置：<input name="LeadInMdb" type="text" id="LeadInMdb" size="23" value="Databackup/LeadOut.mdb">
</td>
</tr>
<tr class="tdbg">
<td align="center">
<input name="submit" type=submit value=" 下 一 步 ">
</td>
</tr>
</form>
</table>
<%
ElseIf Action="ShowLeadInData" Then
Call ShowLeadInData()
Else
Call LeadInData()
End if
End Sub
Sub ShowUpData()
If Action="ShowUpData" Then
%>
<form method="post" action="Admin_mov_Database.asp?Action=UpData">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr>
<td colspan="2" align="center" class="title" height=22><b>检 查 更 新 数 据</b></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr>
<td height="34" align='left' class="tdbg">请选择要更新的数据</td>
</tr>
<tr>
<td align='left' class="tdbg">
<input name="ChannelData" type="checkbox" disabled value="yes" checked>频道部分数据
<input type="checkbox" name="ItemData" value="yes" checked disabled>项目数据
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -