exit.asp

来自「ASP仿QQ程序 web版的」· ASP 代码 · 共 21 行

<!--#include file="right.asa" -->
<%
on error resume next
sql="select online from userinfo where user_id="&request.Cookies("nmb")
rs.Open sql,conn,1,3
rs("online")=false
rs.Update 
rs.Close
set rs=nothing
conn.close
set conn=nothing
session.Abandon()
if Err.number <> 0 then
	Err.Clear 
end if
%>
<SCRIPT LANGUAGE=javascript>
<!--
window.close();
//-->
</SCRIPT>