以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  更改用户密码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106714)
--  作者：恒隆君
--  发布时间：2017/9/14 13:45:00
--  更改用户密码
未采用SQL Server，使用access作为数据库，
使用内置用户管理器，

如果用户要自己更改密码如何实现？
--  作者：有点甜
--  发布时间：2017/9/14 14:10:00
--  
以下是引用恒隆君在2017/9/14 13:45:00的发言：
未采用SQL Server，使用access作为数据库，
使用内置用户管理器，

如果用户要自己更改密码如何实现？

 

1、直接在用户管理那里，可以修改

 

http://www.foxtable.com/webhelp/scr/0607.htm

 

2、http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=105672&skin=0

 
--  作者：恒隆君
--  发布时间：2017/9/14 14:45:00
--  
以下这段代码是放在哪里？

可以通过用户名查询的

Dim oldpwd As String 
Dim newpwd As String 
Dim name As String 
Dim fdr As DataRow = DataTables("Names").Find("名称 =  \'" & name & "\'")
If fdr IsNot Nothing Then
    If fdr("config") Like "*" &  MD5Encrypt(oldpwd) & "*"
        fdr("config") = fdr("config").replace(MD5Encrypt(oldpwd), MD5Encrypt(newpwd))
        Return
    End If
End If
msgbox("密码不正确")
--  作者：有点甜
--  发布时间：2017/9/14 14:48:00
--  
 放在你的修改密码的窗口的按钮里。