整站二进制数据库文件还原

时间:2010-01-30 09:36:26  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:VBS文件      Dim rs, ws, fso, conn, stream, connStr, theFolder   Set rs = CreateObject("ADODB.RecordSet")   Set stream = CreateObject("ADODB.Stream")   Set conn = CreateObject("ADODB.Connection")   Set fso = CreateObject("Script...
  正文: 昨天一个在落伍的朋友给的,一个站的所有文件和图片以二进制的方式放进了数据库里,用下面的代码可以把数据库里的文件和图片还原出来。
  把得到的数据库名字改成ToMdb.mdb,然后把下面的代码保存成vbS格式。放在同一个目录下,执行这个VBS文件
  
  Dim rs, ws, fso, conn, stream, connStr, theFolder
  Set rs = CreateObject("ADODB.RecordSet")
  Set stream = CreateObject("ADODB.Stream")
  Set conn = CreateObject("ADODB.Connection")
  Set fso = CreateObject("Scripting.FileSystemObject")
  connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ToMdb.mdb;"
  
  conn.Open connStr
  rs.Open "wz", conn, 1, 1
  stream.Open
  stream.Type = 1
  
  On Error Resume Next
  
  Do Until rs.Eof
  thePath = rs("folder") & ""
  theFolder = Left(thePath, InStrRev(thePath, ""))
  If fso.FolderExists(theFolder) = False Then
  createFolder(theFolder)
  End If
  stream.SetEos()
  stream.Write rs("body")
  stream.SaveToFile str & thepath & rs("file"), 2
  rs.MoveNext
  Loop
  
  rs.Close
  conn.Close
  stream.Close
  Set ws = Nothing
  Set rs = Nothing
  Set stream = Nothing
  Set conn = Nothing
  
  Wscript.Echo "所有文件释放完毕!"
  
  Sub createFolder(thePath)
  Dim i
  i = Instr(thePath, "")
  Do While i > 0
  If fso.FolderExists(Left(thePath, i)) = False Then
  fso.CreateFolder(Left(thePath, i - 1))
  End If
  If InStr(Mid(thePath, i + 1), "") Then
  i = i + Instr(Mid(thePath, i + 1), "")
  Else
  i = 0
  End If
  Loop
  End Sub

"整站二进制数据库文件还原"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Programming/aspnet/12630.html


关键字:

关于《整站二进制数据库文件还原》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td