logout.asp

来自「一个VB的p2p聊天系统」· ASP 代码 · 共 26 行

<!--#include file="headfiles/Connection.inc"-->
<%
dim log_id
log_id=cint(request("id"))
dim rsLog
set rsLog=server.CreateObject("adodb.recordset")
strSql="select * from LogTable where Log_ID="&log_id
rsLog.open strSql,conn,3,2
rsLog("Log_OutTime")=time
rsLog.update
rsLog.close
response.Write(chr(13)&"<script language='javascript'>")
response.Write(chr(13)&"window.close();")
response.Write(chr(13)&"</script>")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用户注销</title>
</head>

<body>

</body>
</html>