adminpaperopen1.asp

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

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

%>


<%
dim i
dim j
id=request("idopen")
kcid=request("kcid")
 
id=split(id,",")
i=ubound(id)
 

   sql1="select * from tbpaper where kcid="&kcid
  set rs1=server.createobject("adodb.recordset")
  rs1.open sql1,conn,3,2
  
  do while not rs1.eof 
    	rs1("isopen")=0
  		rs1.update
  		rs1.MoveNext
  loop
  		


for j=0 to i
  sql="select * from tbpaper where paperno="& cint(id(j))
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
   
  	  	rs("isopen")=1
  		rs.update 
 
next
  

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