?? admin_database.asp
字號:
<!-- #include file="../conn.asp" --><!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" --><!-- #include file="../inc/version.asp" -->
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
<%
Dim bkfolder, bkdbname, fso, fso1
Dim Action
Action = LCase(Request("action"))
Select Case Action
Case "renamedata" '數據庫更名
Call RenameData()
Case "backupdata" '備份數據
If request("act") = "Backup" Then
If IsSqlDataBase = 1 Then
Call BackupSqlDatabase()
Else
Call BackupDatabase()
End If
Else
Call BackupData()
End If
Case "compressdata" '壓縮數據
If request("act") = "Compress" Then
Call CompressDatabase()
Else
Call CompressData()
End If
Case "restoredata" '恢復數據
If request("act") = "Restore" Then
If IsSqlDataBase = 1 Then
Call RestoreSqlDatabase()
Else
Call RestoreDatabase
End If
Application.Contents.RemoveAll
Else
Call RestoreData()
End If
Case "spacesize" '系統空間占用
Call SpaceSize()
Case Else
Errmsg = ErrMsg + "<BR><li>選取相應的操作。"
ReturnError(ErrMsg)
End Select
If FoundErr = True Then
ReturnError(ErrMsg)
End If
'====================系統空間占用=======================
Sub SpaceSize()
On Error Resume Next
%>
<%
End Sub
Sub SQLUserReadme()
%>
<table border="0" cellspacing="1" cellpadding="5" height="1" align=center width="95%">
<tr>
<th height=25>
SQL數據庫數據處理說明
</th>
</tr>
<tr>
<td class="TableRow1">
<blockquote>
<B>一、備份數據庫</B>
<BR><BR>
1、打開SQL企業管理器，在控制臺根目錄中依次點開Microsoft SQL Server<BR>
2、SQL Server組-->雙擊打開你的服務器-->雙擊打開數據庫目錄<BR>
3、選擇你的數據庫名稱（如系統數據庫Newasp）-->然后點上面菜單中的工具-->選擇備份數據庫<BR>
4、備份選項選擇完全備份，目的中的備份到如果原來有路徑和名稱則選中名稱點刪除，然后點添加，如果原來沒有路徑和名稱則直接選擇添加，接著指定路徑和文件名，指定后點確定返回備份窗口，接著點確定進行備份
<BR><BR>
<B>二、還原數據庫</B><BR><BR>
1、打開SQL企業管理器，在控制臺根目錄中依次點開Microsoft SQL Server<BR>
2、SQL Server組-->雙擊打開你的服務器-->點圖標欄的新建數據庫圖標，新建數據庫的名字自行取<BR>
3、點擊新建好的數據庫名稱（如系統數據庫Newasp）-->然后點上面菜單中的工具-->選擇恢復數據庫<BR>
4、在彈出來的窗口中的還原選項中選擇從設備-->點選擇設備-->點添加-->然后選擇你的備份文件名-->添加后點確定返回，這時候設備欄應該出現您剛才選擇的數據庫備份文件名，備份號默認為1（如果您對同一個文件做過多次備份，可以點擊備份號旁邊的查看內容，在復選框中選擇最新的一次備份后點確定）-->然后點擊上方常規旁邊的選項按鈕<BR>
5、在出現的窗口中選擇在現有數據庫上強制還原，以及在恢復完成狀態中選擇使數據庫可以繼續運行但無法還原其它事務日志的選項。在窗口的中間部位的將數據庫文件還原為這里要按照你SQL的安裝進行設置（也可以指定自己的目錄），邏輯文件名不需要改動，移至物理文件名要根據你所恢復的機器情況做改動，如您的SQL數據庫裝在D:\Program Files\Microsoft SQL Server\MSSQL\Data，那么就按照您恢復機器的目錄進行相關改動改動，并且最后的文件名最好改成您當前的數據庫名（如原來是NewCloud_data.mdf，現在的數據庫是Newasp，就改成Newasp_data.mdf），日志和數據文件都要按照這樣的方式做相關的改動（日志的文件名是*_log.ldf結尾的），這里的恢復目錄您可以自由設置，前提是該目錄必須存在（如您可以指定d:\sqldata\NewCloud_data.mdf或者d:\sqldata\NewCloud_log.ldf），否則恢復將報錯<BR>
6、修改完成后，點擊下面的確定進行恢復，這時會出現一個進度條，提示恢復的進度，恢復完成后系統會自動提示成功，如中間提示報錯，請記錄下相關的錯誤內容并詢問對SQL操作比較熟悉的人員，一般的錯誤無非是目錄錯誤或者文件名重復或者文件名錯誤或者空間不夠或者數據庫正在使用中的錯誤，數據庫正在使用的錯誤您可以嘗試關閉所有關于SQL窗口然后重新打開進行恢復操作，如果還提示正在使用的錯誤可以將SQL服務停止然后重起看看，至于上述其它的錯誤一般都能按照錯誤內容做相應改動后即可恢復<BR><BR>
<B>三、收縮數據庫</B><BR><BR>
一般情況下，SQL數據庫的收縮并不能很大程度上減小數據庫大小，其主要作用是收縮日志大小，應當定期進行此操作以免數據庫日志過大<BR>
1、設置數據庫模式為簡單模式：打開SQL企業管理器，在控制臺根目錄中依次點開Microsoft SQL Server-->SQL Server組-->雙擊打開你的服務器-->雙擊打開數據庫目錄-->選擇你的數據庫名稱（如系統數據庫Newasp）-->然后點擊右鍵選擇屬性-->選擇選項-->在故障還原的模式中選擇“簡單”，然后按確定保存<BR>
2、在當前數據庫上點右鍵，看所有任務中的收縮數據庫，一般里面的默認設置不用調整，直接點確定<BR>
3、<font color=blue>收縮數據庫完成后，建議將您的數據庫屬性重新設置為標準模式，操作方法同第一點，因為日志在一些異常情況下往往是恢復數據庫的重要依據</font>
<BR><BR>
<B>四、設定每日自動備份數據庫</B><BR><BR>
<font color=red>強烈建議有條件的用戶進行此操作！</font><BR>
1、打開企業管理器，在控制臺根目錄中依次點開Microsoft SQL Server-->SQL Server組-->雙擊打開你的服務器<BR>
2、然后點上面菜單中的工具-->選擇數據庫維護計劃器<BR>
3、下一步選擇要進行自動備份的數據-->下一步更新數據優化信息，這里一般不用做選擇-->下一步檢查數據完整性，也一般不選擇<BR>
4、下一步指定數據庫維護計劃，默認的是1周備份一次，點擊更改選擇每天備份后點確定<BR>
5、下一步指定備份的磁盤目錄，選擇指定目錄，如您可以在D盤新建一個目錄如：d:\databak，然后在這里選擇使用此目錄，如果您的數據庫比較多最好選擇為每個數據庫建立子目錄，然后選擇刪除早于多少天前的備份，一般設定4－7天，這看您的具體備份要求，備份文件擴展名一般都是bak就用默認的<BR>
6、下一步指定事務日志備份計劃，看您的需要做選擇-->下一步要生成的報表，一般不做選擇-->下一步維護計劃歷史記錄，最好用默認的選項-->下一步完成<BR>
7、完成后系統很可能會提示Sql Server Agent服務未啟動，先點確定完成計劃設定，然后找到桌面最右邊狀態欄中的SQL綠色圖標，雙擊點開，在服務中選擇Sql Server Agent，然后點擊運行箭頭，選上下方的當啟動OS時自動啟動服務<BR>
8、這個時候數據庫計劃已經成功的運行了，他將按照您上面的設置進行自動備份
<BR><BR>
修改計劃：<BR>
1、打開企業管理器，在控制臺根目錄中依次點開Microsoft SQL Server-->SQL Server組-->雙擊打開你的服務器-->管理-->數據庫維護計劃-->打開后可看到你設定的計劃，可以進行修改或者刪除操作
<BR><BR>
<B>五、數據的轉移（新建數據庫或轉移服務器）</B><BR><BR>
一般情況下，最好使用備份和還原操作來進行轉移數據，在特殊情況下，可以用導入導出的方式進行轉移，這里介紹的就是導入導出方式，導入導出方式轉移數據一個作用就是可以在收縮數據庫無效的情況下用來減小（收縮）數據庫的大小，本操作默認為您對SQL的操作有一定的了解，如果對其中的部分操作不理解，可以咨詢動網相關人員或者查詢網上資料<BR>
1、將原數據庫的所有表、存儲過程導出成一個SQL文件，導出的時候注意在選項中選擇編寫索引腳本和編寫主鍵、外鍵、默認值和檢查約束腳本選項<BR>
2、新建數據庫，對新建數據庫執行第一步中所建立的SQL文件<BR>
3、用SQL的導入導出方式，對新數據庫導入原數據庫中的所有表內容<BR>
</blockquote>
</td>
</tr>
</table>
<%
End Sub
'====================數據庫更名=========================
Sub RenameData()
If IsSqlDataBase = 1 Then
SQLUserReadme()
Exit Sub
End If
Dim AccDataPath,AccDataName,sAccDataPath
AccDataPath = Replace(db,"/","\")
sAccDataPath = Split(AccDataPath, "\")
AccDataName = sAccDataPath(UBound(sAccDataPath))
%>
<table width="95%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr><th colspan=2 height="22"> 數劇庫更名 ( 需要FSO支持，FSO相關幫助請看微軟網站 )</th></tr>
<td width="30%" class="TableRow1Highlight" height=23> 請輸入要更改的數據庫名稱<BR>操作前最好先備份數據庫！</td>
<form action="admin_datarename.asp?action=rename" method="post">
<input type=hidden name="oldDataName" value="<%=db%>">
<td width="70%" class="TableRow1"><input name="newDataName" value="<%=AccDataName%>" size="35">
<input name="b1" type="submit" class=button value="確認更名"></td></form>
</tr>
</table>
<%
End Sub
'====================恢復數據庫=========================
Sub RestoreData()
If IsSqlDataBase = 1 Then
%>
<table border="0" cellspacing="1" cellpadding="5" height="1" align=center width="95%" class="twidth">
<tr>
<th height=25 >
恢復SQL數據
</th>
</tr>
<form method="post" action="?action=RestoreData&act=Restore">
<tr>
<td height=100 class="TableRow1">
恢復SQL數據庫名稱：<input type=text size=25 name=SqlDataName value="<%=SqlDatabaseName%>"><BR>
SQL數據庫用戶名稱：<input type=text size=25 name=SqlUserID value="<%=SqlUsername%>"> 請輸入您的SQL數據庫用戶名<BR>
SQL數據庫用戶密碼：<input type=Password size=25 name=SqlUserPass value="<%=SqlPassword%>"> 請輸入您的SQL數據庫連接密碼<BR>
SQL數據庫服務器名：<input type=text size=25 name=SqlServer value="<%=SqlLocalName%>"> 連接服務器名（本地用local，外地用IP）<BR>
備份SQL數據庫目錄：<input type=text size=25 name=BackupSqlDir value="Databackup"> 請輸入您備份的數據庫目錄<BR>
備份SQL數據庫名稱：<input type=text size=25 name=BackupSqlName value="$1.bak"> 請輸入您備份的數據庫名<BR>
<input type=submit value="恢復數據庫" class=Button><br>
-----------------------------------------------------------------------------------------<br>
您可以用這個功能來恢復您的法規數據，請確定你的數據庫用戶有相關權限才能恢復！<br>
注意：數據庫使用中可能無法恢復 </font>
</td>
</tr>
</form>
</table>
<%
Else
%>
<table border="0" cellspacing="1" cellpadding="5" height="1" align=center width="95%" class="tableBorder">
<tr>
<th height=25 >
恢復系統數據 ( 需要FSO支持，FSO相關幫助請看微軟網站 )
</th>
</tr>
<form method="post" action="?action=RestoreData&act=Restore">
<tr>
<td height=100 class="TableRow1">
備份數據庫路徑(相對)：<input type=text size=45 name=DBpath value="DataBackup\NewCloud_Backup.MDB"> <BR>
目標數據庫路徑(相對)：<input type=text size=45 name=backpath value="<%=db%>"><BR> 填寫您當前使用的數據庫路徑，如不想覆蓋當前文件，可自行命名（注意路徑是否正確），然后修改conn.asp文件，如果目標文件名和當前使用數據庫名一致的話，不需修改conn.asp文件<BR>
<input type=submit value="恢復數據庫" class=Button> <br>
-----------------------------------------------------------------------------------------<br>
在上面填寫本程序的數據庫路徑全名，本程序的默認備份數據庫文件為DataBackup\NewCloud_Backup.MDB，請按照您的備份文件自行修改。<br>
您可以用這個功能來備份您的法規數據，以保證您的數據安全！<br>
注意：所有路徑都是相對與程序空間根目錄的相對路徑</font>
</td>
</tr>
</form>
</table>
<%
End If
End Sub
'====================備份數據庫=========================
Sub BackupData()
If IsSqlDataBase = 1 Then
%>
<table border="0" cellspacing="1" cellpadding="5" height="1" align=center width="95%" class="tableBorder1">
<tr>
<th height=25 >
備份SQL數據
</th>
</tr>
<form method="post" action="?action=BackupData&act=Backup">
<tr>
<td height=100 class="TableRow1">
當前SQL數據庫名稱：<input type=text size=25 name=SqlDataName value="<%=SqlDatabaseName%>"><BR>
SQL數據庫用戶名稱：<input type=text size=25 name=SqlUserID value="<%=SqlUsername%>"> 請輸入您的SQL數據庫用戶名<BR>
SQL數據庫用戶密碼：<input type=Password size=25 name=SqlUserPass value="<%=SqlPassword%>"> 請輸入您的SQL數據庫連接密碼<BR>
SQL數據庫服務器名：<input type=text size=25 name=SqlServer value="<%=SqlLocalName%>"> 連接服務器名（本地用local，外地用IP）<BR>
備份SQL數據庫目錄：<input type=text size=25 name=BackupSqlDir value="Databackup"> 如目錄不存在，程序將自動創建<BR>
備份SQL數據庫名稱：<input type=text size=25 name=BackupSqlName value="$1.bak"> 如使用默認的($1)備份名,系統將自動按日期時間創建備份名稱<BR>
<input type=submit value="備份數據庫" class=Button><br>
-----------------------------------------------------------------------------------------<br>
您可以用這個功能來備份您的法規數據，以保證您的數據安全！<br>
注意：所有路徑都是相對與程序空間管理目錄的相對路徑 </font>
</td>
</tr>
</form>
</table>
<%
Else
%>
<table border="0" cellspacing="1" cellpadding="5" height="1" align=center width="95%" class="tableBorder1">
<tr>
<th height=25 >
備份系統數據 ( 需要FSO支持，FSO相關幫助請看微軟網站 )
</th>
</tr>
<form method="post" action="?action=BackupData&act=Backup">
<tr>
<td height=100 class="TableRow1">
當前數據庫路徑(相對路徑)：<input type=text size=45 name=DBpath size=45 value="<%=db%>"><BR>
備份數據庫目錄(相對路徑)：<input type=text size=20 name=bkfolder size=45 value=Databackup> 如目錄不存在，程序將自動創建<BR>
備份數據庫名稱(填寫名稱)：<input type=text size=20 name=bkDBname size=45 value=NewCloud_Backup.MDB> 如備份目錄有該文件，將覆蓋，如沒有，將自動創建<BR>
<input type=submit value="備份數據庫" class=Button><br>
-----------------------------------------------------------------------------------------<br>
在上面填寫本程序的數據庫路徑全名，本程序的默認數據庫文件為<%=db%>，<B>請一定不能用默認名稱命名備份數據庫</B><br>
您可以用這個功能來備份您的法規數據，以保證您的數據安全！<br>
注意：所有路徑都是相對與程序空間管理目錄的相對路徑 </font>
</td>
</tr>
</form>
</table>
<%
End If
End Sub
Sub BackupDatabase()
Dbpath = request.Form("Dbpath")
If InStr(Dbpath, ":") = 0 Then
Dbpath = Server.MapPath(Dbpath)
Else
Dbpath = Dbpath
End If
bkfolder = request.Form("bkfolder")
bkdbname = request.Form("bkdbname")
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
Succeed("備份數據庫成功，您備份的數據庫路徑為" &bkfolder& "\"& bkdbname)
Else
FoundErr = True
ErrMsg = "找不到您所需要備份的文件。"
Exit Sub
End If
End Sub
Sub RestoreDatabase()
Dim backpath,Dbpath
Dbpath = request.Form("Dbpath")
backpath = request.Form("backpath")
If dbpath = "" Then
FoundErr = True
ErrMsg = "請輸入您要恢復成的數據庫全名"
Exit Sub
End If
If InStr(Dbpath, ":") = 0 Then
Dbpath = Server.MapPath(Dbpath)
Else
Dbpath = Dbpath
End If
If InStr(backpath, ":") = 0 Then
backpath = Server.MapPath(backpath)
Else
backpath = backpath
End If
Set Fso = server.CreateObject("scripting.filesystemobject")
If fso.FileExists(dbpath) Then
fso.CopyFile Dbpath, Backpath
Succeed("成功恢復數據！")
Else
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -