add2.asp

ASP原码

<!--#include file="../../System/Const.asp"-->
<!--#include file="../../System/misc.asp"-->
<%
	set cn=server.CreateObject("ADODB.connection")
	cn.Open DSN_ACLASS
	
	sql="insert into COURSE(CID, NAME, START_TIME, END_TIME, REMARK) values ("&request("class_id")&", '"&request("course_name")&"', '"&_
			request("course_start_date")&" "&request("course_start_time")&"', '"&request("course_end_date")&" "&request("course_end_time")&"', '"&request("course_remark")&"')"
	'response.write sql
	'response.end
	cn.execute sql
	
	' Send mail!
	class_name = NameFromID(cn, "CLASS", "ID", "NAME", clng(request("class_id")))
	xmailtoaddress=""
	set rs=server.CreateObject("ADODB.recordset")
	rs.Open "select MAILADD from "&TBL_USER&" where ID in (select UID from CLASSUSER where CID="&request("class_id")&")", cn
	while not rs.eof 
		xmailtoaddress=xmailtoaddress+rs("MAILADD") + ";"
		rs.MoveNext
	wend
	rs.close
	set rs=nothing
	
	IA_SendMail cn, false, xmailtoaddress, "开会时间通知！", "大家好！" + vbCrLf + vbCrLf + "我们将在" + request("course_start_date") + " " + request("course_start_time") + " 在会议室：“" + class_name + "” 开会！请务必进入！" + vbCrLf + vbCrLf + "系统管理员"

	cn.close
	response.redirect "list.asp?class_id="&request("class_id")&"&class_name="&request("class_name")&""
%>