admindatabasesave.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")

if typeadd="1" then
  sql="select * from tbtk"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs.addnew
  
    sql1="select * from tbkc where kcid="&subjectview&""
  set rs1=server.createobject("adodb.recordset")
  rs1.open sql1,conn,3,2
  
  rs("kcid")=rs1("kcid")
  rs("category")=typeadd
  rs("title")=upload.form("question")
  rs("ans")=upload.form("answer")
  rs("level")=upload.form("level")
    rs("chapter")=upload.form("chapter")
    rs("kao")=upload.form("kao")
      chapter=upload.form("chapter")
     kao=upload.form("kao")
   rs("photo")=upload.form("filename")
  rs.update
 

  topage="admindatabaseadd.asp?subjectview=" &rs1("kcid") & "&typeadd=" & typeadd & "&str=添加成功！请继续添加题目！&kao="&kao&"&chapter="&chapter
  response.redirect topage
  
end if

if typeadd="2" then
  sql="select * from tbtk"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs.addnew
  
    sql1="select * from tbkc where kcid="&subjectview&""
  set rs1=server.createobject("adodb.recordset")
  rs1.open sql1,conn,3,2
  
  rs("kcid")=rs1("kcid")
  rs("category")=typeadd
  rs("title")=upload.form("question")
  rs("ans")=upload.form("answer")
    rs("level")=upload.form("level")
    rs("chapter")=upload.form("chapter")
    rs("kao")=upload.form("kao")
     kao=upload.form("kao")
       chapter=upload.form("chapter")
    rs("photo")=upload.form("filename")
  rs.update
  topage="admindatabaseadd.asp?subjectview=" & rs1("kcid") & "&typeadd=" & typeadd & "&str=添加成功！请继续添加题目！&kao="&kao&"&chapter="&chapter
  response.redirect topage
  
end if

if typeadd="3" then
  sql="select * from tbtk"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs.addnew
  
    sql1="select * from tbkc where kcid="&subjectview&""
  set rs1=server.createobject("adodb.recordset")
  rs1.open sql1,conn,3,2

   rs("kcid")=rs1("kcid")
  rs("category")=typeadd
  rs("title")=upload.form("question")
  rs("ans")=upload.form("answer")
    rs("level")=upload.form("level")
    rs("chapter")=upload.form("chapter")
    rs("kao")=upload.form("kao")
      chapter=upload.form("chapter")
     kao=upload.form("kao")
    rs("photo")=upload.form("filename")
  rs.update
  topage="admindatabaseadd.asp?subjectview=" &rs1("kcid") & "&typeadd=" & typeadd & "&str=添加成功！请继续添加题目！&kao="&kao&"&chapter="&chapter
  response.redirect topage
end if


if typeadd="4" then
   sql="select * from tbtk"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs.addnew
  
    sql1="select * from tbkc where kcid="&subjectview&""
  set rs1=server.createobject("adodb.recordset")
  rs1.open sql1,conn,3,2
  

   rs("kcid")=rs1("kcid")
  rs("category")=typeadd
  rs("title")=upload.form("question")
  rs("ans")=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("level")=upload.form("level")
    rs("chapter")=upload.form("chapter")
    rs("kao")=upload.form("kao")
     kao=upload.form("kao")
       chapter=upload.form("chapter")
    rs("photo")=upload.form("filename")
  rs.update
  topage="admindatabaseadd.asp?subjectview=" & rs1("kcid") & "&typeadd=" & typeadd & "&str=添加成功！请继续添加题目！&kao="&kao&"&chapter="&chapter
  response.redirect topage
end if


if typeadd="5" then
   sql="select * from tbtk"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs.addnew
  
    sql1="select * from tbkc where kcid="&subjectview&""
  set rs1=server.createobject("adodb.recordset")
  rs1.open sql1,conn,3,2
  
  answer1=upload.form("answer1")
  answer2=upload.form("answer2")
  answer3=upload.form("answer3")
  answer4=upload.form("answer4")
  answer5=upload.form("answer5")
  answer6=upload.form("answer6")
  
  if answer1<>"" then
  answer1=answer1&","
  end if 
    if answer2<>"" then
  answer2=answer2&","
  end if
    if answer3<>"" then
  answer3=answer3&","
  end if
    if answer4<>"" then
  answer4=answer4&","
  end if
    if answer5<>"" then
  answer5=answer5&","
  end if
    if answer6<>"" then
  answer6=answer6&","
  end if
  
  ans=answer1&answer2&answer3&answer4&answer5&answer6
 rs("kcid")=rs1("kcid")
  rs("category")=typeadd
  rs("title")=upload.form("question")
  rs("ans")=ans
  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("level")=upload.form("level")
    rs("chapter")=upload.form("chapter")
    rs("kao")=upload.form("kao")
     kao=upload.form("kao")
       chapter=upload.form("chapter")
    rs("photo")=upload.form("filename")
  rs.update

  topage="admindatabaseadd.asp?subjectview=" & rs1("kcid") & "&typeadd=" & typeadd & "&str=添加成功！请继续添加题目！&kao="&kao&"&chapter="&chapter
  response.redirect topage
end if


if typeadd="6" then
  sql="select * from tbtk"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs.addnew
  
    sql1="select * from tbkc where kcid="&subjectview&""
  set rs1=server.createobject("adodb.recordset")
  rs1.open sql1,conn,3,2
  
 kao=upload.form("kao")
   rs("kcid")=rs1("kcid")
  rs("category")=typeadd
  rs("title")=upload.form("question")
  rs("ans")=upload.form("answer")
    rs("level")=upload.form("level")
    rs("chapter")=upload.form("chapter")
    rs("kao")=upload.form("kao")
    rs("photo")=upload.form("filename")
      chapter=upload.form("chapter")
  rs.update
  topage="admindatabaseadd.asp?subjectview=" & rs1("kcid") & "&typeadd=" & typeadd & "&str=添加成功！请继续添加题目！&kao="&kao&"&chapter="&chapter
    response.redirect topage
end if

if typeadd="7" then
  sql="select * from tbtk"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs.addnew
  
    sql1="select * from tbkc where kcid="&subjectview&""
  set rs1=server.createobject("adodb.recordset")
  rs1.open sql1,conn,3,2
 kao=upload.form("kao")
  chapter=upload.form("chapter")
   rs("kcid")=rs1("kcid")
  rs("category")=typeadd
  rs("title")=upload.form("question")
  rs("ans")=upload.form("answer")
    rs("level")=upload.form("level")
    rs("chapter")=upload.form("chapter")
    rs("kao")=upload.form("kao")
    rs("photo")=upload.form("filename")
  rs.update
  topage="admindatabaseadd.asp?subjectview=" & rs1("kcid") & "&typeadd=" & typeadd & "&str=添加成功！请继续添加题目！&kao="&kao&"&chapter="&chapter
    response.redirect topage
end if

if typeadd="8" then
  sql="select * from tbtk"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs.addnew
  
    sql1="select * from tbkc where kcid="&subjectview&""
  set rs1=server.createobject("adodb.recordset")
  rs1.open sql1,conn,3,2
 kao=upload.form("kao")
  chapter=upload.form("chapter")
   rs("kcid")=rs1("kcid")
  rs("category")=typeadd
  rs("title")=upload.form("question")
 rs("ans")=0
    rs("level")=upload.form("level")
    rs("chapter")=upload.form("chapter")
    rs("kao")=upload.form("kao")
    rs("photo")=upload.form("filename")
    rs("isread")=1
  rs.update
  
    sqlno="select top 1 * from tbtk order by tmid desc"
  set rsno=server.createobject("adodb.recordset")
  rsno.open sqlno,conn,3,2
  tmid=rsno("tmid")
  
  topage="admindatabaseaddread.asp?tmid="&tmid&"&subjectview=" & rs1("kcid") & "&typeadd=" & typeadd & "&str=请继续添加小题目！&kao="&kao&"&chapter="&chapter
    response.redirect topage
end if
%>