backupdb.asp
来自「这是一个学生毕业时做的教务系统」· ASP 代码 · 共 19 行
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> </p><p> </p><p> </p>复制新闻数据库: "& datapath & "\newsxp.mdb ==>" & backuppath & "\newsxp.mdb"
FileName.Copy (backuppath &"\newsxp.mdb")
Response.Write "<p>All done!"
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?