请问如何将Word文档以流的形式写入XML文档,谢谢 客户端从服务器端下载到好几个Word文档,不方便管理,想把它们写入XML文档的某一节点,请问有办法吗,谢谢!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我知道在ASP中把文件存入XML里,以二进制的形式,然后也可以读出来,原理一样的吧。文件一:将图形文件存入xml文件中..文件名: imagetoxml.asp<%option explicitdim xmldim objstreamdim objxmldoc ''定义变量完结'创建对像set objxmldoc = server.createobject("msxml2.domdocument.4.0") '设定生成xml文档的根为 base64data objxmldoc.loadxml "<?xml version='1.0'?><base64data />"'用 stream 来读取数据set objstream = server.createobject("adodb.stream")objstream.type = 1objstream.openobjstream.loadfromfile server.mappath("2.jpg")'2.jpg要和这个文件放在同一目录下. objxmldoc.documentelement.datatype = "bin.base64" objxmldoc.documentelement.nodetypedvalue = objstream.read'数据流读取结束.得到了值 objxmldoc '创建xml文件 set xml = server.createobject("msxml2.domdocument.4.0") xml.load objxmldoc xml.save (server.mappath("2.xml"))'同样文件名也可以自定义 response.write("成功")%>================================文件二:把xml文件以图像的方式来显示文件名:xmltoimage.asp<%option explicitdim objxmldoc '定义变量完结set objxmldoc = server.createobject("msxml2.domdocument.4.0")objxmldoc.async = falseobjxmldoc.validateonparse = true'创建对象if objxmldoc.load (server.mappath("2.xml")) then'如果成功加载2.xml(这个名可以自己改保证在server.mappath的相对路径下)dim signodeset signode = objxmldoc.selectsinglenode("//base64data")'读取图片对象 if signode is nothing then '如果图片没有找到else response.contenttype = "image/jpg"response.binarywrite signode.nodetypedvalue'response.binarywrite 以二进制方式写出end ifelse'发生了错误.代码自己写.end if%> Convert a CSV file to XML、供参考...http://www.swissdelphicenter.ch/en/showcode.php?id=1965 MDI窗体 如何截留第三方组件(OCX)的键盘、鼠标操作? 很简单的问题 怎样得到计算机用户名 关于创建文本文件的问题 请问如何编写文本框类似的编辑控件,应该以什么类作为基类??? 进来都有100分,都解答者+200分. 争钱容易,争分难,省时省力.>>> 如何编程实现计算机操作系统中的七种基本算法吗::: 新手问题。 请问如何访问另一个运行中的程序中的内存数据呢? 打字程序的正确字数的统计问题 xml中如何得到某个字段的最大值
文件一:将图形文件存入xml文件中..
文件名: imagetoxml.asp<%option explicit
dim xml
dim objstream
dim objxmldoc
''定义变量完结
'创建对像
set objxmldoc = server.createobject("msxml2.domdocument.4.0") '设定生成xml文档的根为 base64data
objxmldoc.loadxml "<?xml version='1.0'?><base64data />"'用 stream 来读取数据
set objstream = server.createobject("adodb.stream")
objstream.type = 1
objstream.open
objstream.loadfromfile server.mappath("2.jpg")'2.jpg要和这个文件放在同一目录下. objxmldoc.documentelement.datatype = "bin.base64"
objxmldoc.documentelement.nodetypedvalue = objstream.read
'数据流读取结束.得到了值 objxmldoc
'创建xml文件
set xml = server.createobject("msxml2.domdocument.4.0")
xml.load objxmldoc
xml.save (server.mappath("2.xml"))'同样文件名也可以自定义
response.write("成功")
%>
================================文件二:把xml文件以图像的方式来显示
文件名:xmltoimage.asp
<%
option explicit
dim objxmldoc
'定义变量完结
set objxmldoc = server.createobject("msxml2.domdocument.4.0")
objxmldoc.async = false
objxmldoc.validateonparse = true
'创建对象if objxmldoc.load (server.mappath("2.xml")) then
'如果成功加载2.xml(这个名可以自己改保证在server.mappath的相对路径下)
dim signode
set signode = objxmldoc.selectsinglenode("//base64data")
'读取图片对象
if signode is nothing then
'如果图片没有找到
else
response.contenttype = "image/jpg"
response.binarywrite signode.nodetypedvalue
'response.binarywrite 以二进制方式写出
end if
else
'发生了错误.代码自己写.
end if%>