学生网上评教系统界面设计代码
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
</head>
<body>
</body>
</html><td width="275" height="200" ">
<span style="letter-spacing: 3">
<p align="right"> <b>
<a href="default1.asp"><font size="6" face="方正舒体">学生登录
</font></a></b></p>
<p align="right"><a href="tdefault.asp"><b><font face="方正舒体" size="6">管理员登录</font></b></a></p>
<p align="right"><font face="方正舒体"size="6"><b><a
href="list33.asp">B B S</a> </b></font></p>
<p> </span>
<p> </td>
<tr><td width="386" height="229" " colspan="2">
<p> <A href="/" target=_blank><IMG border=0
src="image/banner.gif" width="468" height="60"></A></td>
</tr></table>
4. 数据库连接的代码如下：
<%
dim conn， connstr，db
db="qw7911.mdb"
Set conn = Server.CreateObject("ADODB.Connection") `创建一个Connection对象实例
connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&
Server.MapPath(""&db&"") `指明数据库的位置
conn.Open connstr `打开数据库，建立与数据库的连接
%>
<center>
<b><p><font size="6"> 网上教务评教学生登录</font></b><p>
<!--登录表单-->
<form action="list1.asp" method="post" id=form1 name=＂form1＂>
<table border="1" width="50%">
<tr> <td>
<p align="center"><b><font face="楷体_gb2312">学 号：
</font></b>
<td width="55%">
<p align="center"><input type="text"size="20" name="username"> </tr>
<tr><td><p align="center"><b><font face="楷体_gb2312">密
 码：</font></b>
<td width="55%">
<p align="center"> <input type="password"size="20"
name="password"> </tr>
<tr><td colspan="2">
<p align="center"><input type="submit"
name="ok"value="登">  
<input type="reset" name="cancel"value="重填"> </P></tr></table> </form>
<%
dim username,password,studentclassid
password=request.form("password")
username=request.form("username")%>
<!--#include file="conn1.asp"-->
<%set ors=server.createobject("adodb.recordset")
ors.open "select *from student where stuid='"&username&"' and
type='2' ",conn
if ors.eof or ors.bof then
response.redirect "check1.asp"
elseif password<>ors("pass1") then
response.redirect "check2.asp"
end if
studentclassid=ors("classid")
%>
'连接数据库
<body bgcolor="#E2F5E2">
<% set orc=server.createobject ("adodb.recordset")
strsql="select * from class where classid = '"&studentclassid&" '"
orc.open strsql ,conn
%>
'设计显示数据记录的表格
<table border="1" align="center" width="80%" >
<tr><td width="7%" height="1"><font color="#80000">代码</font>
</td>
<td width="20%" height="1"><font color="#80000">课程名称
</font></td>
<td width="20%" height="1"><font color="#80000">任课老师
</font></td>
<td width="19%" height="1"><font color="#80000">已投票人数
</font></td>
<td width="19%" height="1"><font color="#80000">投票</font>
</td > </tr>
<%set orv=server.createobject ("adodb.recordset")
strsql="select * from vote where classid = '"&studentclassid&" '"
orv.open strsql ,conn
do while not orv.eof
i=i+1%>
<tr> <td width="7%" height="1"><font color="#338800"><%=i%>
</font></td>
<td width="20%" height="1"><font color="#338800">
<%=orv("coursename")%></font></td>
<td width="20%" height="1"><font color="#338800"><%=orv ("teachername") %>< /font></td>
<td width="19%" height="1"><font color="#338800"><%=orv ("votenum") %>< /font></td>
<td width="19%" height="1"><font color="#338800">
<%response.write"<ahref=list.asp?
teachername="&orv("teachername")&"&coursename="&orv("coursename")&"&usernam 入"&"</a>"%> </tr>
<% orv.movenext loops %> </table></table>
<body bgcolor="#E2F5E2">
<center>
<p><b><font size="5" face="隶书">更改密码</font></b></p>
<form method="post" name=frmsubmit action=modifypass.asp>
<table border="1" width="50 %">
<tr> <td><p align="center"><b><font face="楷体_gb2312">新密码：</font></b>
<td width="55 %">< p align="center"><input
type="password"size="20" name="p1">
<tr><td><p align="center"><b><font face="楷体_gb2312">确认密码：</font></b>
<td width="55 %"> <p align="center"> <input
type="password"size="20" name="p2">
<tr><td> <input type="hidden" name="username" value=
<%=request.querystring("stuid")%>>
<tr><td colspan="2">
<p align="center"> <input type="submit" name="ok"value="提交" >  
<input type="reset" name="cancel"value="重填"> </P> </tr> </table> </form>
<!-- function fnsubmit()
{ var bselected =1
for (var i=1;i<=17;i++)
{for (var j=0;j<eval("frmsubmit.vote"+i+".length");j++)
{ if (eval("frmsubmit.vote"+i+"["+j+"].checked"))
{ bselected =bselected+1;}
}
}
if (bselected >=18)
{frmsubmit.action="vote.asp"
frmsubmit.submit();
}
else
alert("请把这份调查填写完毕!");
}-->
<body bgcolor="#E2F5E2">
<tr align="center" bgcolor="#66ccff">
<td colspan="2" height="16" width="476" ><font
color="#80000">项目</font></td>
<td colspan="6" width="307" height="16" ><font
color="#80000">满意度</font></td> </tr>
<tr align="center">
<td colspan="2" width="476" height="14"> <b style="color:red">第一部分</b>：单项选择</td>
<td width="61" height="14">1</td>
<td width="55" height="14">2</td>
<td width="47" height="14">3</td>
<td width="48" height="14">4</td>
<td width="48" height="14">5</td> </tr>
<tr align="center">
<td width="60" height="108" rowspan="4"> 教<p>学</p><p>态</p>
<p>度
<td width="404" height="19" align="left"> （1）备课充分，授课认真
<td width="61" height="19" align="center"><input type="radio" name="vote1" value="1">
<td width="55" height="19" align="center" ><input type="radio" name="vote1" value="2">
<td width="47" height="19" align="center"><input type="radio" name="vote1" value="3">
<td width="48" height="19" align="center"><input type="radio" name="vote1" value="4">
<td width="48" height="19" align="center"><input type="radio" name="vote1" value="5">
<tr align="center">
<td width="404" height="17" align="left"> （2）授课姿态
<td width="61" height="19" align="center"><input type="radio" name="vote2" value="1">
<td width="55" height="19" align="center" ><input type="radio" name="vote2" value="2">
<td width="47" height="19" align="center"><input type="radio" name="vote2" value="3">
<td width="48" height="19" align="center"><input type="radio" name="vote2" value="4">
<td width="48" height="19" align="center"><input type="radio" name="vote2" value="5">
<tr align="center">
<td width="404" height="18" align="left"> （3）虚心听取学生意
见，改进教学
<td width="61" height="19" align="center"><input type="radio" name="vote3" value="1">
<td width="55" height="19" align="center" ><input type="radio" name="vote3" value="2">
<td width="47" height="19" align="center"><input type="radio" name="vote3" value="3">
<td width="48" height="19" align="center"><input type="radio" name="vote3" value="4">
<td width="48" height="19" align="center"><input type="radio" name="vote3" value="5">
<tr align="center"> <td width="404" height="18" align="left"> （4）充分有
效地利用上课时间
<td width="61" height="19" align="center"><input type="radio"
name="vote4" value="1"> <td width="55" height="19" align="center" >
<input type="radio" name="vote4" value="2">
<td width="47" height="19" align="center"><input type="radio" name="vote4" value="3">
<td width="48" height="19" align="center"><input type="radio" name="vote4" value="4">
<td width="48" height="19" align="center"><input type="radio" name="vote4" value="5">
<tr align="center"> <td width="60" height="109" rowspan="4">
<tr align="center"> <td width="60" height="109" rowspan="4">
<tr align="center"><td colspan="8" width="795" height="7"><b
style="color: red"></table>
<input type="hidden" name="courseid" value="<%=courseid %>"> <input type="hidden" name="sequence" value="<%=sequence %>">
<input type="hidden" name="cname" value="<%=coursename %>">
<div align=center> <input type="submit" name="ok" value="提交
"onclick=fnsubmit()> &
<input type="reset" name="cancle" value="重填"></div></form>
<body bgcolor="#E2F5E2">
<table border="0" bgcolor="#E2F5E2" cellspacing="0" width="897" cellpadding="0" height="165">
<img border="0" src="IMAGES/ani1.gif" width="257" height="24">
<tr align="center">
<td width="449" height="1"><img border="0" src="image/Cloud.gif"
width="208" height="102">
<td width="515" height="104" height="1"><p align="center"><span
style="letter-spacing: 11"><font face="幼圆" size="7">教学评教系统
</font></span><hr
<tr><table border="0" bgcolor="#E2F5E2" width="899" height="318" >
<tr> <td width="893" height="30"><p align="center"><tr>
<td width="818" bgcolor="#E2F5E2" height="16" align="center" ><b>
<marquee <h3><font face="宋体" color="#ff0000"> 普通高校教务评教系
统使用说明</marquee></b></tr>
<tr> <td width="818" bgcolor="#E2F5E2" height="18" align="left" >
<font face="幼
圆"> &nbs <img border="0" src="image/gif/RBALL.GIF" height="14" >进入系
统: 在"学号"处输入本人学号。
&n </font> </td> </tr>
<tr><td width="818" bgcolor="#E2F5E2" align="left" height="16"><font
face="幼
圆"> &nbs 在"密码"处输入公共密码(公共密码为"AA")。
</font></td></tr>
<tr> <td width="818" bgcolor="#E2F5E2" align="left" height="16" ><font
face="幼圆
"> &注:上面内容不得为空,否则不能进入系统.</font></td> </tr>
</table>
</table>
<% response.buffer=true
dim username,password,studentclassid
Password=request.form ("password")
Username=request.form ("username") %>
<!--#include file="conn1.asp"-->
<% set ors=server.createobject ("adodb.recordset")
ors.open "select *from student where stuid='"&username&"' and
type='1' ", conn
If ors.eof or ors.bof then
response.redirect "check1.asp"
Elseif password<>ors ("pass1") then
response.redirect "check2.asp"
End if
%>
<body bgcolor="#E2F5E2">
<table border="0" bordercolorlight="#f2f4ff" cellpadding="0" bordercolorlight="#f1f4ff" style="font-size: x-small" height="105" >
<tr> <td valign="middle" align=left height="103" width="827"><FONT COLOR=#000000>
>> 欢迎您：<img border="0" src="IMAGES/Male.gif" >
<a href="tdefault.asp"><FONT COLOR=#000000>返回登录界面：
</FONT></a> |
<a href="pass.asp? stuid=<%=username%> "><FONT COLOR=#000000>更改密码</FONT></a>|
<a href="query1.asp"><font color="#000000">教师各单项评教查询
</font></a>|
<font color="#000000">教师评教排行榜</font></a>|
<a href="index.htm"><FONT COLOR=#000000>退出</FONT></a>|
<table border="1" align="center" width="813" >
<tr>
<td width="44" height="58"><font color="#80000">代码</font>
</td>
<td width="78" height="58"><font color="#80000">任课老师
</font></td>
<td width="115" height="58"><font color="#80000">课程名称
</font></td>
<td width="66" height="58"><font color="#800000">教学态度
</font></td>
<td width="76" height="58"><font color="#800000">教学内容
</font></td >
<td width="68" height="58"><font color="#800000">教学方法
</font></td >
<td width="78" height="58"><font color="#800000">教学效果
</font></td >
<td width="66" height="58"><font color="#800000">评分率
</font></td >
<td width="179" ><font color="#800000">图形显示
</tr>
<%dim percent (100)
set orv=server.createobject("adodb.recordset")
strsql="select * from vote order by sum desc"
orv.open strsql ,conn
do while not orv.eof
i=i+1%>
<tr>
<td width="44" ><font color="#338800"><%=i%></font> </td>
<td width="78" ><font color="#338800">
<%=orv("teachername")%></font> </td>
<td width="115" ><font color="#338800">
<%=orv("coursename")%></font> </td><td width="66" ><font
color="#338800">
<%=orv("vote1")+orv("vote2")+orv("vote3")+orv("vote4")%></font> </td> <td width="76" ><font color="#338800">
<%=orv("vote5")+orv("vote6")+orv("vote7")+orv("vote8")%></font> </td > <td width="68" ><font color="#338800">
<%=orv("vote9")+orv("vote10")+orv("vote11")+orv("vote12")%></font> </td> <td width="78" ><font color="#338800">
<%=orv("vote13")+orv("vote14")+orv("vote15")+orv("vote16")%></font>
</td > <%total=orv("votenum")*5*17
Percent (i) =ROUND (orv ("sum")/total, 3) %>
<td width="66" ><font color="#228800"><%=percent(i)*100%>% </font> </td >
<td width="179"><img src="images/wu.gif" width= <%=100*percent (I) %> ></tr><%orv.movenext loop %> </table>。