adminchapteropen.asp

来自「该系统测试用户信息主要由数据库直接输入」· ASP 代码 · 共 40 行

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

%>
<%
kcid=request("kcid")
id1=request("id1")
 
id1=split(id1,",")
i=ubound(id1)
 
 
   sql1="select * from tbchapter where kcid="&kcid
  set rs1=server.createobject("adodb.recordset")
  rs1.open sql1,conn,3,2
  
  do while not rs1.eof 
    	rs1("testopen")=0
  		rs1.update
  		rs1.MoveNext
  loop
 
for j=0 to i
  sql="select  * from tbchapter where kcid="&kcid&" and  chapter="& cint(id1(j))
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  
  rs("testopen")=1
  rs.update
 
 
  
 
next

response.redirect "adminsubjectchapter.asp?kcid="&kcid
%>