database.asp

Ajax留言本源代码 网上找到的一个源码,希望做网站的能用上.

<!--#include file="Function.asp"-->

<%
SiteHead "数据库管理",5

%>

<table width="<%=SiteWidth%>" border="0" align="center" cellpadding="2" cellspacing="0">
<tr><td height="25" align="center" class="td">数据库管理</td></tr>
<tr><td class="trHead">　</td></tr>
<tr><td valign="top">

    <table width="100%" border="0" align="center" cellpadding="2" cellspacing="0">
    <tr><td valign="top">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr><td rowspan="4" width="100">数据库基本情况：</td><td>路径</td><td><%=Request.ServerVariables("APPL_PHYSICAL_PATH")&Replace(Database,"/","\")%></td></tr>
<tr><td width="80">占用空间</td><td><%=GetTotalSize(Server.Mappath(Database),"File")%></td></tr>
<tr><td>占用总空间</td><td><%=GetTotalSize(Server.Mappath("/"),"Folder")%></td></tr>
<tr><td>数据库相关操作</td><td>【<a href="?ChoosePage=DataBase&Action=Compact">压缩</a>】【<a href="?ChoosePage=DataBase&Action=BackUp">备份</a>】
【<a href="?ChoosePage=DataBase&Action=ClearAll">清除错误</a>】</td></tr>
<tr><td>备份文件列表：</td><td colspan="2">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="0">
<%
Dim Action,FSO,DataFolder,DataFileList,DataFile,DataFileName
Action=request.querystring("Action")

Set FSO=Server.CreateObject("Scripting.FileSystemObject")
 Set DataFolder=FSO.GetFolder(Server.MapPath("./"))
 Set DataFileList=DataFolder.Files
  for each DataFile in DataFileList
	if InStr(DataFile,".TEMP")>=1 or Instr(DataFile,".bak")>=1 or Instr(DataFile,".dat")>=1 then
	  DataFileName=DataFile.Name
	  response.write "<tr><td class=""TdBorder2""><font color=""#FF0000"">"&DataFileName&"</font>&nbsp;("&GetTotalSize(DataFile,"File")&")</td>"&VbCrLf&_
	  "<td class=""TdBorder2"" align=""center"">"&GetTime(DataFile.DateLastModified,1)&"</td>"&VbCrLf&_
	  "<td class=""TdBorder2"" align=""center""><a href="""&MDBPath&"/"&DataFileName&""">下载此文件</a></td>"&VbCrLf&_
	  "<td class=""TdBorder2"" align=""center""><a href=""?ChoosePage=DataBase&Action=Delete&FileName="&DataFileName&""">删除此文件</a></td>"&VbCrLf&_
	  "<td class=""TdBorder1"" align=""center""><a href=""?ChoosePage=DataBase&Action=Restore&FileName="&DataFileName&""">从此文件还原数据</a></td></tr>"
	End IF
  next
response.write "<tr><td class=""TdBorder1"" colspan=""5"">操作信息：<br>"
if FSO.FileExists(Server.Mappath(Database)) then
if Action="Compact" then
	response.write "压缩数据库开始，网站暂停一切用户的前台操作......<br>"
	Con.Close
	Set Con=Nothing
	Application.Lock
    Application(PreName&"_State")=0
    Application(PreName&"_CloseWhy")="网站数据压缩中……大约需要一分钟！开始时间："&now()
	Application.UnLock
	dim Engine
	Set Engine = CreateObject("JRO.JetEngine")
	Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(Database), "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(Database& ".temp")
	FSO.CopyFile Server.Mappath(Database& ".temp"),Server.Mappath(Database)
	FSO.DeleteFile(Server.Mappath(db & ".temp"))
	Set Engine = Nothing
	response.write "压缩数据库完成..."
	Application.Lock
    Application(PreName&"_State")=1
    Application(PreName&"_CloseWhy")=""
	Application.UnLock
	response.write "<br>网站恢复正常访问..."
	response.write "<br><a href=""?ChoosePage=DataBase"">请点击返回</a>"

elseif Action="BackUp" then
  	response.write "备份数据库开始，网站暂停一切用户的前台操作......<br>"
	Conn.Close
	Set Conn=Nothing
	Application.Lock
    Application(PreName&"_State")=0
    Application(PreName&"_CloseWhy")="网站数据备份中……备份过程大约需要一分钟！开始时间："&now()
	Application.UnLock
	FSO.CopyFile Server.Mappath(Database),Server.Mappath("/")&"/"&GetTime(now(),7)&".dat"
	response.write "备份完成...<br>"
	Application.Lock
    Application(PreName&"_State")=1
    Application(PreName&"_CloseWhy")=""
    Application.UnLock
	response.write "网站恢复正常访问...<br>"
	response.write "<a href=""?ChoosePage=DataBase"">请点击返回</a><br>"
elseif Action="Delete" then
	if Request.QueryString("FileName")=Empty then
		response.write "<a href=""DataBase.asp"">操作中止，文件名为空，请点击返回</a>"
	else
		response.write "文件删除……<br>"
		if DeleteFiles(Server.MapPath("/"&Request.QueryString("FileName")))=1 then
			response.write "<a href=""?ChoosePage=DataBase"">文件删除成功，请点击返回</a>"
		else
			response.write "<a href=""?ChoosePage=DataBase"">文件删除失败，请点击返回</a>"
		end if
  end if
elseif Action="Restore" then
	Response.Write "还原数据库开始，网站暂停一切用户的前台操作......<br>"
	Con.Close
	Set Con=Nothing
	Application.Lock
    Application(PreName&"_State")=0
    Application(PreName&"_CloseWhy")="网站暂停中……一分钟后开放！现在时间："&now()
	Application.UnLock
	if Request.QueryString("FileName")=Empty then
		response.write "<b>要还原的文件名不能为空</b>"
	else
        Response.write "备份原数据库...."
        FSO.CopyFile Server.Mappath(Database),Server.Mappath(Database& ".TEMP")
        Response.write "<font color=""red"">成功</font>"
        if DeleteFiles(Server.Mappath(Database))=1 then response.write "<br>原数据库删除成功"
        response.write Server.Mappath(Database)
        response.write "<br>更新数据库...."
        FSO.CopyFile Server.Mappath(MDBPath)&"/"&Request.QueryString("FileName"),Server.Mappath(db)
        if DeleteFiles(Server.MapPath(MDBPath&"/"&Request.QueryString("FileName")))=1 then response.write "<br>备份删除成功"
		if DeleteFiles(Server.Mappath(db & ".TEMP"))=1 then response.write "<br>Temp备份删除成功"
		response.write "<br>还原完成..."
	end if
	Application.Lock
    Application(PreName&"_State")=1
    Application(PreName&"_CloseWhy")=""
	Application.UnLock
	response.write "<br>网站恢复正常访问..."
	response.write "<br><a href=""?ChoosePage=DataBase"">请点击返回</a>"
elseif Action="ClearAll" then
	Application.Lock
    Application(PreName&"_State")=1
    Application(PreName&"_CloseWhy")=""
	Application.UnLock
	response.write "网站恢复正常访问..."
	response.write "<br><a href=""?ChoosePage=DataBase"">请点击返回</a>"
end if
else
response.write "数据源不存在！操作中止"
end if
response.write "</td></tr>"
%>
</table>
    </td></tr>
    </table>

</td></tr>
<tr><td class="trHead">　</td></tr>
<tr><td height="25" align="right" class="td"><%SiteBottom%></td></tr></table>
</body>
</html>