adminchapteradd.asp

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

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

%>
<%
kcid=request("kcid")
 chapterno=trim(request("chapterno"))
 if chapterno="" then 
 chapterno=1
 end if 
 
sql1="select * from tbchapter where kcid="&kcid&" and chapter="&chapterno
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2

if rs1.eof then
sql="select * from tbchapter  "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2

 rs.addnew
rs("kcid")=kcid
rs("chapter")=chapterno
  rs("sdate")=date()
  rs("edate")=date()
rs.update
response.redirect "adminsubjectchapter.asp?kcid="&kcid
 else
 response.redirect "adminsubjectchapter.asp?kcid="&kcid&"&err=有相同的章节"
 end if
 
 

%>