adminsubjectsave.asp

该系统测试用户信息主要由数据库直接输入

<!--#include file="conn.asp"-->
<%
  if session("adminname")="" then
  response.redirect "relogin.asp"
  end if

%>
<%
exam_subject=trim(request("exam_subject"))


sql11="select * from tbkc where kcm='"&exam_subject&"'"
set rs11=server.createobject("adodb.recordset")
rs11.open sql11,conn,3,2
 

if  rs11.eof then

sql="select * from tbkc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
rs.addnew
rs("kcm")=exam_subject

rs.update

sql1="select * from tbkc where kcm='"&exam_subject&"'"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
kcid=rs1("kcid")

sql2="select * from tbchapter  where kcid="&kcid&" and chapter=1"
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,3,2

if rs2.eof then 
	rs2.addnew
    rs2("kcid")=kcid
    rs2("chapter")=1
    rs2("sdate")=date()
    rs2("edate")=date()
    rs2.update
end if 
 
 
 
end if

response.redirect "adminsubject.asp"
%>