- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 数据库用户名和密码读取 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133753)
-- 发布时间：2019/4/19 16:08:00
-- 数据库用户名和密码读取
老师您好，下面手机系统登录时的代码如何修改为数据库读取用户名和密码？谢谢！ If UserName = "张三" AndAlso Password = ("888") Then \'实际使用的时候,请改为从数据库读取用户名和密码进行比较 Verified = True ElseIf Username = "李四" AndAlso Password="999" Then Verified = True End If
-- 发布时间：2019/4/19 16:29:00
--
If UserName = "张三" AndAlso Password = "888" Then \'实际使用的时候,请改为从数据库读取用户名和密码进行比较
Verified = True
ElseIf Username = "李四" AndAlso Password="999" Then
Verified = True
End If
改成，比如
Dim dr As DataRow
dr = DataTables("users表").Find("Name = \'" & UserName & "\'")
If dr IsNot Nothing AndAlso dr("config").contains(MD5Encrypt(password)) Then
Verified = True
End If
-- 发布时间：2019/4/19 18:16:00
--
老师您好，附件是用户表结构，没有“config”不知需要改成什么？因为目前users表中没有config，我改成“PassWord”后显示用户名或密码错误。谢谢！
-- 发布时间：2019/4/19 18:29:00
--
此主题相关图片如下：屏幕快照 2019-04-19 下午6.10.51.png
-- 发布时间：2019/4/19 19:11:00
--
我把dr("config").contains(MD5Encrypt(password))简单改成dr("PassWord") = Password这样可以登录，不知会不会有什么问题？谢谢！
-- 发布时间：2019/4/19 19:26:00
--
改成
Dim dr As DataRow
dr = DataTables("users表").Find("Name = \'" & UserName & "\'")
If dr IsNot Nothing AndAlso dr("password") = password Then
Verified = True
End If
-- 发布时间：2019/4/19 20:28:00
--
谢谢！完整拷贝“设计首页和登录页面”帮助中的代码到一个自定义函数中，根据老师的要求修改后可以登录了。但是Case "", "default.htm" 部分不能显示，内容为空白。但是把这部分代码直接写在httprequest中则可以显示，不知啥原因？谢谢！
-- 发布时间：2019/4/19 20:56:00
--
贴出完整代码
-- 发布时间：2019/4/20 9:06:00
--
谢谢！
此主题相关图片如下：屏幕快照 2019-04-20 上午9.02.34.png
此主题相关图片如下：屏幕快照 2019-04-20 上午9.03.07.png
此主题相关图片如下：屏幕快照 2019-04-20 上午9.03.28.png
-- 发布时间：2019/4/20 9:26:00
--
把代码和httprequest事件代码一起放到记事本发上来