LS中使用javaScript库类

 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