以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]移动端修改密码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105672)
--  作者：zcgmxf
--  发布时间：2017/8/23 22:44:00
--  [求助]移动端修改密码
老师，在移动端如何设置修改密码？用的外部表，内置登录。谢谢！
--  作者：有点甜
--  发布时间：2017/8/23 23:00:00
--  

 

Dim oldpwd As String = "123456"
Dim newpwd As String = "abc"
Dim fdr As DataRow = DataTables("表A").Find("config like \'%" & MD5Encrypt(oldpwd) & "%\'")
If fdr IsNot Nothing Then
    fdr("config") = fdr("config").replace(MD5Encrypt(oldpwd), MD5Encrypt(newpwd))
Else
    msgbox("密码不正确")
End If
--  作者：zcgmxf
--  发布时间：2017/9/1 20:54:00
--  

老师，是否可以考虑将代码改一下，因为一个办公系统内不可能有两个完全相同的用户名，但是可能有设置相同密码的用户。

 

Dim fdr As DataRow = DataTables("表A").Find("config like \'%" & MD5Encrypt(oldpwd) & "%\'")

是否可以find   Name  ?
--  作者：有点蓝
--  发布时间：2017/9/1 21:00:00
--  
可以通过用户名查询的

Dim oldpwd As String = "123456"
Dim newpwd As String = "abc"
Dim name As String = "张三"
Dim fdr As DataRow = DataTables("表A").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("密码不正确")