admindatabasereadsave.asp

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

<!--#include file="conn.asp"-->
<!--#include FILE="upload_5xsoft.asp"-->
<%
  if session("adminname")="" then
  response.redirect "relogin.asp"
  end if
  
dim upload,file,formName,formPath,iCount,newname
set upload=new upload_5xSoft ''建立上传对象

%>

<%
subjectview=upload.form("subjectview")
typeadd=upload.form("typeadd")
tmid=upload.form("tmid")
 

   sql3="select * from tbread where tmid="&tmid
  set rs3=server.createobject("adodb.recordset")
  rs3.open sql3,conn,3,2
  if rs3.eof then
  readno=1
  else
  readno=rs3.recordcount+1
  end if 
 
   sql="select * from tbread "
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs.addnew
  
 
  
   rs("tmid")=tmid
 
 
  rs("xiaoti")=upload.form("question")
  rs("readans")=upload.form("answer")
  rs("a")=upload.form("text1")
  rs("b")=upload.form("text2")
  rs("c")=upload.form("text3")
  rs("d")=upload.form("text4")
  rs("e")=upload.form("text5")
  rs("f")=upload.form("text6")
   rs("slevel")=upload.form("slevel")
  rs("pic")=upload.form("filename")
   rs("readno")=readno
  
    sql2="select * from tbtk where tmid="&tmid
  set rs2=server.createobject("adodb.recordset")
  rs2.open sql2,conn,3,2
  
     kao=rs2("kao")
       chapter=rs2("chapter")
       kcid=rs2("kcid")
   rs2("ans")=rs2("ans")+1
  rs2.update

  rs.update
  topage="admindatabaseaddread.asp?tmid="&tmid&"&subjectview=" & kcid & "&typeadd=" & typeadd & "&str=添加成功！请继续添加小题目！&kao="&kao&"&chapter="&chapter
  response.redirect topage
 

 
%>