addteachingsuject.asp

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

<style type="text/css">
<!--
body {
	background-color: #B1DB99;
}
body,td,th {
	font-size: 12px;
}
-->
</style><!--#include file = "inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<%
	If Session("UserType") <> "管理员" Then
		Response.Write("对不起，您没有权限进行此操作！")
		response.End
	End If

	Dim strSujectID ,strTeacherID ,strClassID ,strTeachingYear ,strSemester 
	strSujectID = trim(Request.Form("SujectID"))
	strTeacherID = trim(Request.Form("TeacherID"))
	strClassID = trim(Request.Form("ClassID"))
	strTeachingYear = trim(Request.Form("TeachingYear"))
	strSemester = trim(Request.Form("Semester"))
	
	
	Dim rs ,strSql 
	strSql = "INSERT INTO TeachingSuject (SujectID ,TeacherID,classID,TeachingYear,Semester) Values('"& strSujectID &"','"& strTeacherID &"','"& strClassID &"','"& strTeachingYear &"','"& strSemester &"')"
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.open strSql,conn,3,1
	Response.Write("<BR><BR><BR><Div align=center>添加成功！<Br><BR><a href=Add_TeachingSuject.asp>返回继续添加</a></div>")
	
	
%>