backup.asp

台讯企业全站管理系统V2006 供下载时经过了严格的测试

 <%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 产品名称：台讯企业全站管理系统（V2006简体中文版）
' 程序开发：HECHENn（QQ：34103037　Emial：[e-mail]）
' 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()
%>