HttpRequest事件代码:
Select Case e.path
Case "不需要登录1.htm","不需要登录2.htm"
Select Case e.path
Case "不需要登录1.htm"
页面处理
Case "不需要登录2.htm"
页面处理
End Select
Case Else
原来需要登录验证的,全部继续放到这里
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即可中提取用户名和密码
……
End Select
2、根据不同登录账户,打开不同的主页即可