用asp实现把文件打包成Xml文件包，带解包的ASP工(3)

                            Response.Write PathNameStr & ""
                            Response.flush
                            '================================================
                            '写入文件的路径及文件内容
                           set Xfile = XmlDoc.SelectSingleNode("//root").AppendChild(XmlDoc.CreateElement("file"))
                           Set Xpath = Xfile.AppendChild(XmlDoc.CreateElement("path"))
                               Xpath.text = replace(PathNameStr,ZipPathDir,"")
                           '创建文件流读入文件内容，并写入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"))