asp源码打包成xml的工具

时间：2021-05-28

下边这个存为Pack.asp,打包文件时运行
复制代码 代码如下:
<%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%>
<%OptionExplicit%>
<%OnErrorResumeNext%>
<%Response.Charset="UTF-8"%>
<%Server.ScriptTimeout=99999999%>
<!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http://:datatypes"
'文件内容采用二制方式存放
Xstream.dataType="bin.base64"
Xstream.nodeTypedValue=objStream.Read()

SetobjStream=Nothing
SetXpath=Nothing
SetXstream=Nothing
SetXfile=Nothing
'================================================
EndIf
Next
Response.Write"<p>"
XmlDoc.Save(Server.Mappath(ZipPathFile))
SetXfpath=Nothing
SetXfolder=Nothing
SetXmlDoc=Nothing

'创建的子文件夹对象
SetobjSubFolders=objFolder.SubFolders
'调用递归遍历子文件夹
ForEachobjSubFolderinobjSubFolders
pathname=DirPath&objSubFolder.Name&"\"
LoadData(pathname)
Next
SetobjFolder=Nothing
SetobjSubFolders=Nothing
Setfso=Nothing

EndSub



'创建一个空的XML文件，为写入文件作准备

SubCreateXml(FilePath)
'程序开始执行时间
startime=Timer()
DimXmlDoc,Root
SetXmlDoc=Server.CreateObject("Microsoft.XMLDOM")
XmlDoc.async=False
SetRoot=XmlDoc.createProcessingInstruction("xml","version='1.0'encoding='UTF-8'")
XmlDoc.appendChild(Root)
XmlDoc.appendChild(XmlDoc.CreateElement("root"))
XmlDoc.Save(Server.MapPath(FilePath))
SetRoot=Nothing
SetXmlDoc=Nothing
LoadData(ZipPathDir)
'程序结束时间
endtime=Timer()
response.Write("页面执行时间："&FormatNumber((endtime-startime),3)&"秒")
EndSub


%>
</body>
</html>

下边这个存为Install.asp,安装XML打包文件时运行
复制代码 代码如下:
<%@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>
<%
DimstrLocalPath
'得到当前文件夹的物理路径
strLocalPath=Left(Request.ServerVariables("PATH_TRANSLATED"),InStrRev(Request.ServerVariables("PATH_TRANSLATED"),"\"))

DimobjXmlFile
DimobjNodeList
DimobjFSO
DimobjStream
Dimi,j

SetobjXmlFile=Server.CreateObject("Microsoft.XMLDOM")
objXmlFile.load(Server.MapPath("update.xml"))

IfobjXmlFile.readyState=4Then
IfobjXmlFile.parseError.errorCode=0Then

SetobjNodeList=objXmlFile.documentElement.selectNodes("//folder/path")
SetobjFSO=CreateObject("Scripting.FileSystemObject")

j=objNodeList.Length-1
Fori=0Toj
IfobjFSO.FolderExists(strLocalPath&objNodeList(i).text)=FalseThen
objFSO.CreateFolder(strLocalPath&objNodeList(i).text)
EndIf
Response.Write"创建目录"&objNodeList(i).text&"<br/>"
Response.Flush
Next
SetobjFSO=Nothing
SetobjNodeList=Nothing
SetobjNodeList=objXmlFile.documentElement.selectNodes("//file/path")

j=objNodeList.Length-1
Fori=0Toj
SetobjStream=CreateObject("ADODB.Stream")
WithobjStream
.Type=1
.Open
.WriteobjNodeList(i).nextSibling.nodeTypedvalue
.SaveToFilestrLocalPath&objNodeList(i).text,2
Response.Write"释放文件"&objNodeList(i).text&"<br/>"
Response.Flush
.Close
EndWith
SetobjStream=Nothing
Next
SetobjNodeList=Nothing
EndIf
EndIf

SetobjXmlFile=Nothing

response.Write"文件解包完毕"
%>
</body>
</html>

声明：本页内容来源网络，仅供用户参考；我单位不保证亦不表示资料全面及准确无误，也不保证亦不表示这些资料为最新信息，如因任何原因，本网内容或者用户因倚赖本网内容造成任何损失或损害，我单位将不会负任何法律责任。如涉及版权问题，请提交至online#300.cn邮箱联系删除。

相关文章