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

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

 
 
  sql="select * from tbread where tmid="&tmid&" and readno="&readno
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  
 
  
 
  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.update
 
 
 

 

 
 
 
    topage="admindatabaseeditread.asp?tmid="&tmid&"&readno="&readno
 response.redirect topage
%>