要加分哦
我可是把整个代码都贴出来了
用着可好用 我正用的
有两个
一个简单的下面是代码
备份原数据库路径:
备份目标数据库路径:
Function CopyFiles(TempSource,TempEnd)
Dim FSO
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
IF FSO.FileExists(TempEnd) then
Response.Write "目标备份文件" & TempEnd & "已存在,请先删除!"
Set FSO=Nothing
Exit Function
End IF
IF FSO.FileExists(TempSource) Then
Else
Response.Write "要复制的源数据库文件"&TempSource&"不存在!"
Set FSO=Nothing
Exit Function
End If
FSO.CopyFile TempSource,TempEnd
Response.Write "已经成功复制文件"&TempSource&"到"&TempEnd&""
Set FSO = Nothing
End Function
if request("action")="bf" then
ff=server.MapPath(request("text1"))
aa=server.MapPath(request("text2"))
call CopyFiles(ff,aa)
end if
%>
**************************************我是分割线************************
还有复杂的
数据库备份系统
取消
评论