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