自定义函数logon
……
wb.AppendCookie("username",UserName) '将用户名和密码写入cookie
wb.AppendCookie("userid",UserID)
wb.InsertHTML("<meta http-equiv='Refresh' c>") '直接跳转到首页
e.WriteString(wb.Build) '生成网页
Return True '必须的
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 '如果验证失败
wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面
e.WriteString(wb.Build) '生成网页
Return True '必须的
End If
End I
HttpRequest事件
if Functions.Execute("logon"
,e) then return
Dim wb As New WeUI
Select Case e.Path
Case "logon.htm"
……
Case "filter.htm"
Functions.Execute("Filter",e)
Return 凡是使用函数的都必须添加返回，因为函数里已经有e.WriteString，e.WriteString不能重复调用，否则前面的会被覆盖掉
Case "zblist.htm"
Functions.Execute("List",e)
Return
加好友 
发短信
Post By：2020/12/31 11:44:00 [只看该作者]
