📄 admin_mov_database.asp
字号:
</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 ShowInit()
%>
<table cellpadding="0" cellspacing="1" border="0" width="100%" class="border" align=center>
<form action="Admin_mov_Database.asp" method="post" name="form1" id="form1" onSubmit="return confirm('确实要清除选定的表吗？一旦清除将无法恢复！');">
<tr>
<td colspan="2" align="center" class="title"><b>系 统 初 始 化</b></td>
</tr>
<tr class="tdbg">
<td width="100%" height="150" align=center valign="middle">
<%
if Action="Clear" then
call ClearData()
else
%> <b><br>
<font color="#FF6600">请慎用此功能，因为一旦清除将无法恢复！</font><br>
<br>
</b>
<table border="0" cellspacing="0" cellpadding="5">
<tr>
<td align="center"><b>请选择你要清空的数据库：</b></td>
</tr>
<tr>
<td><fieldset>
<table width="500" border="0" cellpadding="0" cellspacing="5">
<tr>
<td width="25%"><input name="Item" type="checkbox" id="Item" value="yes" style="border: 0px;background-color: #eeeeee;"> 采集项目</td>
<td width="25%"><input name="Histroly" type="checkbox" id="Histroly" value="yes" style="border: 0px;background-color: #eeeeee;"> 历史记录</td>
<!--<td width="25%"><input name="FilesType" type="checkbox" id="FilesType" value="yes" style="border: 0px;background-color: #eeeeee;"> 文件类型 </td>-->
<td width="25%"><input name="Filters" type="checkbox" id="Filters" value="yes" style="border: 0px;background-color: #eeeeee;"> 过滤设置</td>
</tr>
</table></fieldset></td>
</tr>
</table>
<tr class="tdbg">
<td align="center"><input name="Action" type="hidden" id="Action2" value="Clear">
<input type="submit" name="Submit" value=" 清除数据 "></td>
</tr>
<%
end if
%>
</td>
</tr>
</form>
</table>
<%
end sub
%>
</body>
</html>
<%
sub CompactData()
Dim Engine,strDBPath,DBPath
DBPath = server.mappath(DbItem)'数据库文件
if instr(DBPath,"/") then
strDBPath = left(DBPath,instrrev(DBPath,"/"))
else
strDBPath = left(DBPath,instrrev(DBPath,"\"))
end if
On Error Resume Next
Set ConnItem=Nothing
On Error GoTo 0
If fso.FileExists(DBPath) Then
Set Engine = CreateObject("JRO.JetEngine")
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath," Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "itemtemp.mdb"
fso.CopyFile strDBPath & "itemtemp.mdb",DBPath
fso.DeleteFile(strDBPath & "itemtemp.mdb")
Set fso = nothing
Set Engine = nothing
response.write"数据库压缩成功!"
Else
response.write"数据库没有找到!"
End If
end sub
sub BackUpData()
Dim BackPath,BackMdb
BackPath=Trim(Request("BackPath"))
BackMdb="Collect_" & Trim(Request("BackMdb"))
If BackPath="" Then
FoundErr=True
ErrMsg="<br><li>请指定备份目录！</li>"
else
BackPath=Replace(BackPath," ","")
End If
If BackMdb="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请指定备份文件名</li>"
Else
BackMdb=Replace(BackMdb," ","")
End If
If FoundErr<>True Then
If fso.FolderExists(server.mappath(BackPath))=False Then
fso.CreateFolder(server.mappath(BackPath))
End If
If fso.FileExists(server.mappath(BackPath & "/" & BackMdb & ".asa"))=True then
fso.DeleteFile(server.mappath(BackPath & "/" & BackMdb & ".asa"))
End If
fso.copyfile server.mappath(DbItem),server.mappath(BackPath & "/" & BackMdb & ".asa")
If fso.FileExists(server.mappath(BackPath & "/" & BackMdb & ".asa"))=True Then
response.write "数据库备份成功,数据库备份为：" & BackPath & "/" & BackMdb & ".asa"
Else
response.write "数据库备份失败!"
End If
Set fso = nothing
End If
end sub
sub RestoreData()
Dim RestorePath
RestorePath=request.form("RestorePath")
If RestorePath="" Then
FoundErr=True
ErrMsg="<br><li>请指定原备份的数据库文件名！</li>"
else
RestorePath=Replace(RestorePath," ","")
End If
If FoundErr<>True Then
If fso.FileExists(server.mappath(RestorePath))=True then
fso.copyfile server.mappath(RestorePath),server.mappath(DbItem)
response.write "数据库恢复成功!"
Else
response.write "<br><li>数据库：" & RestorePath & " 不存在！"
End If
Set fso = nothing
End If
end sub
sub showContent()
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr class="tdbg">
<td rowspan="2" align="right">操作选项：</td>
<td rowspan="2">
<form method="Post" action="Admin_mov_Database.asp?Action=RestoreData" onSubmit="return confirm('确定恢复数据吗？');">
<input name="RestorePath" type="text" id="RestorePath" value="Databackup\2003-3-3.asa">
<input name="submit" type="submit" value=" 恢复数据 " style="cursor: hand;background-color: #cccccc;" <%If ObjInstalled=false Then response.Write "disabled"%>>
</form>
</td>
</tr>
</table>
<%
end sub
Sub LeadOutData()
Dim LeadOutMdb,RsF,SqlF,RsLead,SqlLead,ItemIDTemp
LeadOutMdb=trim(request.form("LeadOutMdb"))
ItemID=trim(request.form("ItemID"))
If LeadOutMdb="" then
FoundErr=True
ErrMsg="<br><li>数据库地址不能为空！</li>"
End If
If ItemID="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请选择要导出的项目</li>"
Else
ItemID=Replace(ItemID," ","")
End If
If FoundErr<>True And ObjInstalled<>False Then
If fso.FileExists(Server.MapPath(LeadOutMdb)) Then
Else
'不存在则创建
If fso.FileExists(Server.MapPath("ItemTemp.mdb")) Then
fso.CopyFile Server.MapPath("ItemTemp.mdb"),Server.MapPath(LeadOutMdb)
Else
FoundErr=True
ErrMsg=ErrMsg& "<br>用于导出项目的数据库：ItemTemp.mdb不存在！"
End If
End If
set fso=nothing
End If
If FoundErr<>True Then
dim connstrLead,connLead
Set connLead = Server.CreateObject("ADODB.Connection")
connstrLead="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(LeadOutMdb)
connLead.Open connstrLead
If Err Then
err.Clear
FoundErr=True
ErrMsg=ErrMsg & "<br>数据库连接出错，请确认数据库是否存在。"
End If
If FoundErr<>True Then
ConnLead.execute("Delete From Item")
ConnLead.execute("Delete From Filters")
Set RsItem=server.createobject("adodb.recordset")
SqlItem="select * from Item where ItemID in(" & ItemID & ") order by ItemID DESC"
RsItem.open SqlItem,ConnItem,1,1
If Not RsItem.Eof then
Do while Not RsItem.Eof
'打开数据库
Set RsLead=server.createobject("adodb.recordset")
SqlLead="select * from Item"
RsLead.open SqlLead,ConnLead,1,3
RsLead.AddNew
RsLead("ItemName")=RsItem("ItemName")
RsLead("ChannelID")=RsItem("ChannelID")
RsLead("ClassID")=RsItem("ClassID")
RsLead("SpecialID")=RsItem("SpecialID")
RsLead("WebName")=RsItem("WebName")
RsLead("WebUrl")=RsItem("WebUrl")
RsLead("ItemDemo")=RsItem("ItemDemo")
RsLead("LoginType")=RsItem("LoginType")
RsLead("LoginUrl")=RsItem("LoginUrl")
RsLead("LoginPostUrl")=RsItem("LoginPostUrl")
RsLead("LoginUser")=RsItem("LoginUser")
RsLead("LoginPass")=RsItem("LoginPass")
RsLead("LoginFalse")=RsItem("LoginFalse")
RsLead("ListStr")=RsItem("ListStr")
RsLead("LsString")=RsItem("LsString")
RsLead("LoString")=RsItem("LoString")
RsLead("ListPaingType")=RsItem("ListPaingType")
RsLead("LPsString")=RsItem("LPsString")
RsLead("LPoString")=RsItem("LPoString")
RsLead("ListPaingStr1")=RsItem("ListPaingStr1")
RsLead("ListPaingStr2")=RsItem("ListPaingStr2")
RsLead("ListPaingID1")=RsItem("ListPaingID1")
RsLead("ListPaingID2")=RsItem("ListPaingID2")
RsLead("ListPaingStr3")=RsItem("ListPaingStr3")
RsLead("HsString")=RsItem("HsString")
RsLead("HoString")=RsItem("HoString")
RsLead("HttpUrlType")=RsItem("HttpUrlType")
RsLead("HttpUrlStr")=RsItem("HttpUrlStr")
RsLead("TsString")=RsItem("TsString")
RsLead("ToString")=RsItem("ToString")
RsLead("CsString")=RsItem("CsString")
RsLead("CoString")=RsItem("CoString")
RsLead("AuthorType")=RsItem("AuthorType")
RsLead("AsString")=RsItem("AsString")
RsLead("AoString")=RsItem("AoString")
RsLead("AuthorStr")=RsItem("AuthorStr")
RsLead("UpdateTimeType")=RsItem("UpdateTimeType")
RsLead("UsString")=RsItem("UsString")
RsLead("UoString")=RsItem("UoString")
RsLead("UpdateTimeStr")=RsItem("UpdateTimeStr")
RsLead("CopyFromType")=RsItem("CopyFromType")
RsLead("FsString")=RsItem("FsString")
RsLead("FoString")=RsItem("FoString")
RsLead("CopyFromStr")=RsItem("CopyFromStr")
RsLead("KeyType")=RsItem("KeyType")
RsLead("KsString")=RsItem("KsString")
RsLead("KoString")=RsItem("KoString")
RsLead("KeyStr")=RsItem("KeyStr")
RsLead("NewsPaingType")=RsItem("NewsPaingType")
RsLead("NPsString")=RsItem("NPsString")
RsLead("NPoString")=RsItem("NPoString")
RsLead("NewsPaingStr1")=RsItem("NewsPaingStr1")
RsLead("NewsPaingStr2")=RsItem("NewsPaingStr2")
RsLead("Flag")=RsItem("Flag")
RsLead("DsStringbType")=RsItem("DsStringbType")
RsLead("DsStringb")=RsItem("DsStringb")
RsLead("DoStringb")=RsItem("DoStringb")
RsLead("DsStringbb")=RsItem("DsStringbb")
RsLead("DoStringbb")=RsItem("DoStringbb")
RsLead("XsStringbType")=RsItem("XsStringbType")
RsLead("XsStringb")=RsItem("XsStringb")
RsLead("XoStringb")=RsItem("XoStringb")
RsLead("XsStringbb")=RsItem("XsStringbb")
RsLead("XoStringbb")=RsItem("XoStringbb")
RsLead("HttpDownUrlType")=RsItem("HttpDownUrlType")
RsLead("HttpDownUrlStr")=RsItem("HttpDownUrlStr")
RsLead("BsStringbType")=RsItem("BsStringbType")
RsLead("BsStringb")=RsItem("BsStringb")
RsLead("BoStringb")=RsItem("BoStringb")
RsLead("BoStringbstr")=RsItem("BoStringbstr")
RsLead("YsStringbType")=RsItem("YsStringbType")
RsLead("YsStringb")=RsItem("YsStringb")
RsLead("YoStringb")=RsItem("YoStringb")
RsLead("YoStringbstr")=RsItem("YoStringbstr")
RsLead("PsStringbType")=RsItem("PsStringbType")
RsLead("PsStringb")=RsItem("PsStringb")
RsLead("PoStringb")=RsItem("PoStringb")
RsLead("PoStringbstr")=RsItem("PoStringbstr")
RsLead("HsStringbType")=RsItem("HsStringbType")
RsLead("HsStringb")=RsItem("HsStringb")
RsLead("HoStringb")=RsItem("HoStringb")
RsLead("HoStringbstr")=RsItem("HoStringbstr")
RsLead("JsStringbType")=RsItem("JsStringbType")
RsLead("JsStringb")=RsItem("JsStringb")
RsLead("JoStringb")=RsItem("JoStringb")
RsLead("JoStringbstr")=RsItem("JoStringbstr")
RsLead("SsStringbType")=RsItem("SsStringbType")
RsLead("SsStringb")=RsItem("SsStringb")
RsLead("SoStringb")=RsItem("SoStringb")
RsLead("SoStringbstr")=RsItem("SoStringbstr")
RsLead("ZsStringbType")=RsItem("ZsStringbType")
RsLead("ZsStringb")=RsItem("ZsStringb")
RsLead("ZoStringb")=RsItem("ZoStringb")
RsLead("ZoStringbstr")=RsItem("ZoStringbstr")
RsLead("LsStringbType")=RsItem("LsStringbType")
RsLead("LsStringb")=RsItem("LsStringb")
RsLead("LoStringb")=RsItem("LoStringb")
RsLead("LoStringbstr")=RsItem("LoStringbstr")
RsLead("MsStringbType")=RsItem("MsStringbType")
RsLead("MsStringb")=RsItem("MsStringb")
RsLead("MoStringb")=RsItem("MoStringb")
RsLead("MoStringbstr")=RsItem("MoStringbstr")
RsLead("QsStringbType")=RsItem("QsStringbType")
RsLead("QsStringb")=RsItem("QsStringb")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -