ASP利用ＸＭＬ打包指定文件夹并上传到ＷＥＢ目录中，自行解包

最新推荐文章于 2020-02-19 14:14:45 发布

lihaoing

最新推荐文章于 2020-02-19 14:14:45 发布

阅读量735

点赞数

文章标签： asp path timer encoding xml each

本文链接：https://blog.csdn.net/lihaoing/article/details/1782374

版权

本文介绍如何使用ASP通过XML打包指定文件夹，并将其上传到WEB根目录，然后通过install.asp进行解包操作。教程包含Pack.asp和install.asp两部分，详细讲解了打包、上传和解包的实现过程。

摘要由CSDN通过智能技术生成

'========================
'文件１
'Pack.asp
'更改　Cpathname　这一变量
'将在当前目录生成一个DATA.XML文件
'将DATA.XML及文件２（install.asp)上传至ＷＥＢ根目录
'运行install.asp解包
'手动删除以上两个文件
'========================
<% Option Explicit %>
<% On Error Resume Next %>
<%
Server.ScriptTimeout=99999999
dim Cpathname
dim startime,endtime

'在此更改要打包文件夹的路径
Cpathname = "F:WEBsymr"

startime=timer()
function bianli(path)
dim doc
    dim fso            'fso对象
    dim objFolder      '文件夹对象
    dim objSubFolders  '子文件夹集合
    dim objSubFolder   '子文件夹对象
    dim objFiles       '文件集合
    dim objFile        '文件对象
dim objStream
    dim pathname,TextStream,pp,Xfolder,Xfpath,Xfile,Xpath,Xstream

    set fso=server.CreateObject("scripting.filesystemobject")
    set objFolder=fso.GetFolder(path)'创建文件夹对象

    Response.Write path
    Response.flush

Set doc = Server.CreateObject("MSxml2.DOMDocument")
doc.load Server.MapPath("data.xml")
doc.async=false