<!--#include file="../conn.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="common/admin_data_inc.asp"-->
<%
res w3chead(""),1
nowtit="數據庫"
Login_Judge
powerid=103
restit nowtit,"信息維護"
Dim ZC_DATABASE_PATH
Dim size_n
Dim data_array
Dim bkfolders
'數據庫的路徑
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" '壓縮數據
	Ispower powerid & "3"
	nowmenu
	Dim tmprs
	dim allarticle
	dim Maxid
	dim topic,username,dateandtime,body
	CompressData
case "BackupData" '備份數據
	Ispower powerid & "1"
	nowmenu
	if request("act")="Backup" Then
		updata
	else
		BackupData
	end If
case "RestoreData" '恢復數據
	Ispower powerid & "2"
	nowmenu
	dim backpath
	if request("act")="Restore" Then
		Dbpath=che(request.form("Dbpath"))
		backpath="../"&ZC_DATABASE_PATH
		if dbpath="" Then
			errormsg "Error 文件名錯誤!"
		ElseIf Not IsValidChars(Dbpath) Then 
			errormsg "Error 文件名錯誤!"
		else
			Dbpath=server.mappath("../Databackup/"&Dbpath&"_mdb_bak")
			backpath=server.mappath(backpath)
			Set Fso=server.CreateObject("scripting.filesystemobject")
			if fso.fileexists(dbpath) Then 
				fso.copyfile Dbpath,Backpath
				rightmsg "","數據庫被成功還原!<br>"
			else
				errormsg "沒找到您所需要的數據庫!" 
			end If
		end If
	else
		call RestoreData()
	end If
Case "SpaceSize" '系統空間占用
	nowmenu
	SpaceSize
Case "deletebackup"
	Ispower powerid & "2"
	nowmenu
	Dim dbname
	'dbpath=Request.QueryString("dbpath")
	dbname=che(Request.QueryString("dbname"))
	Dbpath=server.mappath("../Databackup/"&dbname)
	'dbpath=dbpath &"\"&dbname
	set fso = CreateObject("Scripting.FileSystemObject")
	If fso.FileExists(dbPath) Then
		fso.DeleteFile(DBPath)
		Set fso = nothing
		rightmsg "?action=BackupData","您備份的數據庫已經" & dbpath &"被成功刪除!"
	Else
		'response.write dbpath 
		errormsg "輸入的路徑錯誤,請確認后重新輸入!"
	End If
Case Else
End Select

res footer(1),0
%>