backupdbdo.asp

个人备忘系统一个不错的备忘软件.专供刚学ASP的人学习. 代码简单易懂 mymanage

<%
if session("user")="" or session("group")<>1 then
response.write("<script>alert('您没有权限，请与管理员联系');window.location.href('vir.asp')</script>")
response.end
end if
%>
<%
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("<script>alert('备份数据库成功，您备份的数据库路径为" &bkfolder& "\"& bkdbname+"');window.location.href('backupdb.asp')</script>")
  Else
   response.write "<font color=red>找不到您所需要备份的文件。</font>"
  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)
 dim f
    Set fso1 = CreateObject("Scripting.FileSystemObject")
        Set f = fso1.CreateFolder(foldername)
        MakeNewsDir = True
    Set fso1 = nothing
End Function
%>