ASP连接LOTUS数据库代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】 ASP连接LOTUS数据库

作者:乙洁 / 发布于2015/1/22/ 1397

你必須在服務器端注冊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>

试试其它关键字

同语言下

可能有用的

乙洁贡献的其它代码(2)