CSDN博客

img davidnim

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

发表于2003/5/27 11:26:00  1149人阅读

操作如下:

两个表单
第一个是登陆界面内置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

阅读全文
0 0

相关文章推荐

img
取 消
img