📄 admin_itemdatabase.asp
字号:
<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=true
%>
<!--#include file="inc/conn.asp"-->
<!--#include file="Admin_ChkPurview.asp"-->
<!--#include file="inc/function.asp"-->
<%
dim Action,Rs,Sql,RsItem,SqlItem,ItemID,ItemName,ClassID,SpecialID,Flag,FoundErr,ErrMsg
Dim ObjInstalled,tClass,tSpecial
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")
Action=trim(request("Action"))
%>
<html>
<head>
<title>数据采集系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="Admin_Style.css">
<style type="text/css">
.ButtonList {
BORDER-RIGHT: #000000 2px solid; BORDER-TOP: #ffffff 2px solid; BORDER-LEFT: #ffffff 2px solid; CURSOR: default; BORDER-BOTTOM: #999999 2px solid; BACKGROUND-COLOR: #e6e6e6
}
</style>
<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_ItemDatabase.asp">管理首页</a> | <a href="Admin_ItemDatabase.asp?Action=Compact">数据库压缩</a> | <a href="Admin_ItemDatabase.asp?Action=Backup">数据库备份</a> | <a href="Admin_ItemDatabase.asp?Action=Restore">数据库恢复</a> | <a href="Admin_ItemDatabase.asp?Action=LeadOut">项目导出</a> | <a href="Admin_ItemDatabase.asp?Action=LeadIn">项目导入</a> | <a href="Admin_ItemDatabase.asp?Action=ShowUpData">检查更新数据</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()
Else
call main()
End If
call closeconn()
call closeconnitem()
%>
<!--#include file="Admin_ItemFoot.asp"-->
</body>
</html>
<%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<span lang="zh-cn">、数据库压缩：</span><p>
<span lang="zh-cn">由于使用了历史记录，数据库的记录数会越来越多，使用压缩功能将会使数据库体积减少不少。</span><p>
2<span lang="zh-cn">、数据库备份：</span><p>
<span lang="zh-cn">备份数据以防意外。</span><p>
3<span lang="zh-cn">、数据库恢复：</span><p>
<span lang="en-us"> </span>使用本功能可以恢复数据库，前提是有数据库备份。<p>
4<span lang="zh-cn">、项目导出：</span><p>
是不是经常有朋友问这个怎么操作、那个怎么操作？虽然你很热情，但是久了也不能保证还有那份热情，别急，使用项目导出功能将项目数据导出到一个干净的数据库中，让你的朋友下载，然后使用项目导入功能，是不是什么事情都解决了。<p>
<span lang="en-us">5</span>、项目导入：<p>
<span lang="en-us"> </span>和朋友交流本系统项目的设置心得，这可是少不了的哦。<p>
<span lang="en-us">6</span>、检查更新数据：<p>
<span lang="en-us"> </span>在使用项目导入功能后必须使用本功能更新数据，否则不能正常采集。<p>
</td>
</tr>
</table>
<%End Sub%>
<%Sub ShowCompact
If Action="Compact" Then
%>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<form method="post" action="Admin_ItemDatabase.asp?Action=CompactData">
<tr>
<td colspan="2" align="center" class="title" height=22><b>数据库压缩</b></td>
</tr>
<tr class="tdbg">
<td align="center" valign="middle" height="100">
<br>
<font color="#FF6600"><b>注：</b></font>压缩前，建议先备份数据库，以免发生意外错误。 <br>
</td>
</tr>
<tr class="tdbg">
<td align="center">
<br>
<input name="submit" type=submit value=" 压缩数据库 " <%If ObjInstalled=False Then response.Write "disabled"%> style="cursor: hand;background-color: #cccccc;">
<%
If ObjInstalled=False Then
Response.Write "<br><b><font color=red>您的服务器不支持 FSO(Scripting.FileSystemObject)组件! 不能使用本功能</font></b>"
End if
%>
</td>
</tr>
</form>
</table>
<%
Else
Call CompactData()
end if
%>
<%End Sub%>
<%Sub ShowBackup
If Action="Backup" Then
%>
<br>
<form method="post" action="Admin_ItemDatabase.asp?Action=BackupData">
<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 width='200' height='33' align='right' class="tdbg">备份目录：</td>
<td class="tdbg"><input type=text size=20 name="BackPath" value="Databackup"></td>
<td class="tdbg">相对路径目录，如目录不存在，将自动创建</td>
</tr>
<tr>
<td width='200' height='34' align='right' class="tdbg">备份名称：</td>
<td height='34' class="tdbg"><input type=text size=20 name="BackMdb" value="<%=Date()%>"></td>
<td height='34' class="tdbg">不用输入文件名后缀（默认为“.asa”）。如有同名文件，将覆盖</td>
</tr>
<tr align='center'>
<td height='40' colspan='3' class="tdbg"><input name='submit' type=submit value=' 开始备份 ' <%If ObjInstalled=false Then response.Write "disabled"%>></td>
</tr>
<%If ObjInstalled=false Then
Response.Write "<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)组件! 不能使用本功能</font></b>"
end if
%>
</table>
</form>
<%Else
Call BackUpData()
End If
End Sub%>
<%Sub ShowRestore
If Action="Restore" Then
%>
<br>
<form method="post" action="Admin_ItemDatabase.asp?Action=RestoreData">
<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='100' align='center' class="tdbg">备份数据库路径（相对）：<input name="RestorePath" type=text id="RestorePath" value="Databackup\<%=Date()%>.asa" size=50 maxlength="200">
</td>
</tr>
<tr>
<td align='center' class="tdbg">
<input name='submit' type=submit value=' 开始恢复 ' <%If ObjInstalled=false Then response.Write "disabled"%>>
<%If ObjInstalled=false Then
Response.Write "<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)组件! 不能使用本功能</font></b>"
end if
%>
</td>
</tr>
</table>
</form>
<%Else
Call RestoreData()
End If
End Sub%>
<%Sub ShowLeadOut
If Action="LeadOut" Then
%>
<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>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<form method="post" name="myform" action="Admin_ItemDatabase.asp?Action=LeadOutData">
<tr class="tdbg">
<td width="5%" height="22" 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="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,ChannelID,ClassID,SpecialID,Flag from Item order by ItemID ASC"
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)" style="border: 0px;background-color: #E1F4EE;"></td>
<td width="10%" align="left"><%=RsItem("ItemName")%></td>
<td width="10%" height="22" align="center"><%Call Admin_ShowChannel_Name(RsItem("ChannelID"))%></td>
<td width="10%" align="center"><%Call Admin_ShowClass_Name(RsItem("ChannelID"),RsItem("ClassID"))%></td>
<td width="10%" align="center"><%Call Admin_ShowSpecial_Name(RsItem("ChannelID"),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="Database/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
%>
<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>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<form method="post" action="Admin_ItemDatabase.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/LeadIn.mdb">
</td>
</tr>
<tr class="tdbg">
<td align="center">
<input name="submit" type=submit value=" 下 一 步 " style="cursor: hand;background-color: #cccccc;">
</td>
</tr>
</form>
</table>
<%
ElseIf Action="ShowLeadInData" Then
Call ShowLeadInData()
Else
Call LeadInData()
End if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -