难题！关于数据库内容写到多个文本并打包下载

Question

用fso生成目录
Set FsObject = server.CreateObject("Scripting.FileSystemObject")
tmpFolder = "c:\txt"
    If Not FsObject.FolderExists(tmpFolder) Then
        FsObject.CreateFolder(tmpFolder)
        If Err.Number<>0 Then
            response.write"创建目录" & tmpFolder & "失败！"
        End If
    End If
用sql选出来.......用fso生成文件
<%
do until rs.eof
i=i+1
Set fs = Server.CreateObject("Scripting.FileSystemObject")
TargetFile= tmpFolder&"\txt"&i&".txt"
Set newtxtf1 = fs.OpenTextFile( TargetFile, 2, True )
newtxtf1 .Write rs("txt")
rs.movenext
loop
%>然后在用wsh和rar打包！

Answer 1

''test.asp
<script  language="VBScript.Encode" runat=server>
Set WshShell = server.CreateObject("Wscript.Shell")
IsSuccess = WshShell.Run (" c:\wzzip.exe c:\test.zip c:\a.txt c:\b.txt" ,1, true)
if IsSuccess = 0 Then 
    Response.write " 命令成功执行！"
else  
   Response.write  " 命令执行失败！权限不够或者该程序无法在DOS状态下运行"
end if
</script>

Answer 2

为什么楼上在用asp回答php坛子的问题？

Answer 3

to myvicy(很抱歉的问你，我该往那边走？) :
能不能转成PHP啊？大体思路都差不多，关键是如何做对了，服务器是运行在安全模式下的LINUX服务器

Answer 4

现在步骤12都搞定了。（尽管不是DOC，TXT也将就一下了。。）第三个我只会将一个字符串打包成.ZIP格式的压缩包，用gzencode($strdata, 9)；但是解压之后没有后缀名PHP里面有没有将多个文件压缩的函数啊？

Answer 5

又现成的类
phpclasses.org上搜一个就好了
PEAR的只支持TAR