当前位置：首页 → 问答吧 → 问xml二进制解压?

问xml二进制解压?

时间：2008-10-23

来源：互联网

<%@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>脚本之家——文件解包程序_[url]www.jb51.net[/url]</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>
提示：您可以先修改部分代码再运行

这个是一个把写入xml文件里的二进制数据,还原成原来的文件代码; 不过有点问题,就是当原文件内容太大或者说太多时,把它以二进制写进XML文件可以,但解压时却失败了....不知道是何原因,哪位大大可以给个解决办法?

代码来自: http://www.jb51.net/article/14605.htm

作者: jclser 发布时间: 2008-10-23

问xml二进制解压?

热门阅读

热门下载