modteachingsuject.asp

来自「教学平台」· ASP 代码 · 共 24 行

<!--#include file = "inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<%
	Dim strSujectID ,strTeacherID ,strClassID , strTeachingYear , strSemester ,strID ,strUrl
	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"))
	strID = Request.QueryString("ID")
	strUrl = "Mod_TeachingSuject.asp?ID="& strID
	If strID &"" = "" Then
		Response.Write("参数错误！")
		Response.End
	End If 
	
	Dim rs ,strSql 
	strSql = "UPDATE TeachingSuject Set SujectID = '"& strSujectID &"', TeacherID = '"& strTeacherID &"' ,ClassID = '"& strClassID &"' ,TeachingYear = '"& strTeachingYear &"'  ,Semester = '"& strSemester &"' WHERE ID = "& strID
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.open strSql,conn,3,1
	Response.Redirect(strUrl)

%>