<object runat=server id=conn1 progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<%

	set rs=server.createobject("adodb.recordset")
	sql="delete * from online where session_id="&  session.sessionID
	sql=sql&" or user_name='"&Session("Current_user")&"'"
	rs.open sql,conn1,3,2  
	'if Application("online_num")>0 then
	'Application("online_num")=Application("online_num")-1
	'end if
	session("Current_user")="__anonymous"
	Session("weight")=0
	session("flag")=0
	Response.Redirect "../default.asp"
	%>