Code/Resource
Windows Develop
Linux-Unix program
Internet-Socket-Network
Web Server
Browser Client
Ftp Server
Ftp Client
Browser Plugins
Proxy Server
Email Server
Email Client
WEB Mail
Firewall-Security
Telnet Server
Telnet Client
ICQ-IM-Chat
Search Engine
Sniffer Package capture
Remote Control
xml-soap-webservice
P2P
WEB(ASP,PHP,...)
TCP/IP Stack
SNMP
Grid Computing
SilverLight
DNS
Cluster Service
Network Security
Communication-Mobile
Game Program
Editor
Multimedia program
Graph program
Compiler program
Compress-Decompress algrithms
Crypt_Decrypt algrithms
Mathimatics-Numerical algorithms
MultiLanguage
Disk/Storage
Java Develop
assembly language
Applications
Other systems
Database system
Embeded-SCM Develop
FlashMX/Flex
source in ebook
Delphi VCL
OS Develop
MiddleWare
MPI
MacOS develop
LabView
ELanguage
Software/Tools
E-Books
Artical/Document
Admin_BackData.asp
Package: pinke2010.rar [view]
Upload User: pengwei803
Upload Date: 2021-02-10
Package Size: 3311k
Code Size: 4k
Category:
WEB(ASP,PHP,...)
Development Platform:
HTML/CSS
- <!--#include file="Include/Gaobei_setup.asp"-->
- <!--#include file="Conn.asp"-->
- <!--#include file="include/char.asp" -->
- <!--#include file="Include/check.asp"-->
- <!--#include FILE="Include/Admin_Function.asp"-->
- <% CheckAdmin3 %>
- <link href="other/Admin.css" rel="stylesheet" type="text/css">
- <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
- <tr>
- <td align="center" valign="top"> <br> <strong><br>
- </strong> <table width="550" border="0" cellspacing="0" cellpadding="0">
- <tr>
- <td height="25" align="center">备份数据库
- <%
- if request("action")="Backup" then
- call backupdata()
- else
- %>
- </td>
- </tr>
- <tr>
- <form method="post" action="?action=Backup">
- <td><br> <table width="80%" border="0" align="center" cellpadding="0" cellspacing="2">
- <tr>
- <td height="25"><strong>备份数据文件</strong>[需要FSO权限]</td>
- </tr>
- <tr>
- <td height="22"> 当前数据库路径:</td>
- </tr>
- <tr>
- <td height="22"><input type=text size=50 name=DBpath value="<%=db%>"></td>
- </tr>
- <tr>
- <td height="22"> 备份数据库目录[如目录不存在,程序将自动创建:</td>
- </tr>
- <tr>
- <td height="22"><input type=text size=50 name=bkfolder value=DBbackup></td>
- </tr>
- <tr>
- <td height="22">备份数据库名称[如备份目录有该文件,将覆盖,如没有,将自动创建]</td>
- </tr>
- <tr>
- <td height="22"><input type=text size=30 name=bkDBname value=#GaoBeiSys_DataBack<%=Date()%>.mdb></td>
- </tr>
- <tr>
- <td height="22"><div align="center">
- <input type=submit value="确定">
- </div></td>
- </tr>
- <tr>
- <td height="22"><br> <br>
- 本程序的默认数据库文件为<%=db%><br>
- 您可以用这个功能来备份您的法规数据,以保证您的数据安全!<br>
- 注意:所有路径都是相对与程序空间根目录的相对路径</td>
- </tr>
- <tr>
- <td height="22"> </td>
- </tr>
- </table></td>
- </form>
- </tr>
- </table>
- <%end if%>
- <%
- 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 "备份数据库成功,您备份的数据库路径为<br>" &bkfolder& ""& bkdbname
- 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
- %>
- </td>
- </tr>
- </table>