2010年4月19日
http://www-10.lotus.com/ldd/ddwiki.nsf/dx/Master_Table_of_Contents_for_Building_Domino_Web_Applications_using_Domino_8.5.1
http://blog.csdn.net/samboy2002/archive/2006/04/03/648785.aspx
2010年4月12日
2010年4月9日
Teamstudio CIAO! Client Edition 2.50
Serial No. AP-24607 License Key PMSGQ-N4LXB-RTFKVT
Maintenance Expires 2009/08/31 Number Licenses 1
Teamstudio CIAO! Server Edition 2.40
Serial No. AP-24608 License Key XMSGA-BIAIV-SCI2RX
Maintenance Expires 2009/08/31 Number Licenses 1
如何部署Java Web應用程序到Tomcat中？
第一步配置tomcat
安裝Tomcat后，在我的電腦->屬性->高級->環境變量->系統變量中添加以下環境變量(假定你的tomcat安裝在c:\tomcat)：
CATALINA_HOME=c:\tomcat
CATALINA_BASE=c:\tomcat
然后修改環境變量中的classpath，把tomat安裝目錄下的common\lib下的(可以根據實際追加)servlet.jar追加到classpath中去，修改后的classpath如下：
classpath=.;%JAVA_HOME%\lib\dt.jar;%JAVA_HOME%\lib\tools.jar;%CATALINA_HOME%\common\lib\servlet.jar;
接著可以啟動tomcat，在IE中訪問http://localhost:8080，如果看到tomcat的歡迎頁面的話說明安裝成功了。
第二步：部署Servlet：
建立 Servlet
1.用你最熟悉的編輯器（建議使用有語法檢查的java ide）新建一個servlet程序，文件名為Test.java，文件內容如下：
package test;
import java.io.IOException;
import java.io.PrintWriter;
import javax.servlet.ServletException;
import javax.servlet.http.HttpServlet;
import javax.servlet.http.HttpServletRequest;
import javax.servlet.http.HttpServletResponse;
public class Test extends HttpServlet {
protected void doGet(HttpServletRequest request, HttpServletResponse response)
throws ServletException, IOException {
PrintWriter out=response.getWriter();
out.println("<html><body><h1>This is a servlet test.</h1></body></html>");
out.flush();
}
}
2 .編譯
將Test.java放在c:\test下，使用如下命令編譯：
C:\Test>javac Test.java
然后在c:\Test下會產生一個編譯后的servlet文件：Test.class
3 .將結構test\Test.class剪切到%CATALINA_HOME%\webapps\myapp\WEB-INF\classes下，也就是剪切那個test目錄到classes目錄下，如果classes目錄不存在，就新建一個。 現在webapps\myapp\WEB-INF\classes下有test\Test.class的文件目錄結構
4 .修改webapps\myapp\WEB-INF\web.xml，添加servlet和servlet-mapping
編輯后的web.xml如下所示，紅色為添加的內容:
<?xml version="1.0" encoding="ISO-8859-1"?>
<!DOCTYPE web-app
PUBLIC "-//Sun Microsystems, Inc.//DTD Web Application 2.3//EN"
"http://java.sun.com/dtd/web-app_2_3.dtd">
<web-app>
<display-name>My Web Application</display-name>
<description>
A application for test.
</description>
<servlet>
<servlet-name>Test</servlet-name>
<display-name>Test</display-name>
<description>A test Servlet</description>
<servlet-class>test.Test</servlet-class>
</servlet>
<servlet-mapping>
<servlet-name>Test</servlet-name>
<url-pattern>/Test</url-pattern>
</servlet-mapping>
</web-app>
這段話中的servlet這一段聲明了你要調用的Servlet，而servlet-mapping則是將聲明的servlet"映射"到地址/Test上
5 .好了，重啟動Tomcat，啟動瀏覽器，輸入http://localhost:8080/myapp/Test 如果看到輸出This is a servlet test.就說明編寫的servlet成功了。
注意：修改了web.xml以及新加了class，都要重啟Tomcat
參考：
http://blog.csdn.net/NetMicrobe/archive/2006/04/14/663031.aspx
http://read.newbooks.com.cn/info/196577.html
http://www-10.lotus.com/ldd/ddwiki.nsf/dx/domino85-use-dojo-libraries.htm
http://ideajam.net/IdeaJam/P/ij.nsf/0/7E146908362FE350862576D500522C65?OpenDocument#
http://www.training-classes.com/programs/03/16/31617_domino_designer_8-5_browser_applications_and_dojo.php
https://www.ibm.com/developerworks/cn/web/wa-dojotoolkit/
http://www.ibm.com/developerworks/lotus/library/notes7-application-performance2/index.html?S_TACT=105AGX13&S_CMP=EDU
#!perl
use Win32::ODBC;
$Data = new Win32::ODBC("DSN=dhcp;UID=netman;PWD=netman;");
$Data2 = new Win32::ODBC("DSN=dhcp;UID=netman;PWD=netman;");
$Data1 = new Win32::ODBC("DSN=dhcp;UID=netman;PWD=netman;");
$Data3 = new Win32::ODBC("DSN=dhcp;UID=netman;PWD=netman;");
$Data->Sql("select ip,mac,host from dhcplist");
while ($Data->FetchRow())
{
($ip,$mac,$host) = $Data->Data;
print $host,"\n";
$Data1->Sql("select * from Employee ");
while ($Data1->FetchRow())
{
($cname,$dept,$dno,$id,$ext) = $Data1->Data;
print "$cname","\n";
print "$id","\n";
}
$Data1->Close();
$flag = '';
$Data2->Sql("select * from dhcp_data where host = '$host' and ip = '$ip' ");
#print "select * from dhcp_data where host = '$host' and ip = '$ip'" ;
while ($Data2->FetchRow())
{
#@flag = $Data2->Data;
if ( $flag ne "" )
{
print "ok";
$Data3->sql("update dhcp_data set ip = '$ip',host = '$host',mac ='$mac',cname = '$cname',dept = '$dept',dno = $dno',notesid = '$id',ext = '$ext',modifydate = getdate()");
$Data3->Close();
}
else
{
print "ok2";
$Data3->sql("insert into dhcp_data(ip,host,mac,cname,dept,dno,notesid,ext,modifydate) values('$ip','$host','$mac','$cname','$dept','$dno','$id','$ext',getdate())");
$Data3->Close();
}
}
$Data2->Close();
}
$Data->Close();
那怎么用LS創建TXT文件 Superhewei(360700686) 11:03:43 Dim fileNum As Integer, empNumber As Integer, n As Integer Dim fileName As String, empName As String fileNum% = Freefile() fileName$ = "H:\zcjn"+Format(Now,"yyyy-mm-dd")+".trs" ' fileName$ = "c:\zcjn"+Format(Now,"yyyy-mm-dd")+".trs" Open fileName$ For Output As fileNum%
Sub Initialize Dim session As New NotesSession Dim doc As NotesDocument '當前文檔的后臺文檔 Dim tobeSearchDb As NotesDatabase '待搜索的數據庫 Dim DstDocs As NotesDocumentCollection '搜索結果集 Dim RstDoc As NotesDocument '查詢到的文檔 Dim sRstView As NotesView '結果顯示視圖 Set Db=Session.CurrentDatabase Set doc=session.DocumentContext Dim con As ODBCConnection Dim userName As String Dim password As String Dim qry As ODBCQuery Dim result As ODBCResultSet Dim A As String Set con = New ODBCConnection Set qry = New ODBCQuery Set result = New ODBCResultSet Set qry.Connection = con Set result.Query = qry A=con.ConnectTo("CoprYW","sa","123") qry.SQL = " INSERT INTO mt(phone,msg_content,sm_flag) VALUES ('"+doc.SMSendTo(0)+"','"+doc.SMBody(0)+"','1'); " 'Call JSAction("Alert",Cstr(a)) If Not result.Execute Then 'Messagebox _ 'result.GetExtendedErrorMessage,, result.GetErrorMessage 'Exit Sub End If result.Close(DB_CLOSE) con.Disconnect End Sub