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