<!--#include file="../conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="admin_page_top.asp"-->
<!--#include file="common/admin_data_inc.asp"-->
<%
nowtit="數(shù)據(jù)庫"
Login_Judge
powerid=103
restit nowtit,"信息維護"
Dim ZC_DATABASE_PATH
Dim size_n
Dim data_array
Dim bkfolders
'數(shù)據(jù)庫的路徑
ZC_DATABASE_PATH=DataPath
data_array= Split(ZC_DATABASE_PATH,"/")
action=trim(request("action"))
Dim dbpath,bkfolder,bkdbname,fso,fso1
Select Case action
Case ""
Case "CompressData" '壓縮數(shù)據(jù)
	Ispower powerid & "3"
	nowmenu
	Dim tmprs
	dim allarticle
	dim Maxid
	dim topic,username,dateandtime,body
	CompressData
case "BackupData" '備份數(shù)據(jù)
	Ispower powerid & "1"
	nowmenu
	if request("act")="Backup" Then
		updata
	else
		BackupData
	end If
case "RestoreData" '恢復(fù)數(shù)據(jù)
	Ispower powerid & "2"
	nowmenu
	dim backpath
	if request("act")="Restore" Then
		Dbpath=request.form("Dbpath")
		
		backpath="../"&ZC_DATABASE_PATH
		if dbpath="" Then
		response.write "Please input your database whole Name" 
		else
		Dbpath=server.mappath(Dbpath)
		end If
		
		backpath=server.mappath(backpath)
		Set Fso=server.CreateObject("scripting.filesystemobject")
		if fso.fileexists(dbpath) Then 
			fso.copyfile Dbpath,Backpath
			rightmsg "","數(shù)據(jù)庫被成功還原!<br>"
		else
			errormsg "沒找到您所需要的數(shù)據(jù)庫!" 
		end If
	else
		call RestoreData()
	end If
Case "SpaceSize" '系統(tǒng)空間占用
	nowmenu
	SpaceSize
Case "deletebackup"
	Ispower powerid & "2"
	nowmenu
	Dim dbname
	dbpath=Request.QueryString("dbpath")
	dbname=Request.QueryString("dbname")
	dbpath=Server.MapPath(dbpath)
	dbpath=dbpath &"\"&dbname
	set fso = CreateObject("Scripting.FileSystemObject")
	If fso.FileExists(dbPath) Then
		fso.DeleteFile(DBPath)
		Set fso = nothing
		rightmsg "?action=BackupData","您備份的數(shù)據(jù)庫已經(jīng)" & dbpath &"被成功刪除!"
	Else
		response.write dbpath 
		errormsg "輸入的路徑錯誤,請確認后重新輸入!"
	End If
Case Else
End Select

%>
<!--#include file="admin_page_footer.asp"-->