adminbanjisave.asp

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

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

%>
<%
exam_subject=trim(request("exam_subject"))
sql="select * from tbbanji"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
rs.addnew
rs("banji")=exam_subject
rs.update

sql1="select * from tbpower"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2

sql2="select * from tbnianji"
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,3,2

sql3="select * from tbbanji where banji='"&exam_subject&"'"
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,3,2

do while not rs2.eof
rs1.addnew
rs1("nianjiid")=rs2("nianjiid")
rs1("banjiid")=rs3("banjiid")
rs1.update
rs2.movenext
loop



response.redirect "adminbanji.asp"
%>