以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]自定义用户管理  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146856)

--  作者:lgj716330
--  发布时间:2020/3/4 11:32:00
--  [求助]自定义用户管理
设置了自定义用户管理后,登录时还是会先跳出系统自带的登录窗口,想设置默认用户,但菜单中的用户管理一点就死,怎么解决
--  作者:有点蓝
--  发布时间:2020/3/4 11:59:00
--  
菜单中的用户管理是不是设置了外部数据源管理用户?然后用户表被删除了。这个问题好像新版本已经解决了,更新到最新版本的foxtable试试
--  作者:lgj716330
--  发布时间:2020/3/4 12:04:00
--  
好象是这么一回事
免费更新到期了,要更新是不是得重新买一个

--  作者:有点蓝
--  发布时间:2020/3/4 12:08:00
--  
重新在数据库里添加之前使用的同样结构同样名称的用户表试试
--  作者:lgj716330
--  发布时间:2020/3/4 18:09:00
--  
密码加密问题

更改用户_AfterLoad中代码:
If dt.DataRows.Count = 1 Then
    e.Form.Controls("PassWord").Value = MD5Encrypt(dt.DataRows(0)("PassWord"))
Else

更改用户_Button1_Click:
Dim PassWord As String = MD5Encrypt(e.Form.Controls("PassWord").Value)
cmd.CommandText = cmd.CommandText & "\', [Password] = \'" & MD5Encrypt(Password) & "\' Where [Name]= \'" & OldUserName & "\'"

用户登录_Button确定_Click:
If e.Form.Controls("PassWord").Value = MD5Encrypt(dr1("Password")) Then

增加用户_Button1_Click:
Dim PassWord As String = MD5Encrypt(e.Form.Controls("PassWord").Value)
cmd.CommandText = cmd.CommandText & UserName & "\',\'" & UserGroup & "\',\'" & MD5Encrypt(Password) & "\')"


登录的时候提示密码错误,要如何调整?

--  作者:程兴刚
--  发布时间:2020/3/4 18:34:00
--  
If e.Form.Controls("PassWord").Value = MD5Encrypt(dr1("Password")) Then

个人觉得:这个是否应该考虑一下, MD5Encrypt加密的数据永远应该存放在数据库中,窗口的是明码,加密后和后台比较,让窗口控件的值永远和后台不一样,虽然空间可以设置掩码,眼睛是看不见,但不知道又没有通过外挂程序读取控件值的方法,如果,密码是不是很容易就破解了,我个人比较看好FoxTable的EncryptText加密,通过动态密码,结果也动态改变,这样的对比更安全,MD5Encrypt虽然加密后不可解,任何人用MD5Encrypt对同样的明码加密后结果是一致的,如果有人能搞出监听控件值的外挂,加密和不加密基本就是一样的!

也许我这是杞人忧天,留着大家探讨!

--  作者:lgj716330
--  发布时间:2020/3/4 19:16:00
--  
改成了EncryptText,解决了

[此贴子已经被作者于2020/3/4 19:24:37编辑过]