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 

%>