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>
分类:
lotus b/s开发
标签:
lotus
【推荐】国内首个AI IDE，深度理解中文开发场景，立即下载体验Trae
【推荐】编程新体验，更懂你的AI，立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包，你的智能百科全书，全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell：AI 加持，快人一步
· 10年+ .NET Coder 心语，封装的思维：从隐藏、稳定开始理解其本质意义
· .NET Core 中如何实现缓存的预热？
· 从 HTTP 原因短语缺失研究 HTTP/2 和 HTTP/3 的设计差异
· AI与.NET技术实操系列：向量存储与相似性搜索在 .NET 中的实现
· 基于Microsoft.Extensions.AI核心库实现RAG应用
· 10年+ .NET Coder 心语 ── 封装的思维：从隐藏、稳定开始理解其本质意义
· 地球OL攻略 —— 某应届生求职总结
· 提示词工程——AI应用必不可少的技术
· Open-Sora 2.0 重磅开源！
· 周边上新：园子的第一款马克杯温暖上架