Chinaunix首页 | 论坛 | 博客
  • 博客访问: 337358
  • 博文数量: 1051
  • 博客积分: 53280
  • 博客等级: 大将
  • 技术积分: 6670
  • 用 户 组: 普通用户
  • 注册时间: 2008-09-09 13:21
文章分类

全部博文(1051)

文章存档

2011年(1)

2008年(1050)

我的朋友

分类:

2008-09-09 15:47:05



  @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)
  
  


  


 相关文章  热门文章











--------------------next---------------------

阅读(100) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~