Sub Initialize
 
 
 Dim s As New NotesSession
 Dim db As NotesDatabase
 Dim a As String,b As String,Servername As String,dbpath As String
 Dim printstr As String,msgstr As String,urlstr As String
 Set db=s.CurrentDatabase
 Dim dbf As String
 Dim index As Integer
 index=Instr(1,Ucase(db.FilePath),Ucase(db.FileName))
 If index<>1 Then
     '获取数据库路径  D:\domin 资料\例子\ 
  dbpath=Left(db.filepath,index-1)
  
 Else
  dbpath=""
 End If
 ServerName=db.server
 Set db= New NotesDatabase( ServerName, "names.nsf" )                
 Dim view As NotesView
 Set view=db.GetView("($Users)")
 Dim doc As Notesdocument
 Set doc=s.documentcontext
 
 Dim hs As String,he As String
 hs="<html><head></head><body><center><br><br><br>"
 he="</body></html>"
 urlstr="<script language=javascript> window.history.back()</script>"
 Dim Font As String
 Font=|<FONT SIZE=2 COLOR="000080">|
 If doc.NewPassword(0)="" And doc.ConfirmPassword(0)="" Then
'输出信息
  msgstr= "<script language=javascript> window.alert('请输入您的新密码！ ')</script>"
  printstr=hs & msgstr & urlstr & he
  Print printstr
  Exit Sub
 End If
 Dim decrypted,decryptednewpass
 decrypted=Evaluate("@Password(""" + doc.OldPassword(0)+""")",doc)
 Dim nabdoc As Notesdocument
 Set nabdoc=view.GetDocumentByKey(doc.UserName(0),True)
 
 If Not(nabdoc Is Nothing)  Then
  
  If (nabdoc.HTTPPassword(0)=decrypted(0)) Then
   decryptednewpass=Evaluate("@Password("""+ doc.NewPassword(0) + """)",doc)
   
   If doc.NewPassword(0)=doc.ConfirmPassword(0) Then
    
    nabdoc.HTTPPassword=decryptednewpass(0)
    Call nabdoc.Save(True,False)
    
   Else
'输出信息
    msgstr= "<script language=javascript> window.alert('您输入的新密码不一致！ ')</script>"
    printstr=hs & msgstr & urlstr & he
    Print printstr
    Exit Sub
   End If
   
   
  Else
'输出信息
   msgstr= "<script language=javascript> window.alert('旧密码输入不正确！ ')</script>"
   printstr=hs & msgstr & urlstr & he
   Print printstr
   Exit Sub
  End If
 Else
  msgstr=Font & "在公共通讯录中找不到当前用户“" & doc.UserName(0) & "”！"
'输出信息
  msgstr=msgstr &"<br><br><a href='/lszfb/homepage.nsf'>确定</a>"
  printstr=hs & msgstr & he
  Print printstr
  Exit Sub 
 End If
 msgstr=Font & "您已经成功更改了密码，新密码将在下次登陆时生效！</FONT>"
 msgstr=msgstr &"<br><br><a href='/lszfb/homepage.nsf'>确定</a>" 
'输出信息
 printstr=hs & msgstr & he
 Print printstr
 
End Sub