addclass.asp

ASP原码

<%
' 参数列表
' server_ip, server_port
' class_teacher, class_name, class_FilterDic, 
' class_multicast_ip, class_multicast_port, class_bandwidth
' 注意：其中class_teacher要这样表达：class_tid|class_tname, 例如class_teaher=28|王老师
'
%>

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

<%
	class_teacher=request("class_teacher")
	pos=InStr(1, class_teacher, "|", 1)
	class_tid=Mid(class_teacher,1,pos-1)
	class_tname=Mid(class_teacher,pos+1,len(class_teacher)-pos)

	if WRITE_ACLASS_DB=true then
		set cn=server.CreateObject("ADODB.connection")
		cn.Open DSN_ACLASS

		set rsClass=server.CreateObject("ADODB.recordset")
		rsClass.Open "select ID,NAME from CLASS where MULTICAST_PORT="&request("class_multicast_port")&" and MULTICAST_IP='"&request("class_multicast_ip")&"'",cn,adOpenStatic
		classcount=rsClass.RecordCount
		if classcount > 0 then usedclassname=rsClass("NAME")
		rsclass.close
		if classcount > 0 then
			Response.Write "<p align=center>对不起，多播地址 "&request("class_multicast_ip")&" 和端口 "&request("class_multicast_port")&" 已经被会议室“"&usedclassname&"”占用，请另选一个。</p>"
			Response.Write "<p align=center><a href='vbscript:history.back'>返回</a></p>"
			
			cn.close
			response.end
		end if

		rsClass.Open "select ID from CLASS where NAME='"&request("class_name")&"' and SCHOOLID=0",cn,adOpenStatic
		classcount=rsClass.RecordCount
		rsclass.close
		if classcount > 0 then
			Response.Write "<p align=center>对不起，会议室: '"&request("class_name")&"'已经存在，请重新输入！</p>"
			Response.Write "<p align=center><a href='vbscript:history.back'>返回</a></p>"
			
			cn.close
			response.end
		end if

		
		class_id=GetNewID(cn, "CLASS", "ID")
		sql="insert into CLASS(ID, NAME, TID, TNAME, FilterDic, MULTICAST_IP, MULTICAST_PORT, BANDWIDTH) values ("&class_id&", '"&request("class_name")&"', "&class_tid&", '"&class_tname&"', '"&request("class_FilterDic")&"', '"&_
				request("class_multicast_ip")&"', "&request("class_multicast_port")&", "&request("class_bandwidth")&")"
		cn.execute sql

		' Add teacher to classuser
		cn.execute "insert into CLASSUSER (CID,UID) values("&class_id&", "&class_tid&")"
		cn.close
		set cn=nothing
	end if

	set acman=server.CreateObject("ACManCOM.ACMan")
	acman.AddClass ADMIN_NAME, ADMIN_PASSWORD, request("server_ip"), clng(request("server_port")), 1, ""&class_id&"|"&request("class_name")&"|"&class_tid&"|"&class_tname&"|"&request("class_FilterDic")&"|"&request("class_multicast_ip")&"|"&request("class_multicast_port")&"|"&request("class_bandwidth")&"|;", 1
	set acman=nothing
%>