yoyoabc

对了，再给一个 8.1 网通线路的后台，我这里没IIS。很好.
帖子660 精华4 积分5585 阅读权限100 性别男 在线时间247 小时 注册时间2005-9-2 最后登录2007-12-4 查看详细资料TOP

bink
荣誉会员

yoyoabc

复制内容到剪贴板
代码:
sub updata()
  'On error resume next
  Dim FileConnStr,Fileconn
  Dim Tempbackpath
  Dbpath="../"&db
  'Dbpath=Replace(request.Form("Dbpath"),chr(0),"")
  Dbpath=Server.mappath(Dbpath)
  bkfolder=Replace(request.Form("bkfolder"),chr(0),"")
  bkdbname=Replace(request.Form("bkdbname"),chr(0),"")
  Tempbackpath = bkfolder& "/"& bkdbname
  
  
  Rem Add By Dv.唧唧.Net 2007-10-15 [唧唧？谁？我还唧唧歪歪呢，靠！ By Bink]

  Rem Dbpath 原数据库文件绝对磁盘位置，Tempbackpath 目标数据库文件绝对磁盘位置。By Bink
  If InStr(Lcase(Tempbackpath),".asp")>0 Or InStr(Lcase(Tempbackpath),".aspx")>0 Or InStr(Lcase(Tempbackpath),".php")>0 Then
  '大哥，有点常识啊！我们家小帅都知道可以用 asa 了，XX，程序员怎么当的。
    response.write "保存数据库名不合法,必须是有效的MDB文件和文件夹目录!"
    Response.End
    Exit Sub
  End If

  If Lcase(Mid(Tempbackpath,instrRev(Tempbackpath,".")+1))<>"mdb" Then
  &#39;写了等于白写。。。
    response.write "保存数据库名不合法,必须是有效的MDB文件!"
    Response.End
    Exit Sub
  End If

  FileConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Dbpath
  Set Fileconn = Dvbbs.iCreateObject("ADODB.Connection")
  Fileconn.open FileConnStr
  If Err Then
    Response.Write Err.Description
    Err.Clear
    Set Fileconn = Nothing
    ErrMsg = "备份的文件并非合法的数据库。"
    dvbbs_error()
    Exit Sub
  Else
    Set Fileconn = Nothing
  End If
  &#39;这里就是传说中的检测数据库类型？捏哈哈哈~~~ 你大爷的。

  Set Fso=Dvbbs.iCreateObject("scripting.filesystemobject")
  If Fso.fileexists(dbpath) then
    If CheckDir(bkfolder) = True Then
      Fso.copyfile dbpath,Server.mappath(Tempbackpath)
    Else
      If MakeNewsDir(bkfolder) = True Then
        Fso.copyfile dbpath,Server.mappath(Tempbackpath)
        &#39;直接过去了，多好。。。
      Else
        ErrMsg = "该目录"&bkfolder&"创建失败，请检查路径是否填写正确或手工创建后再进行备份。"
        dvbbs_error()
      End if
    End if
    Dv_suc("备份数据库成功，您备份的数据库路径为" &Tempbackpath)
  Else
    ErrMsg = "找不到您所需要备份的文件。"
    dvbbs_error()
  End if
end sub
从代码上来看，完全就是可以用自己的MDB写一句话绕过去的，至于你们怎么没实现，我不晓得，反正是可以的，前面那帅哥说备份会自动加入DV框架？麻烦您先学好ASP吧。恩恩。

谁给我一个 8.1 后台！！！！！！！！我要测试！！！！！！！！！很好.
帖子660 精华4 积分5585 阅读权限100 性别男 在线时间247 小时 注册时间2005-9-2 最后登录2007-12-4 查看详细资料TOP

伤心的鱼
运维管理组