adminpapereditsave.asp

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

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

%>
<%
paperno=trim(request("paperno"))

kcid=trim(request("kcid")) 
info=trim(request("info"))
schap=cint(request("schap"))
echap=cint(request("echap"))
paperdatetime=request("paperdatetime")
stime=request("stime")
etime=request("etime")

schap1=cint(request("schap1"))
echap1=cint(request("echap1"))

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


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

if rs("ischoose")=0 then

if schap<=echap then

sql1="select * from tbpaper where kcid="&kcid&" and schap="&schap&" and echap="&echap
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2

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

response.redirect "adminpaperedit.asp?err=（修改试卷成功）&kcid="&kcid&"&schap="&schap&"&echap="&echap&"&paperno="&paperno
	else
	
	rs("info")=info
	rs("paperdatetime")=paperdatetime
	rs("stime")=stime
	rs("etime")=etime
	rs("adminname")=rsadmin("tname")
	rs("username")=session("adminname")
	rs.update

	response.redirect "adminpaperedit.asp?err=（已经存在相同试卷）&kcid="&kcid&"&schap="&schap&"&echap="&echap&"&paperno="&paperno
	end if
else
response.redirect "adminpaperedit.asp?err=（章节范围错误）&kcid="&kcid&"&schap="&schap&"&echap="&echap&"&paperno="&paperno
end if

else

 

sql1="select * from tbpaper where kcid="&kcid&" and schap="&schap1&" and echap="&echap1
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2

	if not rs1.eof then
 
rs("info")=info
 
rs("paperdatetime")=paperdatetime
rs("stime")=stime
rs("etime")=etime
rs("adminname")=rsadmin("tname")
rs("username")=session("adminname")
rs.update


	end if
 response.redirect "adminpaperedit.asp?err=（修改试卷成功）&kcid="&kcid&"&schap="&schap1&"&echap="&echap1&"&paperno="&paperno
	 

end if
%>