- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 网页不能登录 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=96870)
-- 发布时间：2017/3/1 13:58:00
-- 网页不能登录
登录页面，输入用户名和密码，点登录，页面不跳转。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目7.foxdb |
[此贴子已经被作者于2017/3/1 14:14:34编辑过]
-- 发布时间：2017/3/1 14:35:00
--
有解吗？
-- 发布时间：2017/3/1 14:42:00
--
我测试没有问题
-- 发布时间：2017/3/1 14:43:00
--
拷贝的是帮助的代码，注意登录用户和密码是写死的
If UserName = "张三" AndAlso Password = "888" Then \'实际使用的时候,请改为从数据库读取用户名和密码进行比较
Verified = True
ElseIf Username = "李四" AndAlso Password="999" Then
Verified = True
End If
-- 发布时间：2017/3/1 15:18:00
--
以下是引用lihe60在2017/3/1 14:35:00的发言：
有解吗？
有解吗？
你有看代码吗？账号和密码你填什么？
你可以加入msgbox调试。
-- 发布时间：2017/3/1 15:56:00
--
前面的例子测试都没问题，帮助写得很详细，赞一个
到微信开发碰到点小问题
-- 发布时间：2017/3/2 13:03:00
--
新上传了附件，如何优化代码，可以登录到首页。
网络监视器中的代码不能改动
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:通用模板bs.foxdb |
-- 发布时间：2017/3/2 14:20:00
--
假如有一个用户管理表，4楼的代码改为:
Dim dr As DataRow = DataTables("用户管理").Find("名称=\'" & UserName & "\' And 密码=\'" & Password & "\'")
If dr IsNot Nothing Then Verified = True
-- 发布时间：2017/3/2 14:29:00
--
以下是引用有点蓝在2017/3/2 14:20:00的发言：
假如有一个用户管理表，4楼的代码改为:
Dim dr As DataRow = DataTables("用户管理").Find("名称=\'" & UserName & "\' And 密码=\'" & Password & "\'")
If dr IsNot Nothing Then Verified = True
是登录界面不能跳转到首页
-- 发布时间：2017/3/2 14:49:00
--
网络监视器的代码还必须改，不改不行，去掉select case，保留函数调用即可
Functions.Execute("login",e)