Всем привет!
Задача: вывести в xml формате поля документа в браузер по запросу URL
например такой url: http://server/db.nsf/DocExporter?OpenAgent&unid=FCB20938CED3D62143257D2E00417679
Пишем обычный агент который ловит url парсит его, вытягивает UNID, находим док и выводим все поля в виде xml в браузер (НЕ В ФАЙЛ!)
Агент такой:
Но ерунда в том что в браузере тэги не отображаются,
исходный код страницы содержит лишнее,
т.е. агент сам добавляет стандартную обертку для html страницы:
Что можно придумать чтобы выводил в формате xml
как по ссылке:
http://www.w3schools.com/xml/note.xml
Задача: вывести в xml формате поля документа в браузер по запросу URL
например такой url: http://server/db.nsf/DocExporter?OpenAgent&unid=FCB20938CED3D62143257D2E00417679
Пишем обычный агент который ловит url парсит его, вытягивает UNID, находим док и выводим все поля в виде xml в браузер (НЕ В ФАЙЛ!)
Агент такой:
Код:
Set session = New NotesSession
Dim cdoc As NotesDocument
Dim unid As String, params As String
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db= session.CurrentDatabase
Set cdoc = session.DocumentContext
params = cdoc.Query_String_Decoded(0)
unid = GetParam(params, "unid")
Set doc = getDocByUNID(db,unid)
If Not doc Is Nothing Then
Print {<?xml version="1.0" encoding="UTF-8"?>}
Print {<entities>}
Print {<entity unid="} & doc.UniversalID & {">}
Forall i In doc.Items
Print {<} & Cstr(i.name) & {>} & doc.GetItemValue(i.name)(0) & {</} & Cstr(i.name) & {>}
End Forall
Print "</entity>"
Print "</entities>"
End IfНо ерунда в том что в браузере тэги не отображаются,
исходный код страницы содержит лишнее,
т.е. агент сам добавляет стандартную обертку для html страницы:
Код:
<html>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1251">
</head>
<body text="#000000">
..........мой xml............
</body>
</html>Что можно придумать чтобы выводил в формате xml
как по ссылке:
http://www.w3schools.com/xml/note.xml
