?? admin_data_inc.asp
字號:
<%
'****************************************************
'名稱:nowmenu
'功能:管理快捷菜單
'****************************************************
Sub nowmenu()
res "<h4><b>相關操作：</b>",1
res "<a href=""?action=SpaceSize"">系統空間占用</a> | ",1
res "<a href=""?action=CompressData"">壓縮數據庫</a> | ",1
res "<a href=""?action=BackupData"">備份數據庫</a> | ",1
res "<a href=""?action=RestoreData"">恢復數據庫</a> ",1
res "</h4>",1
res "<div style=""height:3px;width:100%;background: #fff;""></div>",1
End Sub
'====================系統空間占用=======================
Sub SpaceSize()
'On Error Resume Next
%>
<h2>系統空間查看</h2>
<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
<!-- <tr>
<td class="art_tit zq">注意：
輸入數據庫所在相對路徑,并且輸入數據庫名稱（正在使用中數據庫不能壓縮，請選擇備份數據庫進行壓縮操作）
</td>
</tr> -->
<tr>
<td class="art_info2 zq">數據庫：<%showSpaceinfo("../"&data_array(UBound(data_array)-1))%>
<br><div class="pro_dd"><span style="width:<%=size_n%>px;">.</span></div></td></tr>
<tr>
<td class="art_info2 zq">備份數據庫：<%showSpaceinfo("../databackup")%>
<br><div class="pro_dd"><span style="width:<%=size_n%>px;">.</span></div></td></tr>
<tr>
<td class="art_info2 zq">頁面文件：<%showSpaceinfo("$$~_~$$")%>
<br><div class="pro_dd"><span style="width:<%=size_n%>px;">.</span></div></td></tr>
<tr>
<td class="art_info2 zq">上傳文件：<%showSpaceinfo("../upload")%>
<br><div class="pro_dd"><span style="width:<%=size_n%>px;">.</span></div></td></tr>
<tr>
<td class="art_info2 zq">系統總共：<%showSpaceinfo("../")%>
<br><div class="pro_dd"><span style="width:<%=size_n%>px;">.</span></div></td></tr>
</table>
<%End Sub
Sub ShowSpaceInfo(drvpath)
dim fso,d,e,f,g,h,showsize
Dim size,sizex,size1,size2,size3,size4
Dim drvpath1,drvpath2,drvpath3,drvpath4
set fso=server.CreateObject("scripting.filesystemobject")
'判斷目錄存在，否則建立目錄
If Not fso.FolderExists(Server.MapPath(drvpath)) Then
size_n = 0
Exit Sub
End If
drvpath1=server.mappath("../")
set g=fso.getfolder(drvpath1)
sizex=g.size
If drvpath="$$~_~$$" Then
drvpath1=server.mappath("../")
set d=fso.getfolder(drvpath1)
size1=d.size
drvpath2=server.mappath("../databackup")
set e=fso.getfolder(drvpath2)
size2=e.size
drvpath3=server.mappath("../"&data_array(UBound(data_array)-1))
set f=fso.getfolder(drvpath3)
size3=f.size
drvpath4=server.mappath("../upload")
set h=fso.getfolder(drvpath4)
size4=h.size
size=size1-size2-size3-size4
Else
drvpath=server.mappath(drvpath)
set d=fso.getfolder(drvpath)
size=d.size
End If
size_n=Round(size/sizex*298,2)
showsize=size & " Byte"
if size>1024 Then
size=(Size/1024)
showsize=formatnumber(size,2) & " KB"
end If
if size>1024 Then
size=(size/1024)
showsize=formatnumber(size,2) & " MB"
end If
if size>1024 Then
size=(size/1024)
showsize=formatnumber(size,2) & " GB"
end If
response.write "<font face=verdana>" & showsize & "</font>"
End Sub
Sub RestoreData()%>
<h2>還原數據庫( 需要FSO支持，FSO相關幫助請看微軟網站 )</h2>
<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
<!-- <tr>
<td class="art_tit zq">注意：
輸入數據庫所在相對路徑,并且輸入數據庫名稱（正在使用中數據庫不能壓縮，請選擇備份數據庫進行壓縮操作）
</td>
</tr> -->
<form id="edit" method="post" action="?action=RestoreData&act=Restore">
<tr>
<td class="art_tit zq">所需要還原的備份文件名稱:<input type=text size=30 name=DBpath value="<%=Replace(Date(),"-","")%>">_mdb_Bak</td>
</tr>
<tr>
<td class="art_tit"> <input type=submit value="開始還原"></td>
</tr>
</form>
</table>
<h6>在上面填寫本程序的數據庫路徑全名，本程序的默認備份數據庫文件為DataBackup\時間_MDB_Bak，請按照您的備份文件自行修改。</h6>
<h6>您可以用這個功能來備份您的法規數據，以保證您的數據安全！</h6>
<h6>注意：所有路徑都是相對與程序空間根目錄的相對路徑</h6>
<%End Sub
Sub updata()
'Dbpath=ZC_DATABASE_PATH
Dbpath=server.mappath("../"&ZC_DATABASE_PATH)
'bkfolder=request.form("bkfolder")
bkdbname=che(request.form("bkdbname"))
If bkdbname="" Then bkdbname=Date
If Not IsValidChars(bkdbname) Then
errormsg "Error 文件名錯誤!"
Exit Sub
End If
bkfolder="..\Databackup"
'If bkfolder="..\" & data_array(UBound(data_array)-1) Then errormsg "Error 備份數據庫目標文件夾不可在系統數據庫目錄下!"
'If bkfolder="../" & data_array(UBound(data_array)-1) Then errormsg "Error 備份數據庫目標文件夾不可在系統數據庫目錄下!"
bkdbname=bkdbname & "_mdb_bak"
bkfolders=bkfolder
Set Fso=server.CreateObject("scripting.filesystemobject")
if fso.fileexists(dbpath) Then
If CheckDir(bkfolder) = True Then
fso.copyfile dbpath,bkfolder& "\"& bkdbname
else
MakeNewsDir bkfolder
fso.copyfile dbpath,bkfolder& "\"& bkdbname
end If
response.write "<h2>已經成功備份,你的數據庫的路徑:" &bkfolders& "\"& bkdbname&"</h2>"
response.write "<h4>點擊此處將數據庫下載下來:<a href="""& bkfolders & "/" & bkdbname &""">" & bkfolder & "/" & bkdbname &"</h4>"
response.write "<h4><a href=""?action=deletebackup&dbname=" & bkdbname &""">當您下載完畢后,點擊此處將刪除備份的數據庫!</h4>"
response.write "<h4><a href=""javascript:history.go(-1)"">返回上一頁</a></h4>"
Else
errormsg "Error 找不到文件!"
End If
Set fso = nothing
End Sub
'------------------檢查某一目錄是否存在-------------------
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
Sub BackupData()
%>
<h2>備份數據庫( 需要FSO支持，FSO相關幫助請看微軟網站 )</h2>
<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
<!-- <tr>
<td class="art_tit zq">注意：
輸入數據庫所在相對路徑,并且輸入數據庫名稱（正在使用中數據庫不能壓縮，請選擇備份數據庫進行壓縮操作）
</td>
</tr> -->
<form id="edit" method="post" action="?action=BackupData&act=Backup">
<!-- <tr>
<td class="art_tit zq">備份數據庫目錄(相對路徑)：<input type=text name=bkfolder value="..\Databackup" style="width:180px;"> 如目錄不存在，程序將自動創建</td>
</tr> -->
<tr>
<td class="art_tit zq">備份數據庫名稱(填寫名稱)：<input type=text name=bkDBname value="<%=Replace(Date(),"-","")%>" style="width:156px;">_mdb_bak <br /> 按日期自動命名。如備份目錄有該文件，將覆蓋，如沒有，將自動創建，只允許英文與數字以及“_”</td>
</tr>
<tr>
<td class="art_tit"> <input type=submit value="開始備份"></td>
</tr>
</form>
</table>
<h6>請一定不能用默認名稱命名備份數據庫。</h6>
<h6>您可以用這個功能來備份您的法規數據，以保證您的數據安全！</h6>
<h6>注意：所有路徑都是相對與程序空間根目錄的相對路徑</h6>
<%
End Sub
Sub CompressData()
%>
<h2>壓縮數據庫( 需要FSO支持，FSO相關幫助請看微軟網站 )</h2>
<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
<!-- <tr>
<td class="art_tit zq">注意：
輸入數據庫所在相對路徑,并且輸入數據庫名稱（正在使用中數據庫不能壓縮，請選擇備份數據庫進行壓縮操作）
</td>
</tr> -->
<form id="edit" action="?action=CompressData" method="post">
<tr>
<td class="art_tit zq"><input type="checkbox" name="boolIs97" value="True">如果是ac97,請將鉤打上.(默認是Access 2000)</td>
</tr>
<tr>
<td class="art_tit"> <input type="submit" value="開始壓縮"></td>
</tr>
<INPUT TYPE="hidden" NAME="Cdat" value="1">
</form>
</table>
<%
Dim dbpath,boolIs97
boolIs97 = request("boolIs97")
If request("Cdat")<>"" Then
dbpath = server.mappath("../"&ZC_DATABASE_PATH)
response.write(CompactDB(dbpath,boolIs97))
End If
End Sub
'=====================壓縮參數=========================
Function CompactDB(dbPath, boolIs97)
Dim fso, Engine, strDBPath,JET_3X
strDBPath = Left(dbPath,InStrRev(DBPath,"\"))
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(DBPath) Then
fso.CopyFile dbpath,strDBPath & "temp.mdb"
Set Engine = CreateObject("JRO.JetEngine")
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
CompactDB = "<h6>您的數據庫已經被成功壓縮! " & vbCrLf
Else
CompactDB = "<h6>您輸入的路徑錯誤,請確認后重新輸入!</h6>" & vbCrLf
End If
End Function
'*************************************
'檢測是否只包含英文和數字
'*************************************
Function IsValidChars(str)
IsValidChars=True
If str="" Then Exit Function
Dim re,chkstr
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="[^_a-zA-Z\d]"
chkstr=re.Replace(str,"")
if Len(chkstr)<>len(str) then IsValidChars=False
set re=nothing
End Function
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -