modifyclass.asp

ASP原码

<%
' 参数列表
' server_ip, server_port
' class_teacher, class_id, class_name, class_FilterDic, 
' class_multicast_ip, class_multicast_port, class_bandwidth, user_mailadd
' 注意：其中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")&"' and ID<>"&request("class_id")&"",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 and ID<>"&request("class_id")&"",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

		rsClass.Open "select TID from CLASS where ID="&request("class_id")&"",cn
		class_oldtid=rsClass("TID")
		rsclass.close
				
		'update the new record to class
		sql="update CLASS set NAME='"&request("class_name")&"',TID="&class_tid&",TNAME='"&class_tname&"',FilterDic='"&request("class_FilterDic")&"', MULTICAST_IP='"&_
				request("class_multicast_ip")&"', MULTICAST_PORT="&request("class_multicast_port")&", BANDWIDTH="&request("class_bandwidth")&" where ID="&request("class_id")&""
		'response.write sql
		'response.end
		cn.Execute sql

		if class_oldtid<>class_tid then
			cn.execute "delete from CLASSUSER where CID="&request("class_id")&" and UID="&class_oldtid&""
			cn.execute "insert into CLASSUSER (CID,UID) values("&request("class_id")&", "&class_tid&")"
		end if
		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, ""&request("class_id")&"|"&request("class_name")&"|"&class_tid&"|"&class_tname&"|"&request("class_FilterDic")&"|"&request("class_multicast_ip")&"|"&request("class_multicast_port")&"|"&request("class_bandwidth")&"|;", 0
	set acman=nothing
%>