?? backup.asp
字號(hào):
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 產(chǎn)品名稱：CSYS.COM.CN企業(yè)全站管理系統(tǒng)（V2007簡(jiǎn)體中文版）
' 聯(lián)系：QQ：61128110 Emial：61128110@163.com
' Copyright 2006 www.csys.com.cn - All Rights Reserved.
'***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.asp"-->
<%
Function CheckDir(FolderPath)
folderpath=Server.MapPath(".")&"\"&folderpath
Set fso1 = CreateObject("Scripting.FileSystemObject")
IF fso1.FolderExists(FolderPath) THEN
CheckDir = True
Else
CheckDir = False
End IF
Set fso1 = Nothing
End Function
Function MakeNewsDir(foldername)
dim f
Set fso1 = CreateObject("Scripting.FileSystemObject")
Set f = fso1.CreateFolder(foldername)
MakeNewsDir = True
Set fso1 = Nothing
End Function
Call Page_formBody()
Call Page_Spane(5)
Page_HeadName="<A HREF=Backup.asp?Action=Bac>數(shù)據(jù)庫(kù)備份</A> | <A HREF=Backup.asp?Action=Hf>數(shù)據(jù)庫(kù)恢復(fù)</A> | <A HREF=Backup.asp?Action=Zi>數(shù)據(jù)庫(kù)壓縮</A>"
Select case Action
case "Bac"
Call Page_AdminFlag(62)
Page_BootmName="數(shù)據(jù)庫(kù)備份"
Page_BootName="您現(xiàn)在的位置：<A HREF=A_Right.asp>管理首頁(yè)</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<Form NAME=Save method=post action=Backup.asp?Action=sBac>"&_
"<TR>"&_
"<TD WIDTH=20% HEIGHT=90 CLASS=Table8>當(dāng)前數(shù)據(jù)庫(kù)路徑：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=MdbName TYPE=text id=MdbName VALUE='" & MdbName & "' size=30> <BR>請(qǐng)輸入當(dāng)前數(shù)據(jù)庫(kù)路徑全名，本程序的默認(rèn)數(shù)據(jù)庫(kù)徑為" & MdbName & "<BR>如果您修改過數(shù)據(jù)庫(kù)路徑，請(qǐng)輸入修改后的路徑</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=70 CLASS=Table8>備份數(shù)據(jù)庫(kù)目錄：</TD>"&_
""&_
"<TD CLASS=Table8><INPUT NAME=nFileName TYPE=text id=nFileName VALUE=D_backup size=30> <BR>如目錄不存在，程序?qū)⒆詣?dòng)創(chuàng)建，建議修改</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=70 CLASS=Table8>備份數(shù)據(jù)庫(kù)名稱：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=NewMdbName TYPE=text id=NewMdbName VALUE='" & Date() & ".mdb' size=30> <BR>如備份目錄有該文件，將覆蓋，如沒有，將自動(dòng)創(chuàng)建</TD>"&_
"</TR>"&_
"<TR ALIGN=center>"&_
"<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT NAME=ok CLASS=submit_all TYPE=submit id=ok VALUE=提交資料> "&_
"<INPUT NAME=cl TYPE=reset id=cl CLASS=submit_all VALUE=重新輸入></TD>"&_
"</TR>"&_
"</form>"&_
"</TABLE>"
Call Page_aTable(0,0)
case "Hf"
Call Page_AdminFlag(63)
Page_BootmName="數(shù)據(jù)庫(kù)恢復(fù)"
Page_BootName="您現(xiàn)在的位置：<A HREF=A_Right.asp>管理首頁(yè)</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<Form NAME=Save method=post action=Backup.asp?Action=sHf>"&_
"<TR>"&_
"<TD WIDTH=20% HEIGHT=90 CLASS=Table8>備份數(shù)據(jù)庫(kù)路徑：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=OldMdbName TYPE=text id=OldMdbName VALUE='" & Obkfolder & "\" & ObkDBname & "' size=30> <BR>默認(rèn)為系統(tǒng)最后一次備份的數(shù)據(jù)庫(kù)路徑<BR>請(qǐng)按照您的備份文件自行修改</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=70 CLASS=Table8>目標(biāo)數(shù)據(jù)庫(kù)路路徑：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=MdbName TYPE=text id=MdbName VALUE='" & MdbName & "' size=30><BR>請(qǐng)輸入當(dāng)前數(shù)據(jù)庫(kù)路徑全名，本程序的默認(rèn)數(shù)據(jù)庫(kù)路徑為" & MdbName & "</TD>"&_
"</TR>"&_
"<TR ALIGN=center>"&_
"<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT NAME=ok CLASS=submit_all TYPE=submit id=ok VALUE=提交資料> "&_
"<INPUT NAME=cl TYPE=reset id=cl CLASS=submit_all VALUE=重新輸入></TD>"&_
"</TR>"&_
"</form>"&_
"</TABLE>"
Call Page_aTable(0,0)
case "Zi"
Call Page_AdminFlag(64)
Page_BootmName="數(shù)據(jù)庫(kù)壓縮"
Page_BootName="您現(xiàn)在的位置：<A HREF=A_Right.asp>管理首頁(yè)</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<Form NAME=Save method=post action=Backup.asp?Action=sZi>"&_
"<TR>"&_
"<TD WIDTH=20% HEIGHT=70 CLASS=Table8>壓縮數(shù)據(jù)庫(kù)：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=dbpath TYPE=text id=dbpath VALUE='" & MdbName & "' size=30><BR>請(qǐng)輸入要壓縮的數(shù)據(jù)庫(kù)路徑全名，本程序的默認(rèn)數(shù)據(jù)庫(kù)路徑為" & MdbName & "</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 colspan=2 CLASS=Table8>"&_
"<INPUT TYPE=checkbox CLASS=radio_all NAME=boolIs97 VALUE=True> "&_
"如果使用 Access 97 數(shù)據(jù)庫(kù)請(qǐng)選擇（默認(rèn)為 Access 2000 數(shù)據(jù)庫(kù)）"&_
"</TD>"&_
"</TR>"&_
"<TR ALIGN=center>"&_
"<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT NAME=ok CLASS=submit_all TYPE=submit id=ok VALUE=提交資料> "&_
"<INPUT NAME=cl TYPE=reset id=cl CLASS=submit_all VALUE=重新輸入></TD>"&_
"</TR>"&_
"</form>"&_
"</TABLE>"
Call Page_aTable(0,0)
case "sBac"
Set Fso=server.createobject("scripting.filesystemobject")
Dbpaths=server.mappath(request.form("MdbName"))
bkfolder=request.form("nFileName")
bkdbname=request.form("NewMdbName")
IF fso.fileexists(Dbpaths) THEN
IF request.form("MdbName")="" THEN
Errorst="請(qǐng)輸入當(dāng)前數(shù)據(jù)庫(kù)名稱！"
founderr=true
ElseIF request.form("nFileName")="" THEN
Errorst="請(qǐng)輸入備份數(shù)據(jù)庫(kù)目錄！"
founderr=true
ElseIF request.form("NewMdbName")="" THEN
Errorst="請(qǐng)輸入備份數(shù)據(jù)庫(kù)名稱！"
founderr=true
End IF
Else
Errorst="當(dāng)前數(shù)據(jù)庫(kù)名稱錯(cuò)誤，請(qǐng)輸入正確的路徑！"
founderr=true
End IF
IF founderr=true THEN
Call Form_Error()
Else
IF CheckDir(bkfolder)=true Then
fso.copyfile Dbpaths,bkfolder& "\"& bkdbname
Else
MakeNewsDir(bkfolder)
fso.copyfile Dbpaths,bkfolder& "\"& bkdbname
End IF
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set TS1 = fs.CreateTextFile(Server.MapPath("Inc/Mdbname.asp"), True)
TS1.writeline "<"&chr(37)
TS1.writeline "Obkfolder="&chr(34)&"" & request.form("nFileName") & ""&chr(34)&""
TS1.writeline "ObkDBname="&chr(34)&"" & request.form("NewMdbName") & ""&chr(34)&""
TS1.writeline "MdbName="&chr(34)&"" & MdbName & ""&chr(34)&""
TS1.writeline "LastMdbName="&chr(34)&"" & LastMdbName & ""&chr(34)&""
TS1.writeline chr(37)&">"
Set TS1 = Nothing
Set fs=Nothing
ToHistory=VisitorsForm
saveok="數(shù)據(jù)庫(kù)備份成功！"
Call Form_Saveok()
End IF
case "sHf"
Set Fso=server.createobject("scripting.filesystemobject")
Dbpaths=server.mappath(request.form("OldMdbName"))
backpath=server.mappath(request.form("MdbName"))
IF fso.fileexists(Dbpaths) THEN
IF request.form("OldMdbName")="" THEN
Errorst="請(qǐng)輸入備份數(shù)據(jù)庫(kù)路徑！"
founderr=True
ElseIF request.form("MdbName")="" THEN
Errorst="請(qǐng)輸入當(dāng)前數(shù)據(jù)庫(kù)路徑！"
founderr=True
End IF
Else
Errorst="備份目錄下并無(wú)您的備份文件！"
founderr=true
End IF
IF founderr=true THEN
Call Form_Error()
Else
fso.copyfile Dbpaths,backpath
ToHistory=VisitorsForm
saveok="數(shù)據(jù)庫(kù)恢復(fù)成功！"
Call Form_Saveok()
End IF
case "sZi"
Set fso = CreateObject("Scripting.FileSystemObject")
dbpath=request.form("dbpath")
dbpath = server.mappath(dbpath)
boolIs97=request.form("boolIs97")
IF fso.fileexists(dbpath) THEN
IF request.form("dbpath")="" THEN
Errorst="請(qǐng)輸入要壓縮的數(shù)據(jù)庫(kù)路徑！"
founderr=true
End IF
Else
Errorst="要壓縮的數(shù)據(jù)庫(kù)名稱錯(cuò)誤，請(qǐng)輸入正確的路徑！"
founderr=true
End IF
IF founderr=true THEN
Call Form_Error()
Else
strDBPath = left(dbPath,instrrev(DBPath,"\"))
Set Engine = CreateObject("JRO.JetEngine")
fso.CopyFile dbpath,strDBPath & "temp.mdb"
IF boolIs97 = "True" THEN
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp1.mdb;" _
& "Jet OLEDB:Engine Type=" & JET_3X
Else
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp1.mdb"
End IF
fso.CopyFile strDBPath & "temp1.mdb",dbpath
fso.DeleteFile(strDBPath & "temp.mdb")
fso.DeleteFile(strDBPath & "temp1.mdb")
Set fso = Nothing
Set Engine = Nothing
ToHistory=VisitorsForm
saveok="成功壓縮數(shù)據(jù)庫(kù)！"
Call Form_Saveok()
End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -