密码加密问题
更改用户_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) & "')"
登录的时候提示密码错误，要如何调整？
加好友 
发短信
Post By：2020/3/4 11:32:00 [只看该作者]
