1:在option里面增加UseLsx "*javacon"
2:在Option里面引用javaScript库
Option
Option Public
Option Declare
UseLsx "*javacon"
Use "UrlSet"
Examle---Java
public class URLSet {
private String strURL = "";
URLSet(String msg){
strURL = msg;
}
public String urlEncode(){
try{
return java.net.URLEncoder.encode(strURL,"UTF-8");
}catch(Exception e){
return "error";
}
}
public String urlDecode(){
try{
return java.net.URLDecoder.decode(strURL,"utf-8");
}catch(Exception e){
return "error";
}
}
public String ShowMsg(){
return strURL;
}
}
Example----LS
Function UrlDecode(strContent As String) As String
%REM
功能:由于LS采用java类定义相应功能,然后引入
创建:ycy 2011-05-05
%END REM
On Error GoTo Errorhandle
Dim ss As New NotesSession
Dim jss As JavaSession
Dim jClass As Javaclass
Dim objURL As JavaObject
Dim strResult As String
Set jss = New JavaSession()
Set jClass = jss.Getclass("URLSet")
Set objURL = jClass.CreateObject("(Ljava/lang/String;)V",strContent)
strResult = objURL.urlDecode()
If strResult = "error" Then
UrlDecode = strContent
Exit Function
End If
UrlDecode = strResult
Exit Function
Errorhandle:
MsgBox "XMLTools-----UrlDecode------erl:" + CStr(Erl) + ", error:" + Error
End Function