把文件打包成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'子文件夾集合