如何实现移动端多端登录 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

使用不同的首页入口。比如微信访问首页：http://www.abc.com/qiye.htm, 钉钉访问首页：http://www.abc.com/ding.htm

企业微信、钉钉使用授权功能：http://www.foxtable.com/mobilehelp/topics/0237.htm

差不多是这种逻辑。行不行测试过才知道

必须有个跳转，不能去掉

' wb.InsertHTML("<meta http-equiv='Refresh' c>") '直接跳转到首页

完整代码发上来

什么地方调试不通？通过企业微信进来后有什么具体问题？

……

ElseIf e.Path = "qywx.htm" Then

Dim Multi As String = Functions.Execute("企业微信验证函数",e,e.path)

If Multi > "" Then

Dim Values() As String

Values = Multi.split("|")

uid = Values(0)

uname = Values(1)

wb.AppendCookie("uname",Values(1))

MessageBox.Show(uname)

cmd.CommandText = "s elect top 1 * from 用户 where username = '" & uname & "'" 微信授权不需要密码

dt = cmd.ExecuteReader()

If dt.DataRows.Count = 1 Then

userid = Rand.NextString(16) '生成随机用户ID

username = EncryptText(uname,"123","321") '将用户名加密

sqltext = "D ELETE FROM 在线用户 where username = '" & username & "'"

cmd.CommandText = sqltext

Count= cmd.ExecuteNonQuery()

sqltext = "I NSERT INTO 在线用户(username,ActiveTime,userid) VALUES ( '" & username & "','" & ClearTime & "','" & userid & "') U PDATE 用户 SET UserID = '" & userid & "' ,ActiveTime = '" & ClearTime & "' WHERE UserName = '" & DecryptText(username,"123","321") & "' I NSERT INTO 登录日志(username,[ActiveTime],userid,usernamex,Path) VALUES ( '" & username & "','" & ClearTime & "','" & userid & "', '" & DecryptText(username,"123","321") & "','" & e.Path & "') "

cmd.CommandText = sqltext

Count= cmd.ExecuteNonQuery()

wb.AppendCookie("uname",Values(1))

wb.AppendCookie("username",username) '将用户名和userid写入cookie

wb.AppendCookie("userid",userid)

wb.InsertHTML("<meta http-equiv='Refresh' c>") '直接跳转到首页

e.WriteString(wb.Build) '生成网页

Return "" '必须的

else

msgbox(“如果数据库不存在这用户名，应该提示用户联系管理员添加账户http://www.foxtable.com/mobilehelp/topics/0058.htm”)

End If

' Else

' wb.InsertHTML("<h3 align='center' style='margin-top:5px'>错误</h3>")

' Return ""

下面这个函数是干嘛用的？

e.AsyncExecute = True '通知系统,将采用异步方式生成网页

Functions.AsyncExecute("qywx", e) '异步调用函数生成网页

Return ""

else ‘Multi = ""应该直接返回

return “”

End If

Else '其它页面从Cookie提取登录信息进行验证

username = e.Cookies("username") '从cookie中获取用户名

userid = e.Cookies("userid") '从cookie中获取随机ID

企业微信验证函数里不需要添加cookie，添加了也没有任何用处。已经在【ElseIf e.Path = "qywx.htm" Then】这里添加cookie了

【Functions.AsyncExecute("qywx", e)】代码发上来看看，正常不应该都是同一个主页吗？

感觉应该是不同登录方式添加的cookie没有统一

……

wb.AppendCookie("username",username) '将用户名和userid写入cookie

wb.AppendCookie("userid",userid)

wb.InsertHTML("<meta http-equiv='Refresh' c>") '直接跳转到首页

e.WriteString(wb.Build) '生成网页

Return "" '必须的

End If

ElseIf e.Path = "qywx.htm" Then

Dim Multi As String = Functions.Execute("企业微信验证函数",e,e.path)

If Multi > "" Then

……

cmd.CommandText = sqltext

Count= cmd.ExecuteNonQuery()

wb.AppendCookie("uname",Values(1))

wb.AppendCookie("username",username) '将用户名和userid写入cookie

wb.AppendCookie("userid",userid)

wb.InsertHTML("<meta http-equiv='Refresh' c>") '直接跳转到首页

e.WriteString(wb.Build) '生成网页

Return "" '必须的

End If

导致后面的验证出错

Else '其它页面从Cookie提取登录信息进行验证

username = e.Cookies("username") '从cookie中获取用户名

userid = e.Cookies("userid") '从cookie中获取随机ID

sqltext = "s elect Count(*) from 在线用户 where username = '" & username & "' and userid = '" & userid & "'"

'MessageBox.Show("其他页面查询用户信息的 sqltext " & sqltext )

cmd.CommandText = sqltext

Count = cmd.ExecuteScalar

If Count > 0

……

qywx 函数又做一次授权验证，由必要吗？

把首页放到下面，和正常网页一样即可

'开始生成网页

Select Case e.path

Case "logon.htm" '登录页面

wb.AddPageTitle("","pageheader","销售系统","由湛江辉迅基于Foxtable开发")

If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then '判断是否是验证失败后的重新登录

wb.AddTopTips("","toptip1","用户名或密码错误!").msec = 2000 '如果用户通过登录按钮访问,则给用户一个2秒的提示.

End If

wb.AddForm("","form1","logon.htm")

With wb.AddInputGroup("form1","ipg1")

.AddInput("username","户名","text")

.AddInput("password","密码","password")

End With

With wb.AddButtonGroup("form1","btg1",True)

.Add("btn1", "登录", "submit")

End With

Case "exit.htm" '退出登录

wb.DeleteCookie("username") '清除cookie中原来的用户名和UserID

wb.DeleteCookie("UserID")

wb.InsertHTML("<meta http-equiv='Refresh' c>") '然后直接跳转到登录页面

Case "", "default.htm" '首页

wb.AddPageTitle("","pageheader","销售系统","由湛江辉迅基于Foxtable开发")

With wb.AddGrid("","g1")

.Add("c1","增加订单", "./images/button.png").Attribute = ""

.Add("c2","客户管理", "./images/cell.png", "http://www.foxtable.com")

.Add("c3","销售统计", "./images/toast.png", "http://www.foxtable.com")

.Add("c4","Dialog", "./images/dialog.png", "http://www.foxtable.com")

.Add("c5","Progress", "./images/progress.png", "http://www.foxtable.com")

.Add("c6","Msg", "./images/msg.png", "http://www.foxtable.com")

.Add("c7","Article", "./images/article.png", "http://www.foxtable.com")

.Add("c8","ActionSheet", "./images/actionSheet.png", "http://www.foxtable.com")

.Add("c9","Icons", "./images/icons.png", "http://www.foxtable.com")

.Add("c10","Panel", "./images/panel.png", "http://www.foxtable.com")

.Add("c11","Tab", "./images/tab.png", "http://www.foxtable.com")

.Add("c12","退出", "./images/exit.png", "exit.htm") '退出登录

End With

End Select

e.WriteString(wb.Build) '生成网页

主题：如何实现移动端多端登录