免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2973 | 回复: 0

[Lotus] [源码系列]修改用户登录密码 [复制链接]

论坛徽章:
0
发表于 2010-05-31 17:09 |显示全部楼层
//*******************************************************************************
// Written by  Fan  [源码系列]修改用户登录密码
// APP: http://item.taobao.com/auction/i ... m_num_id=5105121621
//********************************************************************************

Sub Initialize
       
        Dim session As New NotesSession
        Dim db As NotesDatabase
        Dim nDb As NotesDatabase
        Dim doc As NotesDocument
        Dim sstr As String
       
        Set db=session.currentDatabase
        Set doc=session.documentContext
''''''''''
        cssStr="<style type=""text/css"">" &_
        "body {font-size:12pt}" &_
        "a:link {font-size:12pt; text-decoration: 000000;}" &_
        "a:visited {font-size:12pt; text-decoration:none;color: 000000;}" &_
        "a:hover { font-size:12pt;  text-decoration: underline;color: red}"&_
        "</style>"
       
''''''''''       
       
        userName=doc.UserName(0)
        Password1=Evaluate("@password("""+doc.oldPassword(0)+""")")
        oldPassword=Password1(0)
        newPassword=doc.newPassword(0)
        serverName=db.server
        dbName="names.nsf"
       
       
        Set nDb=New NotesDatabase(serverName,dbName)
       
        'Print "server name:" & ndb.title
        'Exit Sub       
       
        sstr="select form = ""Person"" & @name([abbreviate];@subset(FullName;1)) ="""+userName+""" & httppassword="""+oldPassword+""""
        'Print sstr
        'Exit Sub
        Set collection=nDb.Search(sstr,Nothing, 0)
       
        'Print "server name:" & Cstr(collection.count)
        'Exit Sub       
       
        If collection.count>=1 Then
                Set doc=collection.GetlastDocument
        Else
                Set doc=Nothing
        End If
       
        If Not (doc Is Nothing) Then
                Password1=Evaluate("@password("""+newPassword+""")")
                newPassword=Password1(0)
                Call doc.replaceItemValue("HTTPPassword",newPassword)
                Call doc.save(True,False)
                'Print "<OBJECT id=closes type=""application/x-oleobject"" classid=""clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"">"&_
                '"<param name=""Command"" value=""Close""></object>"
                Print "<script>"               
                Print "alert(""密码修改成功!几分钟后新密码生效."")"
                Print "self.close();"
                Print "</script>"
               
        Else
               
                'Print "<OBJECT id=closes type=""application/x-oleobject"" classid=""clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"">"&_
                '"<param name=""Command"" value=""Close""></object>"
                Print "<script>"
                Print "alert(""旧密码错误!"");"
                'Print "window.closes.Click();"
                Print "self.close();"
                Print "</script>"
               
        End If
       
End Sub
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP