getclass.asp

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

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

<%
'2.// GetClass;
'GetClass.Asp?UID=
'若UID=0，返回所有会议室，否则返回该用户所能进入的会议室
'返回格式：
'ActiveClass|GetClass|Number|
'	CID|CName|CTID|CTName|MULTICAST_IP|MULTICAST_PORT|BANDWIDTH|FilterDic|ClassRemark|
%>

<%
	set cn=server.CreateObject("ADODB.connection")
	cn.Open DSN_ACLASS
	
	set rs=server.CreateObject("ADODB.recordset")
	if clng(request("UID"))=0 then
		rs.Open "select * from CLASS", cn
	else
		rs.Open "select * from CLASS where ID in (select CID from CLASSUSER where UID="&request("UID")&")",cn
	end if

	count=0
	result=""
	while not rs.eof 
		result=result + ""&rs("ID")&"|"&rs("NAME")&"|"&rs("TID")&"|"&rs("TNAME")&"|"&rs("MULTICAST_IP")&"|"&rs("MULTICAST_PORT")&"|"&rs("BANDWIDTH")&"|"&rs("FilterDic")&"|"&rs("ClassRemark")&";"
		count=count+1
		rs.movenext
	wend
	result="ActiveClass|GetClass|" + cstr(count) + "|" + result
	response.write result
	
	rs.close
	set rs=nothing
	cn.close
	set cn=nothing
%>