把文件打包成Xml文件包，带解包的ASP工具！
把网站源码全部打包到Xml文件里面，生成updata.xml文件，把xml文件上传到空间里面
然后通过install.asp文件将文件全部释放出来。
就和z-blog的自动安装包一样的功能呵呵。
代码是落伍的一位兄弟写的，不过代码好像有错误，这个是我参考他的修改过了，可以正常运行！~~
此代码可以应用到asp程序的自动升级服务上面。具体怎么来实现，欢迎探讨！~~
就在下面回帖探讨！~~~
不用设定打包目录版，需要设定打包目录版这两个版本的区别：
不用设定打包目录版，直接放到你需要打包的目录执行就可以了。
需要设定打包目录版，必须指定需要打包的路径（在程序里修改），不指定，不能进行打包。
不用设定目录-打包文件
复制代码代码如下:
<%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%>
<%OptionExplicit%>
<%OnErrorResumeNext%>
<%Response.Charset="UTF-8"%>
<%Server.ScriptTimeout=99999999%>
<!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<htmlxmlns="http://www.w3.org/1999/xhtml">
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=utf-8"/>
<title>文件打包程序</title>
</head>
<body>
<%
DimZipPathDir,ZipPathFile,ZipFileExt
Dimstartime,endtime
'在此更改要打包文件夹的路径
ZipPathDir=Left(Request.ServerVariables("PATH_TRANSLATED"),InStrRev(Request.ServerVariables("PATH_TRANSLATED"),"/"))'
'生成的xml文件
ZipPathFile="update.xml"
'不进行打包的文件扩展名
ZipFileExt="db;bak"
ifright(ZipPathDir,1)<>"/"thenZipPathDir=ZipPathDir&"/"
'开始打包
CreateXml(ZipPathFile)
'遍历目录内的所有文件以及文件夹
subLoadData(DirPath)
dimXmlDoc
dimfso'fso对象
dimobjFolder'文件夹对象
dimobjSubFolders'子文件夹集合