在asp下通过xml打包网站文件的方法-XML/RSS教程-PHP中文网

首页

后端开发

XML/RSS教程

在asp下通过xml打包网站文件的方法

Y2J

Apr 21, 2017 am 10:39 AM

aspxml

今天在网上找了下用xml打包文件、文件夹之类的内容看了看，在本机上调试了下，感觉还挺有用处

这个方法可以把整个文件夹打包到xml文件中，把这个xml文件文件和解包文件放在一起后，运行解包文件就可以把原来的文件释放出来，这样我们就可以把网站打包上传到虚拟主机，再运行解包文件就可以了。我在本地测试之选择了少部分文件，不知在文件很多的情况执行效率如何。
其实实现的思路也很简单，主要利用的是xml文件可以存放二进制数据的原理。有兴趣的朋友可以下载下面的附件研究下！！
解包文件

代码如下:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> 
<% Option Explicit %> 
<% On Error Resume Next %> 
<% Response.Charset="UTF-8" %> 
<% Server.ScriptTimeout=99999999 %>

<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> 
<title>脚本之家——文件解包程序_www.jb51.net</title> 
</head> 
<body> 
<% 
Dim strLocalPath 
&#39;得到当前文件夹的物理路径 
strLocalPath=Left(Request.ServerVariables("PATH_TRANSLATED"),InStrRev(Request.ServerVariables("PATH_TRANSLATED"),"\")) 
Dim objXmlFile 
Dim objNodeList 
Dim objFSO 
Dim objStream 
Dim i,j 
Set objXmlFile = Server.CreateObject("Microsoft.XMLDOM") 
    objXmlFile.load(Server.MapPath("update.xml")) 
    If objXmlFile.readyState=4 Then 
        If objXmlFile.parseError.errorCode = 0 Then 
            Set objNodeList = objXmlFile.documentElement.selectNodes("//folder/path") 
            Set objFSO = CreateObject("Scripting.FileSystemObject") 
                j=objNodeList.length-1 
                For i=0 To j 
                    If objFSO.FolderExists(strLocalPath & objNodeList(i).text)=False Then 
                        objFSO.CreateFolder(strLocalPath & objNodeList(i).text) 
                    End If 
                    Response.Write "创建目录" & objNodeList(i).text & "<br/>" 
                    Response.Flush 
                Next 
            Set objFSO = nothing 
            Set objNodeList = nothing 
            Set objNodeList = objXmlFile.documentElement.selectNodes("//file/path") 
                j=objNodeList.length-1 
                For i=0 To j 
                    Set objStream = CreateObject("ADODB.Stream") 
                        With objStream 
                            .Type = 1 
                            .Open 
                            .Write objNodeList(i).nextSibling.nodeTypedvalue 
                            .SaveToFile strLocalPath & objNodeList(i).text,2 
                            Response.Write "释放文件" & objNodeList(i).text & "<br/>" 
                            Response.Flush 
                            .Close 
                        End With 
                    Set objStream = Nothing 
                Next 
            Set objNodeList = nothing 
        End If 
    End If 
Set objXmlFile = Nothing 
response.write "文件解包完毕" 
%> 
</body> 
</html>

pack.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>文件打包程序_脚本之家_www.jb51.net</title> 
</head> 
<body> 
<% 
Dim ZipPathDir,ZipPathFile 
Dim startime,endtime 
&#39;在此更改要打包文件夹的路径 
ZipPathDir = "D:\testasp\dictionary\xmlPacked\scrollColor"&#39; 
ZipPathFile = "update.xml" 
if right(ZipPathDir,1)<>"\" then ZipPathDir=ZipPathDir&"\" 
&#39;开始打包 
CreateXml(ZipPathFile) 
&#39;遍历目录内的所有文件以及文件夹 
sub LoadData(DirPath) 
    dim XmlDoc 
    dim fso            &#39;fso对象 
    dim objFolder      &#39;文件夹对象 
    dim objSubFolders  &#39;子文件夹集合 
    dim objSubFolder   &#39;子文件夹对象 
    dim objFiles       &#39;文件集合 
    dim objFile        &#39;文件对象 
    dim objStream 
    dim pathname,TextStream,pp,Xfolder,Xfpath,Xfile,Xpath,Xstream 
    dim PathNameStr 
    response.Write("=========="&DirPath&"==========<br>") 
    set fso=server.CreateObject("scripting.filesystemobject") 
    set objFolder=fso.GetFolder(DirPath)&#39;创建文件夹对象 
    Response.Write DirPath 
    Response.flush 
    Set XmlDoc = Server.CreateObject("Microsoft.XMLDOM") 
    XmlDoc.load Server.MapPath(ZipPathFile) 
    XmlDoc.async=false 
    &#39;写入每个文件夹路径 
    set Xfolder = XmlDoc.SelectSingleNode("//root").AppendChild(XmlDoc.CreateElement("folder")) 
    Set Xfpath = Xfolder.AppendChild(XmlDoc.CreateElement("path")) 
        Xfpath.text = replace(DirPath,ZipPathDir,"") 
        set objFiles=objFolder.Files 
            for each objFile in objFiles 
                if lcase(DirPath & objFile.name) <> lcase(Request.ServerVariables("PATH_TRANSLATED")) then 
                    Response.Write "---<br/>" 
                    PathNameStr = DirPath & "" & objFile.name 
                    Response.Write PathNameStr & "" 
                    Response.flush 
                    &#39;================================================ 
                    &#39;写入文件的路径及文件内容 
                   set Xfile = XmlDoc.SelectSingleNode("//root").AppendChild(XmlDoc.CreateElement("file")) 
                   Set Xpath = Xfile.AppendChild(XmlDoc.CreateElement("path")) 
                       Xpath.text = replace(PathNameStr,ZipPathDir,"") 
                   &#39;创建文件流读入文件内容，并写入XML文件中 
                   Set objStream = Server.CreateObject("ADODB.Stream") 
                   objStream.Type = 1 
                   objStream.Open() 
                   objStream.LoadFromFile(PathNameStr) 
                   objStream.position = 0 
                   Set Xstream = Xfile.AppendChild(XmlDoc.CreateElement("stream")) 
                       Xstream.SetAttribute "xmlns:dt","urn:schemas-microsoft-com:datatypes" 
                       &#39;文件内容采用二制方式存放 
                       Xstream.dataType = "bin.base64" 
                       Xstream.nodeTypedValue = objStream.Read() 
                   set objStream=nothing 
                   set Xpath = nothing 
                   set Xstream = nothing 
                   set Xfile = nothing 
                  &#39;================================================ 
                end if 
            next 
    Response.Write "<p>" 
    XmlDoc.Save(Server.Mappath(ZipPathFile)) 
    set Xfpath = nothing 
    set Xfolder = nothing 
    set XmlDoc = nothing 
    &#39;创建的子文件夹对象 
    set objSubFolders=objFolder.Subfolders 
        &#39;调用递归遍历子文件夹 
        for each objSubFolder in objSubFolders 
            pathname = DirPath & objSubFolder.name & "\" 
            LoadData(pathname) 
        next 
    set objFolder=nothing 
    set objSubFolders=nothing 
    set fso=nothing 
end sub 
&#39;创建一个空的XML文件，为写入文件作准备 
sub CreateXml(FilePath) 
    &#39;程序开始执行时间 
    startime=timer() 
    dim XmlDoc,Root 
    Set XmlDoc = Server.CreateObject("Microsoft.XMLDOM") 
        XmlDoc.async = False 
        Set Root = XmlDoc.createProcessingInstruction("xml","version=&#39;1.0&#39; encoding=&#39;UTF-8&#39;") 
        XmlDoc.appendChild(Root) 
        XmlDoc.appendChild(XmlDoc.CreateElement("root")) 
        XmlDoc.Save(Server.MapPath(FilePath)) 
        Set Root = Nothing 
    Set XmlDoc = Nothing 
    LoadData(ZipPathDir) 
    &#39;程序结束时间 
    endtime=timer() 
    response.Write("页面执行时间：" & FormatNumber((endtime-startime),3) & "秒") 
end sub 
%> 
</body> 
</html>

以上是在asp下通过xml打包网站文件的方法的详细内容。更多信息请关注PHP中文网其他相关文章！

声明

本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系admin@php.cn

创建RSS文档：逐步教程Apr 13, 2025 am 12:10 AM

创建RSS文档的步骤如下：1.使用XML格式编写，根元素为，包含元素。2.在内添加、、等元素描述频道信息。3.添加元素，每个代表一个内容条目，包含、、、等。4.可选地添加和元素，丰富内容。5.确保XML格式正确，使用在线工具验证，优化性能并保持内容更新。

XML在RSS中的作用：联合内容的基础Apr 12, 2025 am 12:17 AM

XML在RSS中的核心作用是提供一种标准化和灵活的数据格式。1.XML的结构和标记语言特性使其适合数据交换和存储。2.RSS利用XML创建标准化格式，方便内容共享。3.XML在RSS中的应用包括定义feed内容的元素，如标题和发布日期。4.优势包括标准化和可扩展性，挑战包括文件冗长和严格语法要求。5.最佳实践包括验证XML有效性、保持简洁、使用CDATA和定期更新。

从XML到可读的内容：揭开RSS feed的神秘面纱Apr 11, 2025 am 12:03 AM

rssfeedsarexmldocuments usedforcontentAggregation and distribution.totransformthemintoreadableContent：1）parsethethexmlusinglibrarieslibrariesliblarieslikeparserinparserinpython.2）andledifferentifferentrssssssssssssssssssssssssssssssssssssssssssssssersions andpotentionparsingrorS.3）

是否有基于JSON的RSS替代方案？Apr 10, 2025 am 09:31 AM

JSONFeed是一种基于JSON的RSS替代方案，其优势在于简洁性和易用性。1)JSONFeed使用JSON格式，易于生成和解析。2)它支持动态生成，适用于现代Web开发。3)使用JSONFeed可以提升内容管理效率和用户体验。

RSS文档工具：构建，验证和发布提要Apr 09, 2025 am 12:10 AM

如何构建、验证和发布RSSfeeds？1.构建：使用Python脚本生成RSSfeed，包含标题、链接、描述和发布日期。2.验证：使用FeedValidator.org或Python脚本检查RSSfeed是否符合RSS2.0标准。3.发布：将RSS文件上传到服务器，或使用Flask动态生成并发布RSSfeed。通过这些步骤，你可以有效管理和分享内容。

确保您的XML/RSS提要：全面的安全清单Apr 08, 2025 am 12:06 AM

确保XML/RSSfeeds安全性的方法包括：1.数据验证，2.加密传输，3.访问控制，4.日志和监控。这些措施通过网络安全协议、数据加密算法和访问控制机制来保护数据的完整性和机密性。

XML/RSS面试问题和答案：提高您的专业知识Apr 07, 2025 am 12:19 AM

XML是一种标记语言，用于存储和传输数据，RSS是一种基于XML的格式，用于发布频繁更新的内容。1）XML通过标签和属性描述数据结构，2）RSS定义特定标签发布和订阅内容，3）使用Python的xml.etree.ElementTree模块可以创建和解析XML，4）XPath表达式可查询XML节点，5）feedparser库可解析RSSfeed，6）常见错误包括标签不匹配和编码问题，可用xmllint验证，7）使用SAX解析器处理大型XML文件可优化性能。