DOMINO中用代理读取文档并生成XML文档
2004-08-12 11:09
435 查看
写这种代理一定要注意容错性。不然一个地方出错,可能会影响整个XML文档的构。
BulidXML?openagent
用的时候:
var xml = new ActiveXObject("Microsoft.XMLDOM");
xml.async = false;
xml.load("bulidXML?openagent");
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db = s.CurrentDatabase
Set view = db.GetView("Tasks")
Set doc = view.GetFirstDocument
Print {Content-Type: text/xml}
Print {Cache-control: no-cache}
Print {<?xml version="1.0" encoding="GB2312"?>}
Print {<Tasks>}
While Not doc Is Nothing
Print {<task>}
Print {<username>}
Print doc.worker(0)
Print {</username>}
Print {<tasktitle>}
Print doc.tasktitle(0)
Print {</tasktitle>}
Print {<fileid>}
Print doc.UniversalID
Print {</fileid>}
Print {<content>}
Print doc.content
Print {</content>}
Print {<starttime>}
Print doc.starttime(0)
Print {</starttime>}
Print {<endtime>}
Print doc.endtime(0)
Print {</endtime>}
Print {<statu>}
Print doc.statu(0)
Print {</statu>}
Print {<hours>}
If Not doc.hours(0) = "" Then
Print doc.hours(0)
Else
Print "0"
End If
Print {</hours>}
Print {<leaders>}
If Not doc.leaders(0) = "" Then
Print doc.leaders(0)
Else
Print "未指定"
End If
Print {</leaders>}
Print {<pj>}
If Not doc.pingjia(0) = "" Then
Print doc.pingjia(0)
Else
Print "目前没有评价"
End If
Print {</pj>}
Print {</task>}
Set doc = view.GetNextDocument(doc)
Wend
Print {</Tasks>}
End Sub
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
BulidXML?openagent
用的时候:
var xml = new ActiveXObject("Microsoft.XMLDOM");
xml.async = false;
xml.load("bulidXML?openagent");
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db = s.CurrentDatabase
Set view = db.GetView("Tasks")
Set doc = view.GetFirstDocument
Print {Content-Type: text/xml}
Print {Cache-control: no-cache}
Print {<?xml version="1.0" encoding="GB2312"?>}
Print {<Tasks>}
While Not doc Is Nothing
Print {<task>}
Print {<username>}
Print doc.worker(0)
Print {</username>}
Print {<tasktitle>}
Print doc.tasktitle(0)
Print {</tasktitle>}
Print {<fileid>}
Print doc.UniversalID
Print {</fileid>}
Print {<content>}
Print doc.content
Print {</content>}
Print {<starttime>}
Print doc.starttime(0)
Print {</starttime>}
Print {<endtime>}
Print doc.endtime(0)
Print {</endtime>}
Print {<statu>}
Print doc.statu(0)
Print {</statu>}
Print {<hours>}
If Not doc.hours(0) = "" Then
Print doc.hours(0)
Else
Print "0"
End If
Print {</hours>}
Print {<leaders>}
If Not doc.leaders(0) = "" Then
Print doc.leaders(0)
Else
Print "未指定"
End If
Print {</leaders>}
Print {<pj>}
If Not doc.pingjia(0) = "" Then
Print doc.pingjia(0)
Else
Print "目前没有评价"
End If
Print {</pj>}
Print {</task>}
Set doc = view.GetNextDocument(doc)
Wend
Print {</Tasks>}
End Sub
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
相关文章推荐
- 用代理读取文档并生成xml文档
- DOM4J生成与读取XML文档
- servicemix发布代理WebService读取数据库生成Xml
- Domino中java代理利用jdom生成XML
- C# 生成和读取Xml文档
- asp SQL server 2000 读取记录直接生成xml文档
- Java读取excel文件生成xml文档和JSON文档
- c# 读取opencv 生成的svm训练好的xml分类器
- Unity热更新系列之AssetBundle(3) ——资源文件 xml 清单的生成与读取
- java中XML操作:xml与string互转、读取XML文档节点及对XML节点增删改查
- 通过dom4j对xml文档的读取操作工具类封装
- 用VB将WORD文档(或其他的二进制数据)生成xml文件并互相转换
- 在java 用xml模板通过freemarker生成word文档
- C#来创建和读取XML文档
- 四种生成和解析XML文档的方法详解(介绍+优缺点比较+示例)
- Domino中通过ls代理操作物力路径下的xml文件
- javascript读取XML文档
- XmlReader读取xml文档
- XML文档读取 并且创建一个person 将属性赋给person
- 用socket发送xml文档,把生成的xml文档转化成字符流输出