logoutclass.asp

来自「ASP原码」· ASP 代码 · 共 25 行

<!--#include file="Const.asp"-->

<%
'4.// LogoutClass ,用于修改库中的在线用户数及考勤
'LoginClass?UID=xxx&CID=xxx
%>

<%
	set cn=server.CreateObject("ADODB.connection")
	cn.Open DSN_ACLASS
	' return
	set rs=server.CreateObject("ADODB.recordset")
	' update onlinuser
	rs.Open "select ONLINE_USER from CLASS where ID="&request("CID")&"",cn
	onlineuser=rs("ONLINE_USER")-1
	if onlineuser<0 then onlineuser=0
	rs.close
	cn.execute "update CLASS set ONLINE_USER="&onlineuser&" where ID="&request("CID")&""
	' TODO: write COURSE_LOG
	
	set rs=nothing
	cn.close
	set cn=nothing
%>