示例代碼:
Class DOMobj_Person
gdoc_Person As NotesDocument
' ** 屬性
Property Get Document
Set Document = gdoc_Person
End Property
Property Set Document
Set gdoc_Person = Document
End Property
Property Get NotesID
NotesID = gdoc_Person.GetItemValue("NotesID")(0)
End Property
Property Get No
No = gdoc_Person.GetItemValue("EmpNo")(0)
End Property
Property Get CName
CName = gdoc_Person.GetItemValue("EmpCName")(0)
End Property
Property Get EName
EName = gdoc_Person.GetItemValue("EmpName")(0)
End Property
Property Get DeptNo
DeptNo = gdoc_Person.GetItemValue("DeptNo")(0)
End Property
Property Get DeptName
DeptName = gdoc_Person.GetItemValue("DeptCName")(0)
End Property
Property Get DeptLayer
DeptLayer = gdoc_Person.GetItemValue("DeptLayer")(0)
End Property
' ** 代理資訊
Property Get AgentStatus
AgentStatus = gdoc_Person.GetItemValue("AgentStart")(0)
End Property
' ** 建構子
Sub New(pstr_SearchType As String , pstr_SearchKey As String)
Set gdoc_Person = domf_docGetPersonal(pstr_SearchType , pstr_SearchKey)
End Sub
' ** 方法
Function getPerson(pstr_SearchType As String , pstr_SearchKey As String)
Set gdoc_Person = domf_docGetPersonal(pstr_SearchType,pstr_SearchKey)
End Function
'---get First Item Value
Function getFirstItemValue(pstr_item As String) As Variant
getFirstItemValue = Me.gdoc_Person.getFirstItemValue(pstr_item)
End Function
'---get Default Deputy
Function getDefaultDeputy() As DOMobj_Person
Set getDefaultDeputy = Nothing
If (Me.AgentStatus) Then
If gdoc_Person.GetItemValue("DeputyEmpNo")(0) <> "" Then
Set getDefaultDeputy = New DOMobj_Person("NO" , gdoc_Person.GetItemValue("DeputyEmpNo")(0))
End If
End If
End Function
'---get Class Deputy
Function getDeputyByClass(pstr_Class As String)
End Function
End Class
這是一個老生常談的老問題:
環境:Domino7.0.1 2003server.Sp1,用戶mail模板Dwa7.ntf
利用Domino web access訪問用戶mail數據庫,時常出現無法下載保存中文名稱附件。
影響的Domino版本很多,IBM承認是軟件bug,但一直沒有解決這個問題
附件格式:
中英文混和、utf格式的文檔、名稱中包含+號、包含路徑等的附件名稱格式
心細的你可能注意到,如果你發送一個如:abc中文.txt的附件,用戶收到后,附件名稱就會變更為“abc 中文.txt”,中間多了一個空格!
解決:
看多了網絡上關于這個方面的討論,沒有徹底的解決方法
1:修改服務器文檔---internet協議---Domino web引擎中的“字符集”,使用UTF-8輸出
2:如果碰到這個問題,將這個郵件轉發給自己!在看看,一般而言也可以打開(這個是IBM發布的變相解決,嘿嘿)
相關配置:
當前服務器文檔:
tab標簽“Internet協議”——〉tab標簽“Domino Web引擎”,依次找到
語言項設置:
缺省字符串資源語言:英語
其他字符串資源語言:中文(簡體),中文(繁體)
字符集:
使用UTF-8輸出:是
在HTML表單中使用UTF-8:是
缺省的字符集群組:簡體中文
安裝多語言包
比如客戶端使用的是繁體中文的操作系統,domino server就必須安裝繁體中文的語言包,否則此客戶將無法訪問中文名稱(比如:上海世博.ppt)的附件。
解決方案1、附件存儲在單獨的一個數據庫中,供業務文檔來訪問使用。
AttachmentDBPahtUrl :=@GetProfileField("ConfigProfile";"DBHome") + @GetProfileField("ConfigProfile";"AttachmentDBPath");
@Implode("<div align=left><IMG SRC=\"/icons/vwicn005.gif\"><A HREF=" + AttachmentDBPahtUrl + "0/"+@Text(AttachmentDocID0)+"/$FILE/"+@URLEncode("Domino";AttachmentName0)+" TARGET=_BLANK>"+AttachmentName0+"</A> </div>")
域AttachmentDocID0:存儲附件所在的文檔的UNID
域AttachmentName0:存儲附件的名稱,可能為中文、字母和相關符號的組合。
@URLEncode:對附件的名字進行編碼,避免OS為繁體或其他非簡體中文的操作系統因URL鏈接被截斷而無法訪問。
在Lotuscript中對漢語進行URLEncode
兩種方式:
1、在ls中使用公式語言
Dim cmd As String
Dim x As Variant
cmd = {@URLEncode("Domino";"上海世博會")}
x=Evaluate(cmd)
msgbox CStr(x(0))
2、使用ls自定義的函數
http://wzdany.blog.163.com/blog/static/13383730820102106451479/?fromdm
Apache是以進程為基礎的結構,進程要比線程消耗更多的系統開支,不太適合于多處理器環境,因此,在一個Apache Web站點擴容時,通常是增加服務器或擴充群集節點而不是增加處理器。
當處理靜態頁面時,Tomcat不如Apache迅速。Tomcat不象Apache一樣可配置。Tomcat不象Apache一樣強壯。Tomcat是Java程序,所以只要有JDK就可以使用,不需要考慮操作系統平臺。
apache+tomcat贏得企業級的應用
1.Apache主要用來解析靜態文本,如html,tomcat也有此功能,但apache能大大提高效率,對于并發數較大的企業級應用,能更好的顯示apache的高效率;
2.Tomcat用來解析jsp,servlet等,所有的客戶請求首先會發送到apache,如果請求是靜態文本則由apache解析,并把結果返回給客戶端,如果是動態的請求,如jsp,apache會把解析工作交給tomcat,由tomcat進行解析(這首先要兩者現實整合),tomcat解析完成后,結果仍是通過apache返回給客戶端,這樣就可以達到分工合作,實現負載均衡,提高系統的性能!
解決辦法:
1、查看Tomcat啟動日志:jakarta_service_20100406.log(D:\Program Files\Apache Software Foundation\Tomcat 6.0\logs);
其中有以下信息:
[2010-04-06 14:05:53] [174 javajni.c] [error] 找不到指定的模塊。
[2010-04-06 14:05:53] [994 prunsrv.c] [error] Failed creating java C:\Program Files\Java\jre1.6.0_07\bin\client\jvm.dll
[2010-04-06 14:05:53] [1269 prunsrv.c] [error] ServiceStart returned
2、重定向Tomcat使用的JVM.dll
重新啟動Tomcat成功。