在ASP中利用XML打包指定文件夹并上传到WEB目录中自行解包的方法
以前写的，发在
http://www.xml.org.cn/dispbbs.asp?boardID=32&ID=23966
现在加在自己的BLOG中
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
前两天下了个Ｚ－ＢＬＯＧ，发现其安装程序有点意思，只有两个文件，一个数据文件，ＸＭＬ格式的，一个解包程序
此程序仿照Ｚ－ＢＬＯＧ的安装程序数据文件逆向写出
希望对那些不能批量上传文件的网友有帮助
'========================'文件１'Pack.asp'更改Cpathname这一变量'将在当前目录生成一个DATA.XML文件'将DATA.XML及文件２（install.asp)上传至ＷＥＢ根目录'运行install.asp解包'手动删除以上两个文件'========================<%OptionExplicit%><%OnErrorResumeNext%><%Server.ScriptTimeout=99999999dimCpathnamedimstartime,endtime'在此更改要打包文件夹的路径Cpathname="F:WEBsymr"startime=timer()functionbianli(path)dimdocdimfso'fso对象dimobjFolder'文件夹对象dimobjSubFolders'子文件夹集合dimobjSubFolder'子文件夹对象dimobjFiles'文件集合dimobjFile'文件对象dimobjStreamdimpathname,TextStream,pp,Xfolder,Xfpath,Xfile,Xpath,Xstreamsetfso=server.CreateObject("scripting.filesystemobject")setobjFolder=fso.GetFolder(path)'创建文件夹对象Response.WritepathResponse.flushSetdoc=Server.CreateObject("MSxml2.DOMDocument")doc.loadServer.MapPath("data.xml")doc.async=false'写入每个文件夹路径setXfolder=doc.SelectSingleNode("//z-blog").AppendChild(doc.CreateElement("folder"))SetXfpath=Xfolder.AppendChild(doc.CreateElement("path"))Xfpath.text=replace(path,Cpathname,"")setobjFiles=objFolder.FilesforeachobjFileinobjFilesResponse.Write"---"pp=path&""&objFile.nameResponse.Writepp&""Response.flush'================================================'写入文件的路径及文件内容setXfile=doc.SelectSingleNode("//z-blog").AppendChild(doc.CreateElement("file"))SetXpath=Xfile.AppendChild(doc.CreateElement("path"))Xpath.text=replace(pp,Cpathname,"")'创建文件流读入文件内容，并写入XML文件中SetobjStream=Server.CreateObject("ADODB.Stream")objStream.Type=1objStream.Open()objStream.LoadFromFile(pp)objStream.position=0SetXstream=Xfile.AppendChild(doc.CreateElement("stream"))Xstream.SetAttribute"xmlns:dt","urn:schemas-microsoft-com:datatypes"'文件内容采用二制方式存放Xstream.dataType="bin.base64"Xstream.nodeTypedValue=objStream.Read()setobjStream=nothingsetXpath=nothingsetXstream=nothingsetXfile=nothing'================================================nextResponse.Write"<p>"doc.saveserver.mappath("data.xml")setXfpath=nothingsetXfolder=nothingsetdoc=nothing'创建的子文件夹对象setobjSubFolders=objFolder.Subfolders'调用递归遍历子文件夹foreachobjSubFolderinobjSubFolderspathname=path+""+objSubFolder.namebianli(pathname)nextsetobjFolder=nothingsetobjSubFolders=nothingsetfso=nothingendfunctiondimdoc,objPI'创建一个空的XML文件，为写入文件作准备Setdoc=Server.CreateObject("MSxml2.DOMDocument")doc.async=falsesetobjPI=doc.createProcessingInstruction("xml","version='1.0'encoding='UTF-8'")doc.insertBeforeobjPI,doc.childNodes(0)doc.appendChild(doc.CreateElement("z-blog"))doc.saveserver.mappath("data.xml")setobjPI=nothingsetdoc=nothingbianli(Cpathname)endtime=timer()%>页面执行时间：<%=FormatNumber((endtime-startime),3)%>秒'================================='文件２'install.asp'此文件改自z-blog安装文件'=================================<%@CODEPAGE=65001%><%OptionExplicit%><%OnErrorResumeNext%><%Response.Charset="UTF-8"%><html><head><title>文件解包程序</title></head><body><textareaname="content"cols="90"rows="20"style="border:0px;overflow:auto;border-width:0px;width:100%;background-color:#E8F3FF;"scrolling="auto"><%DimstrLocalPath'得到当前文件夹的物理路径strLocalPath=Left(Request.ServerVariables("PATH_TRANSLATED"),InStrRev(Request.ServerVariables("PATH_TRANSLATED"),""))DimstrDbPathDimobjXmlFileDimobjNodeListDimobjFSODimobjStreamDimi,jSetobjXmlFile=Server.CreateObject("Microsoft.XMLDOM")objXmlFile.load(Server.MapPath("data.xml"))IfobjXmlFile.readyState=4ThenIfobjXmlFile.parseError.errorCode=0ThenSetobjNodeList=objXmlFile.documentElement.selectNodes("//folder/path")SetobjFSO=CreateObject("Scripting.FileSystemObject")j=objNodeList.length-1Fori=0TojIfobjFSO.FolderExists(strLocalPath&objNodeList(i).text)=FalseThenobjFSO.CreateFolder(strLocalPath&objNodeList(i).text)EndIfResponse.Write"创建目录"&objNodeList(i).text&vbCrlfResponse.FlushNextSetobjNodeList=objXmlFile.documentElement.selectNodes("//file/path")j=objNodeList.length-1Fori=0TojSetobjStream=CreateObject("ADODB.Stream")WithobjStream.Type=1.Open.WriteobjNodeList(i).nextSibling.nodeTypedvalue.SaveToFilestrLocalPath&objNodeList(i).text,2Response.Write"释放文件"&objNodeList(i).text&vbCrlfResponse.Flush.CloseEndWithSetobjStream=NothingNextEndIfEndIf%></textarea><%response.write"<script>alert('文件解包完毕!');</script>"%>本文地址：http://www.45fan.com/dnjc/69933.html