📄 pingjiaone.asp
字号:
<select name="depart" id="select7" onChange="changelocation1(document.addform.depart.options[document.addform.depart.selectedIndex].value)">
<option value="请选择教师院系" selected>请选择教师院系</option>
<%
sql="select * from DEPARTMENT order by ID desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,db,1,1
while not rs.eof%>
<option value="<%=rs("id")%>"><%=rs("DEPARTMENT")%></option>
<%rs.movenext
wend
rs.Close()
%>
</select>
*
<% end if%>
</td>
</tr>
<tr align="center" valign="bottom" bgcolor="#FFFFFF">
<td height="25" align="right" valign="middle" >请选择教师：</td>
<td height="25" align="left" valign="middle" >
<%
if Teacher<>"" then
response.Write Teacher
response.Write "<input name='Teacher' type='hidden' value='"&Teacher1&"'>"
else
%>
<select name="teacher" id="select8">
<option selected value="请选择教师">请选择教师</option>
</select>
***
<input type="submit" name="Submit2" value="选择学期和课程">
<%end if%>
</td>
</tr>
<%
if teacher<>"" and depart<>"" then
classterm()
end if
'------------------------------------------------选择教师的课程
sub classterm()
sql = "select * FROM TEACHERCOURSE where teachername='"&teacher&"' and department='"&depart& "' order by ID desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,db,1,1%>
<script language = "JavaScript">
var onecount2;
onecount2=0;
subcat2 = new Array();
<%count1 = 0
do while not rs.eof%>
subcat2[<%=count1%>] = new Array("<%= trim(rs("COURSE"))%>","<%= trim(rs("TERMID"))%>","<%= trim(rs("ID"))%>");
<%count1 = count1 + 1
rs.movenext
loop
rs.close
set rs=nothing%>
onecount2=<%=count1%>;
function changelocation2(addone)
{
document.addform.course.length = 0;
var addone_id=addone_id;
var i;
document.addform.course.options[0] = new Option('请选择教师课程','');
for (i=0;i < onecount2; i++)
{
if (subcat2[i][1] == addone)
{
document.addform.course.options[document.addform.course.length] = new Option(subcat2[i][0], subcat2[i][2]);
}
}
}
</script>
<tr align="center" valign="bottom" bgcolor="#FFFFFF">
<td height="25" align="right" valign="middle" >请选择开课学期：</td>
<td height="25" align="left" valign="middle" >
<%
if Term<>"" then
response.Write Term
response.Write "<input name='Term' type='hidden' value='"&Term1&"'>"
else
%>
<select name="term" id="term" onChange="changelocation2(document.addform.term.options[document.addform.term.selectedIndex].value)">
<option value="" selected>请选择教师开课学期</option>
<%
sql="select * from TERM order by ID desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,db,1,1
while not rs.eof%>
<option value="<%=rs("id")%>"><%=rs("TERM")%></option>
<%rs.movenext
wend
rs.Close()
%>
</select>
*<%end if%></td>
</tr>
<tr align="center" valign="bottom" bgcolor="#FFFFFF">
<td height="25" align="right" valign="middle" >请选择课程：</td>
<td height="25" align="left" valign="middle" >
<%
if Course<>"" then
response.Write Course
response.Write "<input name='Course' type='hidden' value='"&Course1&"'>"
else
%>
<select name="course" id="course">
<option selected value="">请选择教师课程</option>
</select>
***
<input name="Submit1" type="submit" id="Submit1" value="开始评价">
<%end if%>
</td>
</tr>
<% end sub%>
</table>
</form></td>
</tr>
<tr>
<td align="center" valign="top">
<%
if depart<>"" and teacher<>"" and term<>"" and course<>"" then
strsql="select * from TEACHERCOURSE where term='"&term&"' and course='"&course&"' and teachername='"&teacher&"' and department='"&Depart&"'"
set rs=db.execute(strsql)
classok=rs("class")
'-----------------------------------------------------是否可以投票
usertype=session("usertype")
shuliang=cint(session("jishu"))
userID=session("UserID")
IP=REQUEST.ServerVariables("REMOTE_ADDR")
Userclass=session("Userclass")
Userdepartment=session("Userdepartment")
USERNAME=session("UserNAME")
'------------------------------------------------------------------------
if usertype=3 then
classokqu=split(classok,"*")
pingjiaok=0
len2=ubound(classokqu)
for t=0 to len2
if cstr(Userclass)=classokqu(t) then
pingjiaok=1
exit for
end if
next
if pingjiaok=0 then
response.write"<script>alert('此教师的课程你没有学，不能评价！');location='pingjiaone.asp'</script>"
response.end()
end if
end if
''学生只能评价自己学过的老师的课程！！！！！！
'----------------------------------------------------------------------
strsql="select count(*) as total from TEACHERSCORE where term='"&term&"' and teacherid='"&teacher&"' and course='"&course&"' and depart='"&depart&"' and userid='"&userid&"'"
set rs=db.execute(strsql)
total1=cint(rs("total"))
if total1<>0 then
response.write"<script>alert('"&teach&"老师的"&course&"\n您已经投过票了，不能重复投票"&"');location='pingjiaone.asp'</script>"
response.End()
end if
%>
<form action="pingjiaok.asp" method="post" name="FRM" id="FRM" onSubmit="return allok()">
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center">
<%
usertype=session("usertype")
if usertype=1 then
call display3()
elseif usertype=2 then
call display2()
elseif usertype=3 then
call display1()
else
call display4()
end if
%>
</td>
</tr>
<tr>
<td height="40" align="center"><input name="depart" type="hidden" id="depart" value="<%=depart%>">
<input name="teacher" type="hidden" id="teacher" value="<%=teacher%>">
<input name="term" type="hidden" id="term" value="<%=term%>">
<input name="course" type="hidden" id="course" value="<%=course%>">
<input type="submit" name="Submit" value="提交结果">
<input type="reset" name="Submit3" value="重 置"></td></tr>
</table>
</form>
<%end if%></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="21"> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
<tr>
</tr>
<tr>
<td height="25">
<% databaseclose() %>
<!--#include file="foot.asp"--></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -