backupdb.asp

来自「这是一个学生毕业时做的教务系统」· ASP 代码 · 共 19 行

<%@ Language=VBScript %>
<%
IF Session("KEY")<>"super"THEN
response.redirect "index_face.asp"
response.end
END IF

Dim FSO, FileName
Set FSO = CreateObject("Scripting.FileSystemObject")
datapath=server.mappath("data")
backuppath=server.mappath("BackupDB")

Set FileName= fso.GetFile(datapath &"\newsxp.mdb")
Response.Write "<p>&nbsp;</p><p>&nbsp;</p><p>&nbsp;</p>复制新闻数据库： "&  datapath & "\newsxp.mdb ==>" & backuppath & "\newsxp.mdb"
FileName.Copy (backuppath &"\newsxp.mdb")


Response.Write "<p>All done!"
%>