📄 admin_itemdatabase.asp
字号:
<!--#include file="Inc/Const.asp"-->
<!--#include file="../Inc/Cl_ClsCollect.asp"-->
<!--#include file="../Inc/Cl_Function_Collect.asp"-->
<%
'========================================
' Edit by GDWneo
' Last modify at 9:22 2007-9-6
'========================================
dim Action,RsItem,SqlItem,ItemID,ItemName,ClassID,SpecialID,Flag,copyitem(149)
Dim ObjInstalled,tClass,tSpecial,ModuleName
ObjInstalled=Cl.ChkObjInstalled(Trim(Cl.Web_Info(13)))
Action=Trim(request("Action"))
dim DataBackPath
DataBackPath="DataBackup" '备份目录
Header
%>
<script language=javascript>
function unselectall(thisform){
if(thisform.chkAll.checked){
thisform.chkAll.checked = thisform.chkAll.checked;
}
}
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>
<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="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>
<%
OpenConn_C
Select Case Action
Case "Compact","CompactData":ShowCompact
case "Backup","BackupData":ShowBackup
case "Restore","RestoreData","DelBackup":ShowRestore
case "LeadOut","LeadOutData":ShowLeadOut
case "LeadIn","ShowLeadInData","LeadInData":ShowLeadIn
case "ShowUpData","UpData":ShowUpData
case Else:main
End select
Footer
CloseConn_C
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>
由于使用了历史记录，数据库的记录数会越来越多，使用压缩功能将会使数据库体积减少不少。<p>
2、数据库备份：<p>
备份数据以防意外。<p>
3、数据库恢复：<p>
使用本功能可以恢复数据库，前提是有数据库备份。<p>
4、项目导出：<p>
是不是经常有朋友问这个怎么操作、那个怎么操作？虽然你很热情，但是久了也不能保证还有那份热情，别急，使用项目导出功能将项目数据导出到一个干净的数据库中，让你的朋友下载，然后使用项目导入功能，是不是什么事情都解决了。<p>
5、项目导入：<p>
和朋友交流本系统项目的设置心得，这可是少不了的哦。<p>
6、检查更新数据：<p>
在使用项目导入功能后必须使用本功能更新数据，否则不能正常采集。<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"%>>
<%
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="<%=DataBackPath%>" ReadOnly></td>
<td class="tdbg">如要修改备份目录，请在此文件第8行处更改。</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="<%=Cl.Format_Time(Now,8)%>_Bak"></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
%>
<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="asa" 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_ItemDatabase.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_ItemDatabase.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 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,Conn_C,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%" height="22" align="center"><%=ShowChannel_Name(RsItem("ChannelID"))%></td>
<td width="10%" align="center"><%=ShowClass_Name(RsItem("ChannelID"),RsItem("ClassID"))%></td>
<td width="10%" align="center"><%=ShowSpecial_Name(RsItem("ChannelID"),RsItem("SpecialID"))%></td>
<td width="5%" align="center"><b>
<%
If RsItem("Flag")=True Then
Response.write "<font color=Green>√</font>"
Else
Response.write "<font color=red>×</font>"
End If
%></b>
</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/ItemTemp.mdb">
<input type="submit" name="submit" value="导出">
</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="Database/ItemTemp.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
%>
<br>
<form method="post" action="Admin_ItemDatabase.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 type="checkbox" name="ChannelData" value="yes">频道部分数据
<input type="checkbox" name="ItemData" value="yes" checked disabled>项目数据
</td>
</tr>
<tr align='center'>
<td height='40' colspan='3' class="tdbg"><input name='submit' type=submit value=' 开始更新 '></td>
</tr>
</table>
</form>
<% Else
Call UpData()
End If
End Sub
sub CompactData()
'关闭数据库链接
CloseConn_C
Dim fso,Engine,strDBPath,DBPath,DbTemp
DBPath = server.mappath(DbPath_C)'数据库文件
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -