用asp實現把文件打包成Xml文件包，帶解包的ASP工具附下載
2024-05-04 11:01:33
供稿：網友
把文件打包成Xml文件包，帶解包的ASP工具！
把網站源碼全部打包到Xml文件里面，生成 updata.xml 文件，把xml文件上傳到空間里面
然后通過 install.asp文件將文件全部釋放出來。
就和z-blog的 自動安裝包一樣的功能呵呵。
代碼是落伍的一位兄弟寫的，不過代碼好像有錯誤，這個是我參考他的 修改過了，可以正常運行！~~
此代碼可以應用到 asp程序的 自動升級服務上面。具體怎么來實現，歡迎探討！~~
就在下面回帖探討！~~~
不用設定打包目錄版，需要設定打包目錄版 這兩個版本的區別：
不用設定打包目錄版，直接放到你需要打包的目錄 執行就可以了。
需要設定打包目錄版，必須指定需要打包的路徑（在程序里修改），不指定，不能進行打包。
不用設定目錄-打包文件
復制代碼 代碼如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Option Explicit %>
<% On Error Resume Next %>
<% Response.Charset="UTF-8" %>
<% Server.ScriptTimeout=99999999 %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>文件打包程序</title>
</head>
<body>
<%
Dim ZipPathDir,ZipPathFile,ZipFileExt
Dim startime,endtime
'在此更改要打包文件夾的路徑
ZipPathDir = Left(Request.ServerVariables("PATH_TRANSLATED"),InStrRev(Request.ServerVariables("PATH_TRANSLATED"),"/"))'
'生成的xml文件
ZipPathFile = "update.xml"
'不進行打包的文件擴展名
ZipFileExt = "db;bak"
if right(ZipPathDir,1)<>"/" then ZipPathDir=ZipPathDir&"/"
'開始打包
CreateXml(ZipPathFile)
'遍歷目錄內的所有文件以及文件夾
sub LoadData(DirPath)
dim XmlDoc
dim fso 'fso對象
dim objFolder '文件夾對象
dim objSubFolders '子文件夾集合
