OA开发中下载模板文件的方法之xml篇

在OA办公系统中通常要把模板下载下来,然后对其进行数据操作.
而这个过程,肯定不希望客户来控制.
我们希望利用网页传回javascript或者vbscipt,来创建一个文档提供给客户.
无论如何,这个过程都需要利用到"静悄悄"下载一个模板文件,并取得这个模板文件的对象.

HOW TO  DO?
1 首先我们在服务器端利用xml对象创建一个包含文件二进制数据的xml.
2 我们通过网页形式传给客户一个客户端脚读取xml并将其转换为实际存在客户端的文件,
3 取得这个客户端文件对象,并对其作相应的操作.

第3步我们不说.

1是怎么来完成的?

<%
GetFileByFileName("试用期考核评估表.doc")
''==================================================================
Function GetFileByFileName(docFileName)
'' ADO-stream 对象 

Dim ado_stream 
set ado_stream = Server.createobject("ADODB.Stream")
''1=adTypeBinary 
ado_stream.Type = 1  
ado_stream.Open()
ado_stream.LoadFromFile server.mappath(docFileName)

''=======================
set xml_dom = Server.createobject("MSXML2.DOMDocument")
xml_dom.loadXML("<?xml version='1.0'?><root/>")
''指定数据类型 
xml_dom.documentElement.setAttribute "xmlns:dt", "urn:schemas-microsoft-com:datatypes"

'' 创建一个新节点，设置其为二进制数据节点 
set FileData_node = xml_dom.createElement("FileData")
FileData_node.dataType = "bin.base64" 
'' -1=adReadAll 
FileData_node.nodeTypedValue = ado_stream.Read(-1)
ado_stream.Close() 
xml_dom.documentElement.appendChild(FileData_node)
Response.write xml_dom.xml


End Function
''==================================================================

%>

用localhost/你的虚拟目录/fileservice.asp
来看看:

  <?xml version="1.0" ?> 
- <root xmlns:dt="urn:schemas-microsoft-com:datatypes">
  <FileData dt:dt="bin.base64">0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAQwAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA</FileData> 
  </root>

其中filedata的数据我修改过.

接着我们来完成2

' 从Request对象创建 XMLDOM对象 
set xml_dom = CreateObject("MSXML2.DOMDocument") 
xml_dom.load "http://172.16.1.249/applysheet/asp/template/fileservice.asp"

msgbox xml_dom.text
' 读出包含二进制数据的节点 
set xml_file1 = xml_dom.selectSingleNode("//root/FileData") 
if IsNull(xml_file1)then
msgbox "null"
else
msgbox xml_file1.text
end if

' 打开Stream对象，把数据存入其中 
ado_stream.Type = 1 ' 1=adTypeBinary 
ado_stream.open()
ado_stream.Write xml_file1.nodeTypedValue 
' 文件存盘 
' 2=adSaveCreateOverWrite 
ado_stream.SaveToFile "c:\temp.doc",2 
ado_stream.close() 

' 销毁对象 
set ado_stream = Nothing 
set xml_dom = Nothing 

easy吧?
把这个脚本修改一下套入一个asp页面中,就可以把模板文件下载到客户机器上面了.