adminsubjectok.asp

来自「网络教学平台由教师教学系统、学生学习系统和教学管理系统三大模块组成」· ASP 代码 · 共 37 行

<!--#include file="Check.asp"-->
<!--#include file="Conn.asp"-->
<%
Dim TeachingSujectID 
TeachingSujectID = Session("TestTeachingSujectID")
Session("TestTeachingSujectID") = TeachingSujectID
If Session("TestTeachingSujectID") = "" Then
	Response.Write("参数错误！")
	Response.End
End If
%>
<%
TestSubject=trim(request("TestSubject"))
about_result=trim(request("about_result"))

set rs=server.createobject("adodb.recordset")
Sql="select * from TestSubject where TestSubject='"&TestSubject&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
if not rs.eof then
  Response.Write "<script language=Javascript>alert('错误：数据库里已经存在相同标题的自测类！');history.go(-1);</script>"
  Response.End
End If
rs.close
set rs=nothing


sql="select * from TestSubject"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
rs.addnew
rs("TestSubject")=TestSubject
rs("about_result")=about_result
rs("TeachingSujectID") = Session("TestTeachingSujectID")
rs.update
response.redirect "adminsubject.asp"
%>