用asp實(shí)現(xiàn)把文件打包成Xml文件包，帶解包的ASP工具附下載

2024-05-04 11:01:33

字體：大中小

供稿：網(wǎng)友

把文件打包成Xml文件包，帶解包的ASP工具！

把網(wǎng)站源碼全部打包到Xml文件里面，生成 updata.xml 文件，把xml文件上傳到空間里面
然后通過 install.asp文件將文件全部釋放出來。
就和z-blog的自動安裝包一樣的功能呵呵。
代碼是落伍的一位兄弟寫的，不過代碼好像有錯(cuò)誤，這個(gè)是我參考他的修改過了，可以正常運(yùn)行！~~
此代碼可以應(yīng)用到 asp程序的自動升級服務(wù)上面。具體怎么來實(shí)現(xiàn)，歡迎探討！~~
就在下面回帖探討！~~~
不用設(shè)定打包目錄版，需要設(shè)定打包目錄版這兩個(gè)版本的區(qū)別：
不用設(shè)定打包目錄版，直接放到你需要打包的目錄執(zhí)行就可以了。
需要設(shè)定打包目錄版，必須指定需要打包的路徑（在程序里修改），不指定，不能進(jìn)行打包。
不用設(shè)定目錄-打包文件
復(fù)制代碼代碼如下:
<%@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"
    '不進(jìn)行打包的文件擴(kuò)展名
    ZipFileExt = "db;bak"
    if right(ZipPathDir,1)<>"/" then ZipPathDir=ZipPathDir&"/"
    '開始打包
    CreateXml(ZipPathFile)
    '遍歷目錄內(nèi)的所有文件以及文件夾
    sub LoadData(DirPath)
        dim XmlDoc
        dim fso            'fso對象
        dim objFolder      '文件夾對象
        dim objSubFolders  '子文件夾集合

上一篇：FSO遍歷目錄實(shí)現(xiàn)全站插馬的代碼

下一篇：在ASP中連接MySQL數(shù)據(jù)庫的方法，最好的通過ODBC方法