复制内容到剪贴板
代码:
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
'写了等于白写。。。
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
'这里就是传说中的检测数据库类型?捏哈哈哈~~~ 你大爷的。
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)
'直接过去了,多好。。。
Else
ErrMsg = "该目录"&bkfolder&"创建失败,请检查路径是否填写正确或手工创建后再进行备份。"
dvbbs_error()
End if
End if
Dv_suc("备份数据库成功,您备份的数据库路径为" &Tempbackpath)
Else
ErrMsg = "找不到您所需要备份的文件。"
dvbbs_error()
End if
end sub
从代码上来看,完全就是可以用自己的MDB写一句话绕过去的,至于你们怎么没实现,我不晓得,反正是可以的,前面那帅哥说备份会自动加入DV框架?麻烦您先学好ASP吧。恩恩。