以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何跳转到点击的网址  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=145783)

--  作者:lxhmax
--  发布时间:2020/2/7 10:15:00
--  如何跳转到点击的网址
老师,关于下面这个验证成功之后如何跳转到我点击的网址,而不是固定的首页?
比如别人发给我一个网址,然后我的登陆过期了,需要重新登陆,我点击网址之后进行登陆,登陆完直接跳转到链接上的地址,而不是固定的首页?

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
\'
如果验证失败
        wb.InsertHTML("<meta http-equiv=\'Refresh\' c>")
\'
那么直接跳转到登录页面
        e.WriteString(wb.Build)
\'
生成网页
        Return
\'
必须的
    End
If

End
If
--  作者:有点蓝
--  发布时间:2020/2/7 11:05:00
--  
参考:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=102550&skin=0