

我们用的开发平台:
我们用的开发平台:
服务器:windows2000+web服务器:IIS5.0+Lotus Notes/Domino 5.0.3版;
XML Web Service服务开发工具:Visual Studio.NET Beta2;
客户端:ASP web页面或者VB windows application。
开发步骤:
1) Lotus Notes/Domino 的Notes数据库
新建一个Notes数据库或者利用原有的数据库。在这个数据库里面至少有一个表单,在表单里有一些域,用来存放一些条目的信息。再建立几个视图,视图主要是用来按照一定规则显示文档的。比如按照时间的顺序或按照文档的点击率。
2) 建立XML web service服务
打开Visual studio .NET Beta2版,新建项目->Visual c#的ASP.NET web服务,删掉默认的ASMX文件,新建一个Web服务页面NewsPublish.asmx,打开NewsPublish.asmx.cs文件,这里将是我们编写源代码的地方。右键点击解决方案,添加引用,选择COM组件中的Lotus Domino Object组件,确定后就引用了COM组件,在我们的程序里面就可以访问Notes数据库了。好了,就可以开始编写代码提供方法调用服务了。在这里,笔者给出其中一个方法,GetNewByPostTime提供获取指定数目的新闻条目的服务,每个新闻条目只是有提交时间、作者、标题、分类、文档标识号码等基本的信息,没有具体的内容。以下是为部分源代码。
GetNewsByPostTime方法:
//返回新闻条目,存储在一个数组里面
//PageSize参数为新闻条目的数目
public NewsItem[] GetNewsByPostTime(int PageSize)
{
Domino.IViewNavigator vn;
Domino.IViewEntry h;
Domino.IDocument doc;
int index=0;
NewsItem[] Result=new NewsItem [PageSize];
//连接Notes数据库
vn=ConnectToNotesDb("","bbs.nsf","bufy_2001","All Documents",out h);
//获取每个新闻文档的信息
do
{
doc = h.Document;
Result[index]=new NewsItem ();
Result[index].Subject =doc.GetFirstItem ("Subject").Text;
Result[index].Category =doc.GetFirstItem ("categories").Text ;
Result[index].PostTime =doc.Created.ToString ();
Result[index].Author =doc.GetFirstItem("From").Text ;
Result[index].NewsID =doc.NoteID .ToString ();
index++;
h = vn.GetNextDocument(h);
}
while(h!=null&&index return Result; } 连接Louts数据库的方法: //这个方法建立Notes的数据库连接并获取视图的句柄 public Domino.IViewNavigator ConnectToNotesDb(string pServer,string pDbFileName,string pPassword,string pNotesView,out Domino.IViewEntry h) { NotesSession s=new NotesSession (); Domino.IDatabase db; Domino.IView v; Domino.IViewNavigator vn; s.Initialize (pPassword); db=s.GetDatabase (pServer,pDbFileName,false); v=db.GetView (pNotesView); vn=v.CreateViewNav(0); :h=vn.GetFirstDocument (); return vn; } 至此完成了web service服务的定义,在想发布的web service服务上标上[WebMethod],这样服务就可以被客户端访问了。 3) 客户端的构建 客户端可以有很多种方法可以构建,在这里只讲述用ASP web站点的连接方式。客户端想获取XML web service服务,除了要支持http的连接外,还要能够解析XML文档。ASP通过调用XMLHTTP组件接受XML消息,在应DOM来解析XML文档获取我们需要的信息。 在这里,笔者只列出ASP请求、接受XML服务和解析XML文档的源代码: Dim oXMLHTTP Dim oDOM Set oXMLHTTP=Server.CreateObject ("Microsoft.XMLHTTP") Set oDOM = Server.CreateObject("Microsoft.XMLDOM") '利用post方法完成xml web service服务的请求 oXMLHTTP.open_ "POST","http://192.168.3.11/DominoXmlWebService/NewsPublish.asmx/GetNewsDetails",f_alse '利用Get方法完成xml web service服务的请求 'oXMLHTTP.open_ "GET","http://192.168.3.11/DominoXmlWebService/NewsPublish.asmx/GetNewsByCount?_ NewsID="&newsID&"",false '设置post方法参数 oXMLHTTP.SetRequestHeader_ "Content-Type","application/x-www-form-urlencoded" '发送post数据 oXMLHTTP.send "NewsID="&newsID&"" '如果用get方法,则发送方法如下 'oXMLHTTP.send Set oDOM=oXMLHTTP.responseXML Set theNode=oDOM.documentElement.childNodes(0) NewsID=theNode.ChildNodes(0).text Subject=theNode.ChildNodes(1).text Category=theNode.ChildNodes(2).text Count=theNode.ChildNodes(3).text PostTime=theNode.ChildNodes(4).text Author=theNode.ChildNodes(5).text Body=theNode.ChildNodes(6).text 至此,我们完成了所有的任务。