|
- 帖子
- 25
- 积分
- 44
- 威望
- 62
- 金钱
- 59
- 在线时间
- 0 小时
|
19楼
发表于 2008-7-23 08:30
| 只看该作者
复制内容到剪贴板
代码:
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吧。恩恩。
谁给我一个 8.1 后台！！！！！！！！我要测试！！！！！！！！！很好.
帖子660 精华4 积分5585 阅读权限100 性别男 在线时间247 小时 注册时间2005-9-2 最后登录2007-12-4 查看详细资料TOP
伤心的鱼 
运维管理组
  |
|
My Blog：http://www.hackest.cn/ [H.S.T]：http://www.hackm.com/ 
www.hack521.cn 
www.hack521.cn 
My Blog：http://www.hackest.cn/ [H.S.T]：http://www.hackm.com/ 