关于教师评价系统的WEB程序（三）
adddata.asp代码:<%@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,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 & "’)"
补充：asp教程,高级应用
