厚德载物

‘LS.UserDirectoryEx.BE.6: Option PublicOption Declare %REM ************************** Purpose **************************This little script library contains a function and some C API calls that allow you todetermine the user’s personal directory in Windows – where their things like the Document andSettings directories are, etc. Very handy. There are three Win32 C API calls in Declarations that are called in [...]

内容: 1、BS 建一个空白页面做首页， 内置 ， js header function doLoad(){ if(screen.width>810){ //你也可以设置显示某个页面/桢结构集等,合理的屏幕分辨率范围:) top.location.replace(“http://IP/fhzoa/mainbook.nsf/Pframe1024?OpenFrameSet”); }else{ top.location.replace(“http://IP/fhzoa/mainbook.nsf/Pframe800?OpenFrameSet”); } } function doResize(){ location.reload(); } onload: doLoad(); 2、CS 注：将下面的代码放在一表单的Postopen中，（不能放在Script数据库的Postopen中，否则执行uidoc.close会报错，因无当前文档）在数据库属性默认打开的界面中包含此表单即可。 默认得可以是打开800*600的帧结构 Type Rect x1 As Long y1 As Long x2 As Long y2 As Long End Type Declare Function GetDesktopWindow Lib “user32″ () As Long Declare Function GetWindowRect Lib “user32″ (Byval [...]

Sub InitializeDim session As New NotesSessionDim db As NotesDatabaseDim view As NotesViewDim doc As NotesDocumentSet db = session.CurrentDatabaseSet view=db.GetView("MemberList") ‘自行修改成ViewSet doc = view.GetFirstDocumentOpen "c:\temp\MemberEMailList.XML" For Output As #1 ‘ 路径自行修改Print #1,{<?xml version="1.0" encoding="big5" ?>}Print #1,"<root>" While Not ( doc Is Nothing )Print #1,"<MemberList>"Print #1,"<CompanyName>"+doc.CompanyName(0)+"</CompanyName>"Print #1,"<MemberName>"+doc.MemberName(0)+"</MemberName>"Print #1,"<EMail>"+doc.EMAIL(0)+"</EMail>"Print #1,"</MemberList>"Set doc = view.GetNextDocument( doc ) WendPrint #1,"</root>"Close #1End [...]

IBM Lotus Notes access for SAP solutions 利用一种不同的方式将 IBM Lotus Notes 与其他应用程序相集成。集成一直是 Lotus Notes 的要点之一，但是主要集中于服务器/应用程序级别，使用诸如 NotesPump、Lotus Enterprise Integrator 和 Lotus Connectors 之类的工具在 Lotus Notes 和其他程序环境之间移动数据。 Lotus Notes access for SAP solutions 提供一种不同的集成，熟悉 Notes 客户机界面的用户可以使用它来访问 SAP 数据和进程，而无需掌握和使用另一种 GUI。 对于不断增多的依赖于 Lotus Notes 进行通信和协作以及依赖于 SAP 进行业务信息处理的公司，这种集成具有明显的优势：易于访问 SAP 意味着组织中需要更少的培训以及改善的生产率和更好的 SAP 利用，因为用户可以离线使用 SAP 数据，同时具有完全的 Notes 安全性。 而对于 Notes 和 Domino [...]

用JavaScript编写了一功能函数，完成如下功能： 1、对一给定字符串，如：1234.55，转换成正确的中文货币描述：如：人民币壹仟贰佰叁拾四元五角五分 2、输入的字符串形式可以是以下几种：带分隔符的，如：123,456,789.00；不带分隔符的，如：123456789 3、输出的中文货币描述要符合规范，如：0.3—-人民币三角；0.33—-人民币三角三分；1—-人民币壹元整 100—-人民币壹佰元整；1001—-人民币壹仟零壹元整；10000001—-人民币壹仟万零壹元整； 1001001—-人民币壹仟零壹万零壹元整，等 4、最大转换能到百亿 具体的代码如下：

转贴自苹果论坛. 这段时间在帮公司创建 help desk 系统，考虑到日常使用 Lotus Notes 进行通信，所以准备建立一个基于 Domino 平台下的 help desk 系统，最近在网上找到这个德国人写的 help desk software ，发现里面的功能超强，除了可以根据用户名，显示他的联系方式、部门、公司外（从Names.nsf里提取），更强的是可以将往来的 email 都存放为线索，更绝的是还提供多语言支持，这可是在 Lotus Notes 下提供多语言啊。 除了作为 help desk software 使用外，这个数据库还是完全开源，您可以任意查看里面的设计，可以作为您学习用，里面的很多功能，即使有多年开发经验的开发人员也很有帮助。 我现在找到的，Lotus 下面最强 help desk系统! 点击下载

将日期转换成星期几 REM “This formula assumes there is default text in the field called Date.”; REM “Otherwise it gives the “Incorrect data type…” error.”; M := @Text(@Weekday(Date)); N := “1″ : “2″ : “3″ : “4″ : “5″ : “6″ : “7″; Days := “Sunday” : “Monday” : “Tuesday” : “Wednesday” : “Thursday” : “Friday” : [...]

问题： B/S下Domino系统自带的附件链接都放在页面的最下面，给整个页面的排版、布局带来影响。 解决办法： 在B/S下，一般附件的处理方法是，在表单上加域$V2AttachmentOptions，设置其值为0，从而隐藏系统默认的附件链接，然后象下面这样自己写链接 一、只读情况下的链接 thisDb:=@ReplaceSubstring(@ReplaceSubstring(@Subset(@DbName;-1);” “;”+”);”\\”;”/”); @If(@Attachments!=0;”["+@AttachmentNames+"]“;””) 二、包含选择框供用户删除时的链接

为本地的cab打包增加数字签名的方法如下： 第一步： 1、进入CD C:\Program Files\Microsoft Visual Studio .NET 2003\SDK\v1.1\Bin目录下 2、运行makecert -sv dmkey.pvk -n “CN=你的公司名称” -ss My -r -b 01/01/1900 -e 01/01/9000 3、打开IE 的“Internet选项”，切换到“内容”标签，看到“证书”按钮,导出证书dmkey.cer 第二步： 1、把要用到的程序文件打包为CAB格式格式 2、运行IEXPRESS.EXE进行制作cab文件,生成office.cab 第三步：为icyfox.CAB签署数字签名 运行signcode.exe，选择office.CAB，“签名选项”中的“签名类型”选定“自定义(C)”,下一步 “从文件中选择”上面第一步导出的证书