?? data.asp
字號:
<!--#include file="admin_conn.asp"-->
<%
if session("admin_name")="" then
response.redirect"admin.asp"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>STONE空間 flash留言本 后臺管理</title>
<meta name="keywords" content="STONE,STONE空間 flash留言本">
<meta http-equiv="STONE空間 flash留言本" content="http://stone-stone.vip.sina.com">
<meta name="description" content="本程序由 STONE 設計編寫！程序有問題請到 STONE空間 flash留言本 提出，謝謝！">
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body>
<div align="center">
<!--#include file="top.asp" -->
<br>
<%
dim bakfolder,bakname
'備份數據庫的文件夾
bakfolder="../data/bak"
'備份數據庫的文件
bakname="bak.asp"
bakdb=bakfolder&"/"&bakname
set fileobj=server.createobject("scripting.filesystemobject")
if fileobj.FileExists(server.mappath(bakdb)) then
bakdatar="存在"
end if
set fileobj=nothing
Function GetFileSize(FileName)
set fso=server.createobject("scripting.filesystemobject")
drvpath=server.mappath(FileName)
set d=fso.getfile(drvpath)
size=d.size
showsize=size & " Byte"
if size>1024 then
size=(Size/1024)
showsize=round(size,2) & " KB"
end if
if size>1024 then
size=(size/1024)
showsize=round(size,2) & " MB"
end if
if size>1024 then
size=(size/1024)
showsize=round(size,2) & " GB"
end if
set fso=nothing
GetFileSize = showsize
End Function
' 檢測服務器是否支持某一對象
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
'查看文件修改時間
Function GetFileModified(FileName)
set fso=server.createobject("scripting.filesystemobject")
set d=fso.getfile(server.mappath(FileName))
set fso=nothing
GetFileModified = d.datelastmodified
End Function
%>
<%
select case request("action")
case "gopage"
call manage()
case "info"
call info()
case "canshu"
call canshu()
case "gmhuifu"
call gmhuifu()
case "canshu_edit"
call canshu_edit()
case "manage"
call manage()
case "edit_pwd"
call edit_pwd()
case "edit_pwd_save"
call edit_pwd_save()
case "view"
call view()
case "del"
call del()
case "shujuku"
call shujuku()
case "beifen"
call beifen()
case "yasuo"
call yasuo()
case "huifu"
call huifu()
end select
'備份數據庫
sub beifen()
Set Fso=server.createobject("scripting.filesystemobject")
If Fso.fileexists(server.mappath(db)) then
Fso.copyfile server.mappath(db),server.mappath(bakdb)
end if
set Fso=nothing
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile server.mappath(bakdb),server.mappath(bakfolder) & "temp.mdb"
Set Engine = CreateObject("JRO.JetEngine")
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(bakfolder) & "temp.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(bakfolder) & "temp1.mdb"
fso.CopyFile server.mappath(bakfolder) & "temp1.mdb",server.mappath(bakdb)
fso.DeleteFile(server.mappath(bakfolder) & "temp.mdb")
fso.DeleteFile(server.mappath(bakfolder) & "temp1.mdb")
Set fso = nothing
Set Engine = nothing
response.write "<script language=javascript>alert('備份數據庫成功！');location.href('?action=shujuku');</script>"
end sub
'恢復數據庫
sub huifu()
Set Fso=server.createobject("scripting.filesystemobject")
If Fso.fileexists(server.mappath(bakdb)) then
Fso.copyfile server.mappath(bakdb),server.mappath(db)
end if
set Fso=nothing
response.write "<script language=javascript>alert('恢復數據庫成功！');location.href('?action=shujuku');</script>"
end sub
%>
<% sub shujuku()%>
<table width="760" border="1" cellpadding="1" cellspacing="1" bordercolor="66ccff">
<tr>
<td align="center">
<table width="100%" border="0" cellspacing="2" cellpadding="2">
<form action="?action=beifen" method="post" name="beifen" id="beifen">
<tr align="center" bgcolor="#3399CC">
<td height="25" colspan="2">備份據庫管理</td>
</tr>
<tr>
<td width="26%" height="25" align="right" bgcolor="#66CCFF" class="fonthei">數據庫：</td>
<td align="left" valign="top" bgcolor="#006699"> 路徑：<%= db %></td>
</tr>
<tr>
<td width="26%" height="25" align="right" bgcolor="#66CCFF" class="fonthei"> </td>
<td align="left" valign="top" bgcolor="#006699"> 文件大小：<% if IsObjInstalled("Scripting.FileSystemObject") = False Then %>不支持FSO<% Else %>
<%= GetFileSize(db) %><% End If %>
</td>
</tr>
<tr bgcolor="#3399CC">
<td height="25" colspan="2" align="right" valign="top" class="fonthei"> </td>
</tr>
<% If bakdatar="存在" Then %>
<tr>
<td height="25" align="right" bgcolor="#66CCFF" class="fonthei">備 份：</td>
<td align="left" valign="top" bgcolor="#006699">
路徑：<%= bakdb %> </td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#66CCFF" class="fonthei"> </td>
<td align="left" valign="top" bgcolor="#006699"> 文件大小：<%if IsObjInstalled("Scripting.FileSystemObject") = False Then %>不支持FSO<% Else %><%= GetFileSize(bakdb) %><% End If %>
</td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#66CCFF" class="fonthei"> </td>
<td align="left" valign="top" bgcolor="#006699"> 最后備份時間：<%if IsObjInstalled("Scripting.FileSystemObject") = False Then %>不支持FSO<% Else %><%= GetFileModified(bakdb) %><% End If %>
</td>
</tr>
<% Else %>
<tr align="center">
<td height="25" colspan="2" bgcolor="#66CCFF" class="fonthei">還沒有備份數據庫！</td>
</tr>
<% End If %>
<tr bgcolor="#3399CC">
<td height="25" align="right" class="fonthei"> </td>
<td align="left"><%if IsObjInstalled("Scripting.FileSystemObject") = False Then %>不支持FSO<% Else %><input name="Submit" type="submit" class="inputbt" value="備 份"><% End If %>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<br>
<% If bakdatar="存在" Then %>
<table width="760" border="1" cellpadding="1" cellspacing="1" bordercolor="66ccff">
<tr>
<td align="center">
<table width="100%" border="0" cellspacing="2" cellpadding="2">
<form action="?action=huifu" method="post" name="huifu" id="huifu">
<tr align="center" bgcolor="#3399CC">
<td height="25" colspan="2">還原據庫管理</td>
</tr>
<tr>
<td width="26%" height="25" align="right" bgcolor="#66CCFF" class="fonthei">說明：</td>
<td width="74%" align="left" bgcolor="#006699"><%if IsObjInstalled("Scripting.FileSystemObject") = False Then %>不支持FSO<% Else %>此選項慎用！當數據庫損壞時請恢復數據！數據庫將恢復到：<%= GetFileModified(bakdb) %> <% End If %>
</td>
</tr>
<tr bgcolor="#3399CC">
<td height="25" align="right" class="fonthei"> </td>
<td align="left"><%if IsObjInstalled("Scripting.FileSystemObject") = False Then %>不支持FSO<% Else %><input name="Submit" type="submit" class="inputbt" value="還 原" onClick="{if (confirm('確定還原？這將還原到最后備份時間!')){return true;}return false;}"><% End If %>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<br>
<% end if %>
<% end sub %>
<!--#include file="bottom.asp" -->
</div>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -