{"id":60,"date":"2007-09-08T11:09:38","date_gmt":"2007-09-08T03:09:38","guid":{"rendered":"http:\/\/www.cnmiss.cn\/?p=59"},"modified":"2010-12-02T06:31:28","modified_gmt":"2010-12-02T06:31:28","slug":"asp%e6%ba%90%e7%a0%81%e6%89%93%e5%8c%85%e5%b7%a5%e5%85%b7%ef%bc%8c%e6%89%93%e5%8c%85%e6%88%90%e5%8d%95%e7%8b%ac%e7%9a%84xml%e6%96%87%e4%bb%b6%ef%bc%8c%e5%8f%af%e4%bb%a5%e5%9c%a8%e6%9c%8d%e5%8a%a1","status":"publish","type":"post","link":"https:\/\/www.cnmiss.cn\/?p=60","title":{"rendered":"Asp\u6e90\u7801\u6253\u5305\u5de5\u5177\uff0c\u6253\u5305\u6210\u5355\u72ec\u7684xml\u6587\u4ef6\uff0c\u53ef\u4ee5\u5728\u670d\u52a1\u5668\u4e0a\u76f4\u63a5\u5b89\u88c5"},"content":{"rendered":"

\u4e0b\u8fb9\u8fd9\u4e2a\u5b58\u4e3aPack.asp,\u6253\u5305\u6587\u4ef6\u65f6\u8fd0\u884c<\/p>\n

<%@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>\u6587\u4ef6\u6253\u5305\u7a0b\u5e8f<\/title>
<\/head><\/p>\n

<body>
<%<\/p>\n

Dim ZipPathDir, ZipPathFile
Dim startime, endtime
'\u5728\u6b64\u66f4\u6539\u8981\u6253\u5305\u6587\u4ef6\u5939\u7684\u8def\u5f84
ZipPathDir = "F:\\www.yongfa365.com"'
ZipPathFile = "update.xml"
If Right(ZipPathDir, 1)<>"\\" Then ZipPathDir = ZipPathDir&"\\"
'\u5f00\u59cb\u6253\u5305
CreateXml(ZipPathFile)
'\u904d\u5386\u76ee\u5f55\u5185\u7684\u6240\u6709\u6587\u4ef6\u4ee5\u53ca\u6587\u4ef6\u5939<\/p>\n

Sub LoadData(DirPath)
Dim XmlDoc
Dim fso 'fso\u5bf9\u8c61
Dim objFolder '\u6587\u4ef6\u5939\u5bf9\u8c61
Dim objSubFolders '\u5b50\u6587\u4ef6\u5939\u96c6\u5408
Dim objSubFolder '\u5b50\u6587\u4ef6\u5939\u5bf9\u8c61
Dim objFiles '\u6587\u4ef6\u96c6\u5408
Dim objFile '\u6587\u4ef6\u5bf9\u8c61
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)'\u521b\u5efa\u6587\u4ef6\u5939\u5bf9\u8c61<\/p>\n

Response.Write DirPath
Response.flush<\/p>\n

Set XmlDoc = Server.CreateObject("Microsoft.XMLDOM")
XmlDoc.load Server.MapPath(ZipPathFile)
XmlDoc.async = False<\/p>\n

'\u5199\u5165\u6bcf\u4e2a\u6587\u4ef6\u5939\u8def\u5f84
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
'================================================
'\u5199\u5165\u6587\u4ef6\u7684\u8def\u5f84\u53ca\u6587\u4ef6\u5185\u5bb9
Set Xfile = XmlDoc.SelectSingleNode("\/\/root").AppendChild(XmlDoc.CreateElement("file"))
Set Xpath = Xfile.AppendChild(XmlDoc.CreateElement("path"))
Xpath.text = Replace(PathNameStr, ZipPathDir, "")
'\u521b\u5efa\u6587\u4ef6\u6d41\u8bfb\u5165\u6587\u4ef6\u5185\u5bb9\uff0c\u5e76\u5199\u5165XML\u6587\u4ef6\u4e2d
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open()
objStream.LoadFromFile(PathNameStr)
objStream.position = 0<\/p>\n

Set Xstream = Xfile.AppendChild(XmlDoc.CreateElement("stream"))
Xstream.SetAttribute "xmlns:dt", "urn:schemas-microsoft-com:datatypes"
'\u6587\u4ef6\u5185\u5bb9\u91c7\u7528\u4e8c\u5236\u65b9\u5f0f\u5b58\u653e
Xstream.dataType = "bin.base64"
Xstream.nodeTypedValue = objStream.Read()<\/p>\n

Set objStream = Nothing
Set Xpath = Nothing
Set Xstream = Nothing
Set Xfile = Nothing
'================================================
End If
Next
Response.Write "<p>"
XmlDoc.Save(Server.Mappath(ZipPathFile))
Set Xfpath = Nothing
Set Xfolder = Nothing
Set XmlDoc = Nothing<\/p>\n

'\u521b\u5efa\u7684\u5b50\u6587\u4ef6\u5939\u5bf9\u8c61
Set objSubFolders = objFolder.SubFolders
'\u8c03\u7528\u9012\u5f52\u904d\u5386\u5b50\u6587\u4ef6\u5939
For Each objSubFolder in objSubFolders
pathname = DirPath & objSubFolder.Name & "\\"
LoadData(pathname)
Next
Set objFolder = Nothing
Set objSubFolders = Nothing
Set fso = Nothing<\/p>\n

End Sub<\/p>\n

'\u521b\u5efa\u4e00\u4e2a\u7a7a\u7684XML\u6587\u4ef6\uff0c\u4e3a\u5199\u5165\u6587\u4ef6\u4f5c\u51c6\u5907<\/p>\n

Sub CreateXml(FilePath)
'\u7a0b\u5e8f\u5f00\u59cb\u6267\u884c\u65f6\u95f4
startime = Timer()
Dim XmlDoc, Root
Set XmlDoc = Server.CreateObject("Microsoft.XMLDOM")
XmlDoc.async = False
Set Root = XmlDoc.createProcessingInstruction("xml", "version='1.0' encoding='UTF-8'")
XmlDoc.appendChild(Root)
XmlDoc.appendChild(XmlDoc.CreateElement("root"))
XmlDoc.Save(Server.MapPath(FilePath))
Set Root = Nothing
Set XmlDoc = Nothing
LoadData(ZipPathDir)
'\u7a0b\u5e8f\u7ed3\u675f\u65f6\u95f4
endtime = Timer()
response.Write("\u9875\u9762\u6267\u884c\u65f6\u95f4\uff1a" & FormatNumber((endtime – startime), 3) & "\u79d2")
End Sub<\/p>\n

%>
<\/body>
<\/html><\/p><\/blockquote>\n

——————————————————————————–
\u4e0b\u8fb9\u8fd9\u4e2a\u5b58\u4e3aInstall.asp,\u5b89\u88c5XML\u6253\u5305\u6587\u4ef6\u65f6\u8fd0\u884c<\/p>\n

<%@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>\u6587\u4ef6\u89e3\u5305\u7a0b\u5e8f<\/title>
<\/head><\/p>\n

<body>
<%
Dim strLocalPath
'\u5f97\u5230\u5f53\u524d\u6587\u4ef6\u5939\u7684\u7269\u7406\u8def\u5f84
strLocalPath = Left(Request.ServerVariables("PATH_TRANSLATED"), InStrRev(Request.ServerVariables("PATH_TRANSLATED"), "\\"))<\/p>\n

Dim objXmlFile
Dim objNodeList
Dim objFSO
Dim objStream
Dim i, j<\/p>\n

Set objXmlFile = Server.CreateObject("Microsoft.XMLDOM")
objXmlFile.load(Server.MapPath("update.xml"))<\/p>\n

If objXmlFile.readyState = 4 Then
If objXmlFile.parseError.errorCode = 0 Then<\/p>\n

Set objNodeList = objXmlFile.documentElement.selectNodes("\/\/folder\/path")
Set objFSO = CreateObject("Scripting.FileSystemObject")<\/p>\n

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 "\u521b\u5efa\u76ee\u5f55" & objNodeList(i).text & "<br\/>"
Response.Flush
Next
Set objFSO = Nothing
Set objNodeList = Nothing
Set objNodeList = objXmlFile.documentElement.selectNodes("\/\/file\/path")<\/p>\n

j = objNodeList.Length -1
For i = 0 To j
Set objStream = CreateObject("ADODB.Stream")
With objStream
.Type = 1
.Open
\n .Write objNodeList(i).nextSibling.nodeTypedvalue
.SaveToFile strLocalPath & objNodeList(i).text, 2
Response.Write "\u91ca\u653e\u6587\u4ef6" & objNodeList(i).text & "<br\/>"
Response.Flush
.Close
End With
Set objStream = Nothing
Next
Set objNodeList = Nothing
End If
End If<\/p>\n

Set objXmlFile = Nothing<\/p>\n

response.Write "\u6587\u4ef6\u89e3\u5305\u5b8c\u6bd5"
%>
<\/body>
<\/html><\/p><\/blockquote>\n","protected":false},"excerpt":{"rendered":"

\u4e0b\u8fb9\u8fd9\u4e2a\u5b58\u4e3aPack.asp,\u6253\u5305\u6587\u4ef6\u65f6\u8fd0\u884c <%@LANGUAGE=&q … \u7ee7\u7eed\u9605\u8bfb →<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[13],"class_list":["post-60","post","type-post","status-publish","format-standard","hentry","category-xxbj","tag-asp"],"_links":{"self":[{"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=\/wp\/v2\/posts\/60","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=60"}],"version-history":[{"count":0,"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=\/wp\/v2\/posts\/60\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=60"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=60"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.cnmiss.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=60"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}