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

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

web|程序|评价界面二（pingce.asp）：在界面二中需要有八个如图的页面供学生对老师的八个标准进行打分，在这里我建立了八个页面分别进行采集数据，每个页面从分值表和教师表中取出相应的标准和教师姓名显示并收集数据。
bl.inc文件代码：
<%
  dim num,i,classselect,classname,student
  student=request.form("textfield")
  classselect=request.form("selectclass")
   %>
opendb.inc文件代码：
<%
dim strcn
on error resume next
   strcn="dbq="+server.mappath("jxpjdb.mdb")+";driver={microsoft access driver (*.mdb)}"
   set cn=server.createobject("adodb.connection")
   cn.connectiontimeout=0
      cn.open strcn
    %>
   opendb.inc文件作用在打开相对路径下建立的数据库。
页面原代码如下：
<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%>


<html>
<head>
<title>学生评价中</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>

<% dim txt,txtarea,addtrue,teachname
    addtrue=0
    on error resume next
   set rs=server.createobject("adodb.recordset")
   rs.pagesize=1
   rs.open "select * from 班级表 where 学号=" & student ,cn
   do until rs.eof
      if rs("年级")=classselect then
      addtrue=1
  end if
  rs.movenext
  loop
    if addtrue=0 then
       set cm=server.createobject("adodb.command")
       set cm.activeconnection=cn
       cm.commandtext="insert into  班级表 (年级,学号) values(’" & classselect & "’,’" & student & "’)"
     cm.execute
       else
        response.redirect("/error.asp")
    end if
   %>
<!—对上一个页面提交的学生学号进行判断,如果没有在班级表中有数据则写入一条记录,否则已经有同一个学号学生做了评价则不能再进行操作à
<form name="form1" method="post" action="/sk.asp">
  <table width="100%" border="0" align="center">
    <tr>
      <td colspan="4"><img src="http://www.163design.net/image/dfles.jpg" width="299" height="60"></td>
    </tr>
    <tr>
      <td colspan="4"><h1 align="center">外国语实验学校问卷调查</h1></td>
    </tr>
    <tr>
      <td height="50" colspan="4"> <table width="100%" border="0">
          <tr>
            <td height="21"><font color="#0000CC" size="2">所在班级：</font></td>
            <td width="19%">
              <% response.write "<font color=’red’ size=’2’ >"
       response.write(classselect)
    response.write"</font>" %>
               </td>
            <td width="29%"><div align="right"><font color="#0000CC" size="2">正在操作的学生：</font></div></td>
            <td width="39%">
              <% response.write "<font color=’red’ size=’2’ >"
       response.Write(student)
    response.write"</font>号"
    %>
         &n

[1]