admindatabasesaveedit.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 ''建立上传对象


tmid=cint(upload.form("tmid"))
subjectview=cint(upload.form("subjectview"))
typeadd=cint(upload.form("typeadd"))
 typeadd1=cint(upload.form("typeadd1"))    //一个奇怪的变量

if typeadd="1" then
  sql="select * from tbtk where tmid="&tmid
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  
 
  
  rs("kcid")=subjectview 
  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.update
  

  
end if

if typeadd="2" then
  sql="select * from tbtk where tmid="&tmid
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  
 
  
  rs("kcid")=subjectview 
  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.update
 
  
end if

if typeadd="3" then
  sql="select * from tbtk where tmid="&tmid
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  
 

   rs("kcid")=subjectview 
  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.update
 
  
end if

if typeadd="4" then
  sql="select * from tbtk where tmid="&tmid
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  
 
  

   rs("kcid")=subjectview 
  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")
    
  rs.update
 
end if
 


if typeadd="5" then
  sql="select * from tbtk where tmid="&tmid
  set rs=server.createobject("adodb.recordset")
  rs.open sql,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")=subjectview 
  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")
    
  rs.update

 
end if


if typeadd="6" then
  sql="select * from tbtk where tmid="&tmid
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
 

   rs("kcid")=subjectview
  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.update
 
end if

if typeadd="7" then
  sql="select * from tbtk where tmid="&tmid
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  
 

   rs("kcid")=subjectview 
  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.update
 
end if
 
 if typeadd="8" then
  sql="select * from tbtk where tmid="&tmid
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  
 

   rs("kcid")=subjectview 
  rs("title")=upload.form("question")
 
    rs("level")=upload.form("level")
    rs("chapter")=upload.form("chapter")
    rs("kao")=upload.form("kao")
    
  rs.update
 
end if
 
    topage="admindatabaseedit.asp?tmid="&tmid
 response.redirect topage
%>