• 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>

  • 相关阅读:
    [SDOI2009]HH的项链
    [PA2010]Riddle
    纪念品
    [Code+#4]最短路
    [JSOI2007]文本生成器
    绝世好题
    一个输入框提示列表效果
    iGOOGLE分栏
    获取图片地址然后显示在input中
    网页配色工具。
  • 原文地址:https://www.cnblogs.com/hannover/p/2014653.html
Copyright © 2020-2023  润新知