loginclass.asp

网络会议系统,WEB的。喜欢的下吧

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

<%
'3.// LoginClass，登录会议室，用于修改库中的在线用户数及考勤
'LoginClass?UID=xxx&CID=xxx
'返回格式：
'ActiveClass|LoginClass|1/0|Score|
'	其中：
'		1/0: 1：表示登录成功，0：表示失败
'		Score: 课堂得分
%>

<%
	set cn=server.CreateObject("ADODB.connection")
	cn.Open DSN_ACLASS
	' return
	set rs=server.CreateObject("ADODB.recordset")
	rs.Open "select * from CLASSUSER where UID="&request("UID")&" and CID="&request("CID")&"",cn
	if not rs.eof then
		Response.write "ActiveClass|LoginClass|1|"&rs("Fraction")&""

		' update onlinuser
		rs.close
		rs.Open "select ONLINE_USER from CLASS where ID="&request("CID")&"",cn
		onlineuser=rs("ONLINE_USER")+1
		rs.close
		cn.execute "update CLASS set ONLINE_USER="&onlineuser&" where ID="&request("CID")&""
		' TODO: write COURSE_LOG
	else
		Response.write "ActiveClass|LoginClass|0"
		rs.close
	end if


	
	set rs=nothing
	cn.close
	set cn=nothing
%>