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

[AdamsLee]

我想在B/S中实现用户的密码修改功能，需要判断用户密码是否相同

[jeasoyang]

CSDN FANS 自己的乐园
bbs.35sw.com

shcsdn.35sw.com

www.35sw.com

[AdamsLee]

知道如何比较密码了
session.verifypassword

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

[freyild1979]

dim dd as variant
dd = Evaluate({@password("}+password+{")})
doc.ss = dd(0)

[DlDaniel]

可以参考下面代码：
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