鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 网站制作教程 > AJAX > >

asp下利用xml打包网站文件

来源:互联网 作者:佚名 时间:2013-09-16 08:30
今天在网上找了下用xml打包文件、文件夹之类的内容看了看,在本机上调试了下,感觉还挺有用处
这个方法可以把整个文件夹打包到xml文件中,把这个xml文件文件和解包文件放在一起后,运行解包文件就可以把原来的文件释放出来,这样我们就可以把网站打包上传到虚拟主机,再运行解包文件就可以了。我在本地测试之选择了少部分文件,不知在文件很多的情况执行效率如何。
    其实实现的思路也很简单,主要利用的是xml文件可以存放二进制数据的原理。有兴趣的朋友可以下载下面的附件研究下!!
解包文件

复制代码 代码如下:


<%@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 strLocalPath
'得到当前文件夹的物理路径
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 打包文件

复制代码 代码如下:

网友评论
<