?? beifendata.asp
字號(hào):
<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<!--#include file=cookies1.asp-->
<head>
<title>管理頁面</title>
<meta NAME=GENERATOR Content="Microsoft FrontPage 6.0" FrontPage 3.0"" CHARSET=GB2312 Microsoft>
<link href="inc_style.css" rel="stylesheet" type="text/css">
</head>
<BODY>
<p align="center">
<img src="img/list_bo.gif"></p>
<div align="center">
<table cellpadding=3 cellspacing=0 border=1 width="45%" bordercolor="#C0C0C0" style="border-collapse: collapse">
<tr >
<td width="67%" valign=top><font>
<%
dim Dbpath,bkfolder,bkdbname,Fso,fso1,f
if request("action")="Backup" then
call backupdata()
else
%>
<table width=100% cellpadding=0 border="0" bordercolor="#C0C0C0" style="border-collapse: collapse" >
<tr >
<td height=25 bgcolor="#FEEEBC" >
<p align="center">
<font style="font-size: 9pt">
<B>備份網(wǎng)站數(shù)據(jù)</B>( 需要FSO支持)</font><span style="font-size: 9pt">
</span>
</td>
</tr>
<form method="POST" action="beifendata.asp?action=Backup">
<tr >
<td height=100 width="100%" >
<p align="center">
<span style="font-size: 9pt">當(dāng)前數(shù)據(jù)庫路徑(相對(duì)路徑)：<input type=text size=21 name=DBpath value="<%=db%>"><br>
備份數(shù)據(jù)庫目錄(相對(duì)路徑)：<input type=text size=21 name=bkfolder value=../data/buk><br>
備份數(shù)據(jù)庫名稱(填寫名稱)：<input type=text size=21 name=bkDBname value=cnmai.mdb><BR>
<br>
<input type=submit value=" 確 定 "></span></td>
</tr>
</form>
</table>
<%end if%></font>
</td>
</tr>
</table>
</div>
<%
sub backupdata()
Dbpath=request.form("Dbpath")
Dbpath=server.mappath(Dbpath)
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
response.write "備份數(shù)據(jù)庫成功"
Else
response.write "找不到您所需要備份的文件。"
End if
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)
Set fso1 = CreateObject("Scripting.FileSystemObject")
Set f = fso1.CreateFolder(foldername)
MakeNewsDir = True
Set fso1 = nothing
End Function
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -