用lotusscript如何实现@password公式相同的功能?

AdamsLee 2004-04-29 09:03:49
我想在B/S中实现用户的密码修改功能,需要判断用户密码是否相同
...全文
30 4 点赞 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
DlDaniel 2004-04-30
可以参考下面代码:
On Error Goto del
Dim session As New NotesSession
Dim Curdoc As Notesdocument
Dim DB As NotesDatabase
Dim Doc As NotesDocument
Dim view As Notesview
Dim oldPwd,newPwd,comNewPwd,keyName As String
Set Curdoc = session.DocumentContext
keyName=curdoc.GetItemValue("UserName")(0)
oldPwd=curdoc.GetItemValue("OldPassWord")(0)
newPwd=curdoc.GetItemValue("NewPassWord")(0)
comNewPwd=curdoc.GetItemValue("NewPassWord1")(0)
If newPwd<>comNewPwd Then
Print "<script language='javascript'>alert('新密码和确认密码不相同,请重新输入!');history.back(1);</script>"
Exit Sub
End If
Set DB= session.GetDatabase("","names.nsf")
Set view = DB.GetView("($VIMPeople)")
Set Doc= view.GetDocumentByKey(keyName, True)
If Doc Is Nothing Then
Print "<script language='javascript'>alert('对不起,此用户不存在!');history.back(1);</script>"
Exit Sub
End If

passwordInAddressBook =Doc.HTTPPassword(0)
temp = Evaluate({@Password(OldPassWord)}, curdoc)
If passwordInAddressBook<>temp(0) Then
Print "<script language='javascript'>alert('对不起,输入的旧密码不对,请重新输入!"+temp(0)+"');history.back(1);</script>"
Exit Sub
End If
temp = Evaluate({@Password(NewPassWord)}, curdoc)
encodedNewPassword = temp(0)
Doc.HTTPPassword = encodedNewPassword
Call Doc.Save(True, False)
Print "<script language=javascript>alert('密码修改成功!');history.back(1);</script>"
del:
Print Error
  • 打赏
  • 举报
回复
freyild1979 2004-04-30
dim dd as variant
dd = Evaluate({@password("}+password+{")})
doc.ss = dd(0)
  • 打赏
  • 举报
回复
AdamsLee 2004-04-29
知道如何比较密码了
session.verifypassword

可是如何实现用lotusscript如何实现@password公式相同的功能呢?
  • 打赏
  • 举报
回复
jeasoyang 2004-04-29
CSDN FANS 自己的乐园
bbs.35sw.com

shcsdn.35sw.com

www.35sw.com
  • 打赏
  • 举报
回复
相关推荐
发帖
消息协作
加入

527

社区成员

企业开发 Exchange Server
申请成为版主
帖子事件
创建了帖子
2004-04-29 09:03
社区公告
暂无公告