ASP连接LOTUS数据库
你必須在服務器端注冊NotesSession組件,跟注冊其它ASP的組件原理一樣：
鍵入：regsvr32 c:\lotus\notes\nlsxbe.dll 就OK了
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="; GENERATOR; " Content="; Microsoft; Visual; Studio; 6#; ">
</HEAD>
<BODY>
<%
dim s, dir, db
Set s = CreateObject("Lotus.NotesSession")
Call s.Initialize
dim serverName
serverName = ""
Set dir = s.GetDbDirectory(serverName)
Set db = dir.GetFirstDatabase(1247)
if (dir.Name <> "") then
Response.Write("<h2>" + "Databases on " + dir.Name + "</h2>")
else
Response.Write("<h2>Databases on local</h2>")
end if
Response.Write("<table border=1 bgcolor=#CCCCCC>")
Response.Write("<tr>")
Response.Write("<th>File Name")
Response.Write("<th>DB Title")
While Not (db Is Nothing)
Response.Write("<tr><td>")
Response.Write(db.FileName)
Response.Write("</td>")
Response.Write("<td>")
Response.Write(db.Title)
Response.Write("</td></tr>")
Set db = dir.GetNextDatabase
Wend
Response.Write("</table>")
%>
</BODY>
</HTML>
鍵入：regsvr32 c:\lotus\notes\nlsxbe.dll 就OK了
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="; GENERATOR; " Content="; Microsoft; Visual; Studio; 6#; ">
</HEAD>
<BODY>
<%
dim s, dir, db
Set s = CreateObject("Lotus.NotesSession")
Call s.Initialize
dim serverName
serverName = ""
Set dir = s.GetDbDirectory(serverName)
Set db = dir.GetFirstDatabase(1247)
if (dir.Name <> "") then
Response.Write("<h2>" + "Databases on " + dir.Name + "</h2>")
else
Response.Write("<h2>Databases on local</h2>")
end if
Response.Write("<table border=1 bgcolor=#CCCCCC>")
Response.Write("<tr>")
Response.Write("<th>File Name")
Response.Write("<th>DB Title")
While Not (db Is Nothing)
Response.Write("<tr><td>")
Response.Write(db.FileName)
Response.Write("</td>")
Response.Write("<td>")
Response.Write(db.Title)
Response.Write("</td></tr>")
Set db = dir.GetNextDatabase
Wend
Response.Write("</table>")
%>
</BODY>
</HTML>