请教LOTUS WEB 方式下弹出对话窗口的代码？

在C/S环境中，我做了一个弹出的窗口，代码如下：
FIELD A1Name:=@PickList( [Custom] ; @Name([CN]; @Subset(@DbName; 1)):"Company/ADDBM.nsf" ; "UserView" ; "人员信息列表" ; "人员信息" ; 1);
FIELD A1ID:=@DbLookup("":"NoCache";@Name([CN];@Subset(@DbName;1)):"Company/ADDBM.nsf" ; "UserView" ; A1Name; 5);
@Command([RefreshHideFormulas]);
@Success

然而，如果要在WEB方式下如何实现此功能？
谢谢 --------------------编程问答-------------------- 用JS树的方式实现吧。 --------------------编程问答-------------------- 代码或者示例？我目前只会C/S开发，还不会B/S,谢谢了 --------------------编程问答-------------------- var pathname = (window.location.pathname);
var formname = "frmTypeSelecter"
var width="300";
var height="200";
var wid="selType";
var advisewindow=window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+formname+'?openFORM',wid,'status=no,resizable=no,scrollbars=yes,screenX=50,screenY=50,width='+width+',height='+height);

补充：企业软件 ,  Lotus