zoukankan      html  css  js  c++  java
  • 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>

  • 相关阅读:
    个人冲刺第七天6.15
    个人冲刺第六天6.14
    个人冲刺第五天6.11
    个人冲刺第四天6.10
    个人冲刺第三天6.9
    个人冲刺第二天6.8
    个人冲刺第一天6.7
    每日总结6.4
    oracle中CAST函数使用简介【转】
    rabbitmq安装
  • 原文地址:https://www.cnblogs.com/hannover/p/2014653.html
Copyright © 2011-2022 走看看