edit2.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")&"' 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

	
	'update the new record to class
	class_canfreercv=XFalse
	if request("class_canfreercv")<>"" then class_canfreercv=XTrue
	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")&", CANFREERCV="&class_canfreercv&" where ID="&request("class_id")&""
	'response.write sql
	'response.end
	cn.Execute sql

	if request("class_oldtid")<>class_tid then
		cn.execute "delete from CLASSUSER where CID="&request("class_id")&" and UID="&request("class_oldtid")&""
		cn.execute "insert into CLASSUSER (CID,UID) values("&request("class_id")&", "&class_tid&")"
	end if

	set acman=server.CreateObject("ACManCOM.ACMan")
	rr=acman.AddClass( session("username"), session("Userpassword"), IA_Server_IP(cn), IA_Server_PORT(cn), 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

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