?? admin_data.asp
字號:
<!--#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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -