addclass.asp

来自「网络教学管理系统」· ASP 代码 · 共 34 行

<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
body {
	background-color: #B1DB99;
}
-->
</style><!--#include file = "inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<%
	Dim strName ,strSchoolID ,strZhuanyeID ,strMainTeacher
	strName = trim(Request.Form("name"))
	strSchoolID = trim(Request.Form("SchoolID"))
	strZhuanyeID = trim(Request.Form("ZhuanyeID"))
	strMainTeacher = trim(Request.Form("MainTeacher"))
	
	Dim rs ,strSql 
	Set rs = Server.CreateObject("ADODB.Recordset")
	strSql = "SELECT * FROM Class WHERE name = '"& strName &"' AND ZhuanyeID = '"& strZhuanyeID &"'"
	rs.open strSql,conn,1,1
	If Not rs.EOF  Then
		Response.Write("<Br><Br>对不起，您不能添加该班级，因该班级已经存在！")
		Response.End
	End If
	rs.Close
	strSql = "INSERT INTO Class (name,SchoolID,ZhuanyeID,MainTeacher) Values('"& strName &"','"& strSchoolID &"','"& strZhuanyeID &"','"& strMainTeacher &"')"
	
	rs.open strSql,conn,3,1
	Response.Write("<BR><BR><BR><Div align=center>添加成功！<Br><BR><a href=Add_Class.asp>返回继续添加</a></div>")

%>