adminpaperdatabaseadd.asp

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

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

%>
<%
subjectview=request("subjectview")
typeadd=request("typeadd")
schap=cint(request("schap"))
echap=cint(request("echap"))
paperno=cint(request("paperno"))
flag=cint(request("flag"))
page=request("page")


if flag=1 then
id=request("selAnnounce")
 
id=split(id,",")
i=ubound(id)
 
for j=0 to i
 
 
 sqldel1="select   *  from tbtk  where  tmid="& cint(id(j))
set rsdel1=server.createobject("adodb.recordset")
rsdel1.open sqldel1,conn,3,2

do while  not rsdel1.eof 
    
 sqladd="select * from tbselectpaper where tmid="& cint(id(j))&" and paperno="&paperno
set rsadd=server.createobject("adodb.recordset")
rsadd.open sqladd,conn,3,2

if rsadd.eof then
 rsadd.addnew
rsadd("tmid")=rsdel1("tmid")
rsadd("ans")=rsdel1("ans")
rsadd("isread")=rsdel1("isread")
rsadd("category")=rsdel1("category")
rsadd("chapter")=rsdel1("chapter")
rsadd("kcid")=rsdel1("kcid")
rsadd("paperno")=paperno 
rsadd.update
end if

rsdel1("kao")=1
rsdel1.update

rsdel1.movenext

loop 
 
next 


for no=1 to 8

 sqltj="select * from tbselectpaper where  paperno="&paperno&" and category="&no
set rstj=server.createobject("adodb.recordset")
rstj.open sqltj,conn,3,2

 sqltj1="select * from tbkcconfig where  paperno="&paperno&" and category="&no
set rstj1=server.createobject("adodb.recordset")
rstj1.open sqltj1,conn,3,2

if not rstj1.eof then
rstj1("datano")=rstj.recordcount
rstj1.update
end if

next

response.redirect "adminpaperdatabase.asp?paperno="&paperno&"&subjectview="&subjectview&"&typeadd="&typeadd&"&success=（添加试题成功，请添加题目）&kcid="&kcid&"&fangshi="&fangshi&"&schap="&schap&"&echap="&echap&"&page="&page

else
id=request("selAnnounce1")
 
id=split(id,",")
i=ubound(id)
 
for j=0 to i
 
 
sqldel1="select   *  from tbselectpaper  where  tmid="& cint(id(j))&" and paperno="&paperno
set rsdel1=server.createobject("adodb.recordset")
rsdel1.open sqldel1,conn,3,2

if  not rsdel1.eof then
rsdel1.delete
rsdel1.update
end if

sqldel2="select   *  from tbtk  where  tmid="& cint(id(j)) 
set rsdel2=server.createobject("adodb.recordset")
rsdel2.open sqldel2,conn,3,2
rsdel2("kao")=0
rsdel2.update

next 

for no=1 to 8

 sqltj="select * from tbselectpaper where  paperno="&paperno&" and category="&no
set rstj=server.createobject("adodb.recordset")
rstj.open sqltj,conn,3,2

 sqltj1="select * from tbkcconfig where  paperno="&paperno&" and category="&no
set rstj1=server.createobject("adodb.recordset")
rstj1.open sqltj1,conn,3,2

if not rstj1.eof then
rstj1("datano")=rstj.recordcount
rstj1.update
end if

next

response.redirect "adminpaperdatabase.asp?paperno="&paperno&"&subjectview="&subjectview&"&typeadd="&typeadd&"&success=（取消试题成功，请添加题目）&kcid="&kcid&"&fangshi="&fangshi&"&schap="&schap&"&echap="&echap&"&page="&page

end if
%>