add2.asp

ASP原码

<!--#include file="../../System/Const.asp"-->
<!--#include file="../../System/misc.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)
	
	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")
	class_canfreercv=XFalse
	if request("class_canfreercv")<>"" then class_canfreercv=XTrue
	sql="insert into CLASS(ID, NAME, TID, TNAME, FilterDic, MULTICAST_IP, MULTICAST_PORT, BANDWIDTH, CANFREERCV, CREATEBYADMIN, SCHOOLID) values ("&class_id&", '"&request("class_name")&"', "&class_tid&", '"&class_tname&"', '"&request("class_FilterDic")&"', '"&_
			request("class_multicast_ip")&"', "&request("class_multicast_port")&", "&request("class_bandwidth")&", "&class_canfreercv&", True, "&request("class_schoolid")&")"
	cn.execute sql

	' Add teacher to classuser
	cn.execute "insert into CLASSUSER (CID,UID) values("&class_id&", "&class_tid&")"
	
	set acman=server.CreateObject("ACManCOM.ACMan")
	acman.AddClass session("username"), session("Userpassword"), IA_Server_IP(cn), IA_Server_PORT(cn), 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

	cn.close
	response.redirect "list.asp"
%>