1、 http://www.foxtable.com/mobilehelp/scr/0025.htm

2、加上网页的名跳转到登陆页，如 login.htm?key=list.htm

    或者是，设置好cookie以后，再跳转到登陆页。

    登陆成功后，获取list.htm 跳转

    跳转这样写代码 e.response.Redirect("新地址")

 跳转之前加入代码

wb.AppendCookie("path", e.path) \'将用

wb.InsertHTML("<meta http-equiv=\'Refresh\' content=\'0; url=/logon.htm\'>") \'那么直接跳转到登录页面

 登陆成功后，跳转到这个页面 e.cookies("path")

If Verified Then
            UserID = Rand.NextString(16) \'生成随机用户ID
            UserName = EncryptText(UserName,"123","123") \'将用户名加密.
            Dim dr As DataRow = UserTable.Find("UserName = \'" & UserName & "\'")
            If  dr IsNot Nothing Then \'如果是重复登录,删除以前的登录信息
                dr.Delete()
            End If
            dr = UserTable.AddNew()
            dr("UserName") = UserName
            dr("UserID") = UserId
            dr("ActiveTime") = Date.Now \'记录登录时间
            wb.AppendCookie("username",UserName) \'将用户名和密码写入cookie
            wb.AppendCookie("userid",UserID)
            msgbox(e.cookies("path"))

            wb.InsertHTML("<meta http-equiv=\'Refresh\' content=\'0; url=/" & e.cookies("path") & "\'>") 
            e.WriteString(wb.Build) \'生成网页
            Return \'必须的
        End If
    End If
Else \'其它页面从Cookie提取登录信息进行验证
    UserName = e.Cookies("username")  \'从cookie中获取用户名
    UserID = e.Cookies("userid")  \'从cookie中获取 随机ID
    Dim dr As DataRow = UserTable.Find("UserName = \'" & UserName & "\'")
    If dr IsNot Nothing AndAlso dr("UserID") = UserID Then  \'如果通过验证,更新活动时候,继续访问其它页面.
        dr("ActiveTime") = Date.Now \'更新活动时间
    Else \'如果验证失败