语源科技BlogJava-明高工作室

基于Domino8.5.1创建Web应用程序

明高 — Mon, 19 Apr 2010 02:44:00 GMT

http://www-10.lotus.com/ldd/ddwiki.nsf/dx/Master_Table_of_Contents_for_Building_Domino_Web_Applications_using_Domino_8.5.1

明高 2010-04-19 10:44 发表评论

Eclipse无插件配置Resin

明高 — Mon, 19 Apr 2010 01:52:00 GMT

http://blog.csdn.net/samboy2002/archive/2006/04/03/648785.aspx

明高 2010-04-19 09:52 发表评论

Lotus的服务器端编程

明高 — Mon, 12 Apr 2010 09:09:00 GMT

明高 2010-04-12 17:09 发表评论

1

明高 — Fri, 09 Apr 2010 09:34:00 GMT

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

明高 2010-04-09 17:34 发表评论

Tomcat配置与应用.doc

明高 — Fri, 09 Apr 2010 07:50:00 GMT

如何部署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("

This is a servlet test.

");
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如下所示，红色为添加的内容:

PUBLIC "-//Sun Microsystems, Inc.//DTD Web Application 2.3//EN"
"http://java.sun.com/dtd/web-app_2_3.dtd">

My Web Application

A application for test.

Test
Test
A test Servlet
test.Test

Test
/Test

这段话中的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

明高 2010-04-09 15:50 发表评论

lotus&dojo

明高 — Fri, 09 Apr 2010 07:48:00 GMT

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/

明高 2010-04-09 15:48 发表评论

Lotus程序设计优化

明高 — Fri, 09 Apr 2010 06:39:00 GMT

http://www.ibm.com/developerworks/lotus/library/notes7-application-performance2/index.html?S_TACT=105AGX13&S_CMP=EDU

明高 2010-04-09 14:39 发表评论

Perl操纵数据库

明高 — Fri, 09 Apr 2010 02:02:00 GMT

#!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();

明高 2010-04-09 10:02 发表评论

在Lotus中操纵txt文件

明高 — Fri, 09 Apr 2010 01:33:00 GMT

那怎么用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%

明高 2010-04-09 09:33 发表评论

在Lotus开发中使用ODBC进行数据交互

明高 — Fri, 09 Apr 2010 01:32:00 GMT

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

明高 2010-04-09 09:32 发表评论