www.gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\logout.asp
<!--#include file="conn.asp"--> <!--#include file="inc/const.asp"--> <% If IsArray(Session(Mybbs.CacheName & "UserID")) Then If Not IsObject(Conn) Then ConnectionDatabase Dim activeuser,TempNum If Session(Mybbs.CacheName & "UserID")(0)="Mybbs" Then activeuser="delete from Dv_online where username='"&Session(Mybbs.CacheName & "UserID")(5)&"'" Conn.Execute activeuser,TempNum '更新缓存总用户在线数据 MyBoardOnline.Forum_UserOnline = MyBoardOnline.Forum_UserOnline - TempNum Mybbs.Name="Forum_UserOnline" Mybbs.value=MyBoardOnline.Forum_UserOnline Else If IsNumeric(Session(Mybbs.CacheName & "UserID")(0)) Then activeuser="delete from Dv_online where id="&Session(Mybbs.CacheName & "UserID")(0) Conn.Execute activeuser,TempNum '更新缓存总用户在线数据 MyBoardOnline.Forum_GuestOnline = MyBoardOnline.Forum_GuestOnline - TempNum Mybbs.Name="Forum_GuestOnline" Mybbs.value=MyBoardOnline.Forum_GuestOnline End If End If MyBoardOnline.Forum_Online = MyBoardOnline.Forum_Online - TempNum Mybbs.Name="Forum_Online" Mybbs.value=MyBoardOnline.Forum_Online Response.Cookies(Mybbs.Forum_sn).path=Mybbs.cookiepath Response.Cookies(Mybbs.Forum_sn)("username")="" Response.Cookies(Mybbs.Forum_sn)("password")="" Response.Cookies(Mybbs.Forum_sn)("userclass")="" Response.Cookies(Mybbs.Forum_sn)("userid")="" Response.Cookies(Mybbs.Forum_sn)("userhidden")="" Response.Cookies(Mybbs.Forum_sn)("usercookies")="" Session(Mybbs.CacheName & "UserID")=Empty Session("flag")=Empty Response.Redirect Mybbs.Forum_Info(11) End If %>