?? backup.asp
字號:
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 產品名稱：臺訊企業全站管理系統（V2006簡體中文版）
' 程序開發：HECHENn（QQ：34103037 Emial：hechenn@126.com）
' Copyright 2006 txcodes.com - All Rights Reserved.
'***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.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>數據庫備份</A> | <A HREF=Backup.asp?Action=Hf>數據庫恢復</A> | <A HREF=Backup.asp?Action=Zi>數據庫壓縮</A>"
Select case Action
case "Bac"
Call Page_AdminFlag(62)
Page_BootmName="數據庫備份"
Page_BootName="您現在的位置：<A HREF=A_Right.asp>管理首頁</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>當前數據庫路徑：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=MdbName TYPE=text id=MdbName VALUE='" & MdbName & "' size=30> <BR>請輸入當前數據庫路徑全名，本程序的默認數據庫徑為" & MdbName & "<BR>如果您修改過數據庫路徑，請輸入修改后的路徑</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=70 CLASS=Table8>備份數據庫目錄：</TD>"&_
""&_
"<TD CLASS=Table8><INPUT NAME=nFileName TYPE=text id=nFileName VALUE=D_backup size=30> <BR>如目錄不存在，程序將自動創建，建議修改</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=70 CLASS=Table8>備份數據庫名稱：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=NewMdbName TYPE=text id=NewMdbName VALUE='" & Date() & ".mdb' size=30> <BR>如備份目錄有該文件，將覆蓋，如沒有，將自動創建</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="數據庫恢復"
Page_BootName="您現在的位置：<A HREF=A_Right.asp>管理首頁</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>備份數據庫路徑：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=OldMdbName TYPE=text id=OldMdbName VALUE='" & Obkfolder & "\" & ObkDBname & "' size=30> <BR>默認為系統最后一次備份的數據庫路徑<BR>請按照您的備份文件自行修改</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=70 CLASS=Table8>目標數據庫路路徑：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=MdbName TYPE=text id=MdbName VALUE='" & MdbName & "' size=30><BR>請輸入當前數據庫路徑全名，本程序的默認數據庫路徑為" & 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="數據庫壓縮"
Page_BootName="您現在的位置：<A HREF=A_Right.asp>管理首頁</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>壓縮數據庫：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=dbpath TYPE=text id=dbpath VALUE='" & MdbName & "' size=30><BR>請輸入要壓縮的數據庫路徑全名，本程序的默認數據庫路徑為" & MdbName & "</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 colspan=2 CLASS=Table8>"&_
"<INPUT TYPE=checkbox CLASS=radio_all NAME=boolIs97 VALUE=True> "&_
"如果使用 Access 97 數據庫請選擇（默認為 Access 2000 數據庫）"&_
"</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="請輸入當前數據庫名稱！"
founderr=true
ElseIF request.form("nFileName")="" THEN
Errorst="請輸入備份數據庫目錄！"
founderr=true
ElseIF request.form("NewMdbName")="" THEN
Errorst="請輸入備份數據庫名稱！"
founderr=true
End IF
Else
Errorst="當前數據庫名稱錯誤，請輸入正確的路徑！"
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="數據庫備份成功！"
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="請輸入備份數據庫路徑！"
founderr=True
ElseIF request.form("MdbName")="" THEN
Errorst="請輸入當前數據庫路徑！"
founderr=True
End IF
Else
Errorst="備份目錄下并無您的備份文件！"
founderr=true
End IF
IF founderr=true THEN
Call Form_Error()
Else
fso.copyfile Dbpaths,backpath
ToHistory=VisitorsForm
saveok="數據庫恢復成功！"
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="請輸入要壓縮的數據庫路徑！"
founderr=true
End IF
Else
Errorst="要壓縮的數據庫名稱錯誤，請輸入正確的路徑！"
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="成功壓縮數據庫！"
Call Form_Saveok()
End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -