Domino服务器运行代理生成xml文件，如何实现？

[cqpxm]

Domino服务器运行代理生成xml文件，如何实现？最好给个例子供大家学习。

[cqpxm]

在服务器端生成xml文件,保存在某个目录中.居然没有人知道吗?

[cqpxm]

XML文件的内容和格式可以根据ls程序控制!
居然还是没人回答,我自己也在研究中!

[cqpxm]

notes 服务器上，我想运行一个代理，把文档中的数据读取出来然后按照一定的格式和要求，生成xml文件，并保存在服务器某个目录中。请问如何实现。不是直接生成那种，文档中的数据要重新组合。

[whtportland]

Sub Initialize
%REM
'文件保存在Data目录下，Print部分为XML文件的内容
%END　REM
On Error Goto er
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dbNames As NotesDatabase
Dim view As NotesView
Dim viewNames As NotesView
Dim doc As notesdocument
Dim docName As NotesDocument

Set db=session.currentdatabase
Set dbNames=session.getDatabase(db.server,"names.nsf")
Set view=db.getview("$$VwUpdateBydate")
Set viewNames=dbNames.GetView("PeopleForPortal")

Dim ZhiWei As String
Dim BuMen As String
intFile=Freefile
Open "config.xml" For Output As #intFile
'创建ＸＭＬ文件
Print #intFile,{}
Print #intFile,{<KJEC>}
i=1
Set doc = view.getfirstdocument
Do While Not doc Is Nothing
'如果是主负责人，则将相关信息打出
If doc.JGleader(0)<>"" Then
Set docName=viewNames.GetDocumentByKey(doc.JGleader(0))
ZhiWei=GetZhiWei(Doc,"正")
BuMen=GetBuMen(Doc)

Print #intFile,{<EMP>}
Print #intFile,{<USERID>} & DocNamesF.ShortName(0) & {</USERID>}
Print #intFile,{<COMMONNAME>} & DocNamesF.FullName(1) & {</COMMONNAME>}
Print #intFile,{<DISTINCTION>} & ZhiWeiF & {</DISTINCTION>}
Print #intFile,{<EMAIL>} & DocNamesF.InternetAddress(0) & {</EMAIL>}
Print #intFile,{<DATADIR>} & "OA" & {</DATADIR>}
Print #intFile,{<DEPT>} & BuMenF & {</DEPT>}
Print #intFile,{</EMP>}
End If
i=i+1
Set doc=view.getnextdocument(doc)
Loop

i=i-1
Print #intFile,{</KJEC>}
Close #intFile
Exit Sub
er:
Msgbox Error$ +"@Line"+ Cstr(Erl())
End Sub

[sky0321]

不错的,正在研究.............................................................