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

%>
<%
kcid=request("kcid")
info=trim(request("info"))
schap=cint(request("schap"))
echap=cint(request("echap"))
paperdatetime=request("paperdatetime")
stime=request("stime")
etime=request("etime")
fangshi=cint(request("fangshi"))
 

response.write fangshi

sqladmin="select * from tbadmin  where username='"&session("adminname")&"'"
set rsadmin=server.createobject("adodb.recordset")
rsadmin.open sqladmin,conn,3,2
adminname=rsadmin("tname")

if fangshi="0" then
sql="select * from tbpaper where kcid="&kcid&" and schap="&schap&"  and echap="&echap
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2

if schap<=echap then
	if rs.eof then
rs.addnew
rs("kcid")=kcid
rs("info")=info
rs("schap")=schap
rs("echap")=echap 
rs("paperdatetime")=paperdatetime
rs("stime")=stime
rs("etime")=etime
rs("adminname")=adminname
rs("username")=session("adminname")
rs.update

sql1="select top 1 * from tbpaper order by paperno desc"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2

paperno=rs1("paperno")

sql3="select * from tbkcconfig where paperno="& paperno
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,3,2

if rs3.eof then
for n=1 to 8

 sql4="select * from tbkcconfig where kcid="&kcid&" and category="&n&" and  paperno="&paperno
set rs4=server.createobject("adodb.recordset")
rs4.open sql4,conn,3,2

  if rs4.eof then 
	rs3.addnew
    rs3("kcid")=kcid
    rs3("category")=n
    rs3("paperno")=paperno
    rs3.update
  end if    
    rs4.close

 next
end if

response.redirect "adminpaperadd.asp?err=（添加試卷成功，請繼續添加）&kcid="&kcid&"&schap="&schap&"&echap="&echap
	else
response.redirect "adminpaperadd.asp?err=（已經存在相同試卷）&kcid="&kcid&"&schap="&schap&"&echap="&echap
	end if
else
response.redirect "adminpaperadd.asp?err=（章節范圍錯誤）&kcid="&kcid&"&schap="&schap&"&echap="&echap
end if


else

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

 
rs.addnew
rs("kcid")=kcid
rs("info")=info
rs("ischoose")=1
rs("paperdatetime")=paperdatetime
rs("stime")=stime
rs("etime")=etime
rs("schap")=schap
rs("echap")=echap
rs("adminname")=adminname
rs("username")=session("adminname")
rs.update

sql1="select top 1 * from tbpaper order by paperno desc"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2

paperno=rs1("paperno")

sql3="select * from tbkcconfig where paperno="& paperno
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,3,2

if rs3.eof then
for n=1 to 8

 sql4="select * from tbkcconfig where kcid="&kcid&" and category="&n&" and  paperno="&paperno
set rs4=server.createobject("adodb.recordset")
rs4.open sql4,conn,3,2

  if rs4.eof then 
	rs3.addnew
    rs3("kcid")=kcid
    rs3("category")=n
    rs3("paperno")=paperno
    rs3.update
  end if    
    rs4.close

 next
end if

response.redirect "adminpaperdatabase.asp?success=（添加試卷成功，請添加題目）&paperno="&paperno&"&kcid="&kcid&"&fangshi="&fangshi&"&schap="&schap&"&echap="&echap
 

end if
%>