关于教师评价系统的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

补充：asp教程,高级应用