壹佰网|ERP100 - 企业信息化知识门户

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 902|回复: 5

[Domino B/S开发] [转帖]email登陆公式

[复制链接]
发表于 2003/3/25 11:14:31 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。如果您注册时有任何问题请联系客服QQ: 83569622  。

您需要 登录 才可以下载或查看,没有帐号?注册

x
@If(emailname=\\\"\\\";@Return(@SetField(\\\"errtext\\\";\\\"请输入用户名\\\"));\\\"\\\");


@If(emailpassword=\\\"\\\";@Return(@SetField(\\\"errtext\\\";\\\"请输入密码\\\"));\\\"\\\");


temp:=@DbLookup(\\\"\\\":\\\"nocache\\\";@Subset(@DbName;1):\\\"names.nsf\\\";\\\"($maillist)\\\";emailname;2);


temp2:=@DbLookup(\\\"\\\":\\\"nocache\\\";@Subset(@DbName;1):\\\"names.nsf\\\";\\\"($maillist)\\\";emailname;3);


@If(@IsError(temp)|@Elements(temp)=0;@Return(@SetField(\\\"errtext\\\";\\\"这个用户不存在!\\\"));\\\"\\\");


@If(@Elements(temp)>1;@Return(@SetField(\\\"errtext\\\";\\\"用户邮箱一致性出现错误\\\"));\\\"\\\");


@If(@Right(temp;4)=\\\".nsf\\\";\\\"\\\";@Set(\\\"temp\\\";temp+\\\".nsf\\\"));


@If(@DbExists(@Subset(@DbName;1):temp);\\\"\\\";@Return(@SetField(\\\"errtext\\\";\\\"您的邮箱不存在\\\")));


@URLOpen(\\\"/main.nsf?login&username=\\\"+emailname+\\\"&password=\\\"+emailpassword+\\\"&redirectto=\\\"+temp)
发表于 2003/4/8 11:35:45 | 显示全部楼层
谢谢。
发表于 2003/4/9 15:06:57 | 显示全部楼层
发表于 2003/4/16 10:23:42 | 显示全部楼层
正是我要的,
谢谢!
发表于 2003/4/22 16:19:40 | 显示全部楼层
谢谢啊!~我找了好久了啊!
呵呵阿~~~~
发表于 2004/2/16 19:25:54 | 显示全部楼层
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|小黑屋|手机版|壹佰网 ERP100 ( 京ICP备19053597号-2 )

Copyright © 2005-2012 北京海之大网络技术有限责任公司 服务器托管由互联互通
手机:13911575376
网站技术点击发送消息给对方83569622   广告&合作 点击发送消息给对方27675401   点击发送消息给对方634043306   咨询及人才点击发送消息给对方138011526

GMT+8, 2025/11/30 04:28 , Processed in 0.012287 second(s), 14 queries , File On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表