关于教师评价系统的WEB程序（三）

2022-07-15 80酷酷网 80kuku.com

web|程序|评价adddata.asp代码:

<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%>


<html>
<head>
<title>学生评价中</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<% dim txt,txtarea,k,tname,xh,bj,fz
       k=session("a")
    xh=session("stuclass")
    bj=session("classsel")
     fz=session("count")
      for i=1 to k
  txt=request.form(  "t" & i  )
  if  not isnumeric(txt) or cint(txt)>cint(fz)  or cint(txt)<0 then
      response.redirect("/errorcount.asp")
   end if
  next
   for i=1 to  k
   tname=request.form("teaname" & i)
  txt=request.form(  "t" & i  )
  txtarea=request.form("area" & i)

   set cm1=server.createobject("adodb.command")
      set cm1.activeconnection=cn
      cm1.commandtext="insert into  投票 (班级,学生,教师,简评,单元检测) values(’" & bj & "’,’" & xh & "’,’"  & tname & "’,’"  & txtarea & "’,’" & txt & "’)"
    cm1.execute
    next
cn.close%>

<table width="75%" border="0" align="center">
  <tr>
    <td><img src="http://www.163design.net/image/dfles.jpg" width="299" height="60"></td>
  </tr>
  <tr>
    <td><p align="center"><font color="#FF0000" size="5" face="华文隶书">感谢你的参与!</font></p>
      <p align="center"><font color="#FF0000" size="5" face="华文隶书">希望同学们假期愉快!学习更上一层楼!</font></p></td>
  </tr>
  <tr>
    <td><div align="center"><font face="Geneva, Arial, Helvetica, sans-serif">copyright©sean</font></div></td>
  </tr>
  <tr>
    <td><div align="right"><font size="2" face="仿宋_GB2312"><a href="index.asp">下一位开始</a></font></div></td>
  </tr>
</table>
</body>
</html>
errorcount.asp代码:
<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>错误</title>
</head>
<body><%
     response.write "

"
     response.write "    <table align=’center’ width=’300’ border=’1’ cellpadding=’0’ cellspacing=’0’ bordercolor=’#999999’>"
     response.write "      <tr bgcolor=’#999999’> "
     response.write "        <td colspan=’2’ height=’15’> "
     response.write "          <div align=’center’><font color=’#FFFFFF’>操作: 错误投票!</font></div>"
     response.write "        </td>"
     response.write "      </tr>"
     response.write "      <tr> "
     response.write "        <td colspan=’2’ height=’23’> "
     response.write "          <div align=’center’>
<