发一个打包网站(天津市建工集团)

演示地址:http://www.tjjgjt.cn/
下载地址

游客，如果您要查看本帖隐藏内容请回复

下载完改名为:tomdb.rar 用下面的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.rar;\"
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

谁安装成功后能给我留个言吗,我试了好多次都没有成功.
QQ:290073108(

[ 本帖最后由 flyingday 于 2008-12-17 10:05 编辑 ]

什么数据库的???还这么难安装 ?

SQL数据库的.弄几次了,

我帮你安装一下

支持一下楼主

谢谢五楼的哥们.帮我看一下.

好东西 支持下

官方站我这看似乎有些问题。

呵呵,很漂亮的网站