以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何将桌面版的登录搬到移动端  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116645)
--  作者：cqlwsam
--  发布时间：2018/3/28 16:42:00
--  [求助]如何将桌面版的登录搬到移动端
我原来的用户管理使用的内置的用户管理，已经迁移到服务器上（数据库 li，用户数据为user）。

如何实现就桌面版的登录变成移动端

Dim wb As New weui \'身份验证
Dim Verified As Boolean \'用于标记用户是否通过了身份验证
Dim UserName As String = e.Cookies("username") \'从cookie中获取用户名
Dim Password As String = e.Cookies("password") \'从cookie中获取用户密码
If e.Path = "logon.htm" \'如果是通过登录页面访问,从PostValues即可中提取用户名和密码
    If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password")  Then
        UserName = e.PostValues("username")
        Password = e.PostValues("password")
    End If
End If
--  作者：cqlwsam
--  发布时间：2018/3/28 16:46:00
--  
内置用户里面只有config（PassWord 2Iv6qMaeRpxeE9BzAJ+IZQ== Type 2 Group 科室秘书 Role 口腔），如何弄呀
--  作者：有点甜
--  发布时间：2018/3/28 17:41:00
--  

验证，参考

 

Dim dr As DataRow
dr = DataTables("表A").Find("第一列 = \'" & UserName & "\'") 
If dr IsNot Nothing AndAlso dr("config").contains(MD5Encrypt(password)) Then
    Verified  = True
End If