这个什么进不去，一登录就又跑回在电脑端登录页面.htm， - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这里代码不完整。重新到项目里复制代码放到记事本发上来

控件id不对应

If e.Path = "电脑端登录页面.htm" Then'如果是通过登录页面访问,从PostValues即可中提取用户名和密码

If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then

UserName电脑端 = e.PostValues("username")

Password电脑端 = e.PostValues("password")

End If

……

wb电脑端.AddForm("", "form1", "logon.htm")

With wb电脑端.AddInputGroup("form1", "ipg1")

.AddInput("username电脑端", "用户名", "text")

.AddInput("password电脑端", "密码", "password")

End With

msgbox（UserName电脑端）

msgbox( Password电脑端 )

If UserName电脑端 = "张三" AndAlso Password电脑端 = "888" Then '实际使用的时候,请改为从数据库读取用户名和密码进行比较

Verified电脑端 = True

ElseIf Username电脑端 = "李四" AndAlso Password电脑端 = "999" Then

Verified电脑端 = True

End If

msgbox( Verified电脑端 )

msgbox( e.Path )

If Verified电脑端 AndAlso e.Path = "电脑端登录页面.htm" Then '如果用户访问的是登录页,且身份验证成功

wb电脑端.AppendCookie("username", UserName电脑端) '将用户名和密码写入cookie

wb电脑端.AppendCookie("password", Password电脑端)

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

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

msgbox( “Return 123” )

Return '必须的

ElseIf Verified电脑端 = False AndAlso e.Path <> "电脑端登录页面.htm" Then '如果用户身份验证失败,且访问的不是登录页面

wb电脑端.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面

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

msgbox( “Return 电脑端登录页面” )

Return '必须的

End If

msgbox( e.path )

Select Case e.path

Case "电脑端登录页面.htm" '登录页面

帮助的用法肯定没有问题

If Verified AndAlso ( e.Path = "logon.htm" orelse e.Path = "5555.htm" ) Then '如果用户访问的是登录页,且身份验证成功

    e.Appendcookie("username",UserName) '将用户名和密码写入cookie
    e.Appendcookie("password",Password)
    e.WriteString("<meta http-equiv='Refresh' c>") '直接跳转到首页
    Return '必须的
ElseIf Verified = False AndAlso e.Path <> "logon.htm AndAlso e.Path <> "5555.htm" Then '如果用户身份验证失败,且访问的不是登录页面

e.WriteString("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面
Return '必须的
End If

if 是首页

跳转a

elseif 是登录页面

跳转b

endif

主题：这个什么进不去，一登录就又跑回在电脑端登录页面.htm，