BS下用户登录后直接进入个人邮箱

王朝other·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

操作如下:

两个表单

第一个是登陆界面内置HTML代码如下:

</form><FORM METHOD=post ACTION="/names.nsf?Login" NAME="_DominoForm">

<INPUT NAME="Username" VALUE="">

<P>

<INPUT NAME="Password" VALUE="" TYPE=password><INPUT onClick=document.forms[1].RedirectTo.value=/db.nsf/form2?OpenForm"; VALUE="登陆" type = submit>

第二个表单form2中,有一个记录已登陆人员邮件信息的域txtMailFile,类型为创建时计算的文本域,公式如下:

svr:=@Subset(@DbName;1);

pathname:=@ReplaceSubstring(@ReplaceSubstring(@Subset(@DbName;1);"\\"; "/"); " "; "+");

mailf:=@DbLookup("";svr:"names.nsf";"people";@Name([CN];@UserName);"mailfile");

mailf1:=@ReplaceSubstring(@If(@Right(mailf;4)!=".nsf";mailf+".nsf";mailf);"\\"; "/");

pathname+"/"+mailf1

在表单的onLoad事件中写上如下代码

location.href = document.forms[0].txtMailFile.value

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航