关于教师评价系统的WEB程序（二）
日期：2014-01-13 浏览次数：21213 次
界面二（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"%>
<!--#include file="opendb.inc"-->
<!--#include file="bl.inc"-->
<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.w
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"%>
<!--#include file="opendb.inc"-->
<!--#include file="bl.inc"-->
<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.w
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
