📄 pingjiaone.asp
字号:
<!--#include file="a25175_top.asp"-->
<!--#include file="incsub.asp"-->
<%
If session("UserID")="" Or session("usertype")="" Or session("UserNAME")="" THEN
response.write"<script>alert('请不要非法登陆！');location='index.asp'</script>"
END IF
If Closeok=1 then
response.write"<script>alert('系统现在不能开始评价\n请等待开通...');location='index.asp'</script>"
end if
'-------------------------------------------------------------
Dim Depart,Teacher,Depart1,Teacher1,Term,Course
Depart=request("depart")
Teacher=request("Teacher")
'------------------------------------------------------
Depart1=Depart
Teacher1=Teacher
'------------------------------------------------------
if Depart<>"" and Teacher<>"" and Depart<>"请选择教师院系" and Teacher<>"请选择教师" then
strsql="select * from department where id="&depart
set rs=db.execute(strsql)
depart=rs("department")
strsql="select * from teacher where id="&teacher
set rs=db.execute(strsql)
teacher=rs("teachername")
else
Depart=""
Teacher=""
end if
'-------------------------------------------------------
'----------------将院别和教师编号转化成真实的名称
Term=request("Term")
Course=request("Course")
Term1=Term
Course1=Course
if Term<>"" and Course<>"" and Term<>"请选择教师开课学期" and Course<>"请选择教师课程" then
strsql="select * from term where id="&term
set rs=db.execute(strsql)
term=cstr(rs("term"))
strsql="select * from TEACHERCOURSE where id="&course
set rs=db.execute(strsql)
course=cstr(rs("course"))
else
Term=""
Course=""
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="25175css_pro.css" rel="stylesheet" type="text/css" />
<script language="javascript">
function allok()
{
return window.confirm("数据提交后不能修改，是否继续？")
}
</script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="970" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><!--#include file="top.asp"-->
</td>
</tr>
<tr>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="200" rowspan="10" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#A5BEC6"><table width="200" border="0" cellspacing="1" cellpadding="0">
<tr>
<td bgcolor="#FFFFFF"><table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" bgcolor="#F7F7F7"> <img src="images/QQ_d.gif" alt="25175" width="15" height="15" /> <a href="index.asp">前台管理区</a></td>
</tr>
<tr>
<td bgcolor="#ADD7FF"><!--#include file="left.asp"--></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>
</table></td>
<td width="10"><div align="center"></div></td>
<td rowspan="10" valign="top" bgcolor="#A5BEC6"><table width="758" border="0" cellspacing="1" cellpadding="0">
<tr>
<td bgcolor="#E7F3FF"><table width="750" border="0" cellspacing="4" cellpadding="0">
<tr>
<td height="300" valign="top"><table width="750" border="0" cellspacing="0" cellpadding="10">
<tr>
<td height="300" valign="top" bgcolor="#FFFFFF">
<form action="" method="post" name="addform" id="addform">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ADD7FF">
<tr align="center" bgcolor="#FFFFFF">
<td height="25" colspan="5">欢迎
<strong>
<%
usertype=session("usertype")
if usertype=1 then
response.Write "领导"
elseif usertype=2 then
response.Write "督导"
elseif usertype=3 then
response.Write "学生"
else
response.Write "教师"
end if
%>
</strong>
参加投票</td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td height="20" colspan="2" ><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#ADD7FF">
<tr align="center" valign="middle" bgcolor="#ADD7FF">
<td height="25" colspan="5" bgcolor="#ADD7FF" >目前参加<%=Wtitle%>投票人数：
<%
strsql="select count(*) as total from TEACHERSCORE where usertype=1"
set rs=db.execute(strsql)
scorel=rs("total")
strsql="select count(*) as total from TEACHERSCORE where usertype=2"
set rs=db.execute(strsql)
scoret=rs("total")
strsql="select count(*) as total from TEACHERSCORE where usertype=3"
set rs=db.execute(strsql)
scores=rs("total")
strsql="select count(*) as total from TEACHERSCORE where usertype=4"
set rs=db.execute(strsql)
scorett=rs("total")
scoresum=scorel+scoret+scores+scorett
response.Write scoresum
if scoresum=0 then
scoresum=1
end if
tablewid=400
tablel=scorel/scoresum*tablewid
tablet=scoret/scoresum*tablewid
tables=scores/scoresum*tablewid
tablett=scorett/scoresum*tablewid
'---------------------------------------------------------
'显示已经投票的总人数
%>
人</td>
</tr>
<tr align="center" valign="middle" bgcolor="#FFFFFF">
<td height="25" colspan="3" align="left" bgcolor="#FFFFFF" >
<% response.write "学生："&scores&"人 占"&formatnumber((scores/scoresum*100),2)&"%"%></td>
<td width="74%" align="left" bgcolor="#FFFFFF" ><table width=<%=tables%> height="10" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/display3.gif"></td>
</tr>
</table></td>
</tr>
<tr align="center" valign="middle" bgcolor="#FFFFFF">
<td height="25" colspan="3" align="left" bgcolor="#FFFFFF" ><% response.write "教师："&scorett&"人 占"&formatnumber((scorett/scoresum*100),2)&"%"%></td>
<td align="left" bgcolor="#FFFFFF" ><table width=<%=tablett%> height="10" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/display4.gif"></td>
</tr>
</table></td>
</tr>
<tr align="center" valign="middle" bgcolor="#FFFFFF">
<td height="25" colspan="3" align="left" bgcolor="#FFFFFF" >
<% response.write "督导："&scoret&"人 占"&formatnumber((scoret/scoresum*100),2)&"%"%></td>
<td height="25" align="left" bgcolor="#FFFFFF" ><table width=<%=tablet%> height="10" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/display2.gif"></td>
</tr>
</table></td>
</tr>
<tr align="center" valign="middle" bgcolor="#FFFFFF">
<td height="25" colspan="3" align="left" bgcolor="#FFFFFF" ><% response.write "领导："&scorel&"人 占"&formatnumber((scorel/scoresum*100),2)&"%"%></td>
<td height="25" align="left" bgcolor="#FFFFFF" ><table width=<%=tablel%> height="10" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/display1.gif"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr align="center" bgcolor="#31659C">
<td height="25" colspan="2" valign="middle" bgcolor="#ADD7FF" ><a href="pingjiaone.asp" target="_self">【重新评价】</a> <%
sql = "select * FROM TEACHER order by ID asc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,db,1,1%>
<script language = "JavaScript">
var onecount1;
onecount1=0;
subcat1 = new Array();
<%count = 0
do while not rs.eof%>
subcat1[<%=count%>] = new Array("<%= trim(rs("TEACHERNAME"))%>","<%= trim(rs("DEPARTID"))%>","<%= trim(rs("ID"))%>");
<%count = count + 1
rs.movenext
loop
rs.close
set rs=nothing%>
onecount1=<%=count%>;
function changelocation1(addone)
{
document.addform.teacher.length = 0;
var addone_id=addone_id;
var i;
document.addform.teacher.options[0] = new Option('请选择教师','请选择教师');
for (i=0;i < onecount1; i++)
{
if (subcat1[i][1] == addone)
{
document.addform.teacher.options[document.addform.teacher.length] = new Option(subcat1[i][0], subcat1[i][2]);
}
}
}
</script> </td>
</tr>
<tr align="center" valign="bottom" bgcolor="#FFFFFF">
<td width="19%" height="25" align="right" valign="middle" >请选择教师院系：</td>
<td width="81%" height="25" align="left" valign="middle" >
<%
if Depart<>"" then
response.Write Depart
response.Write "<input name='Depart' type='hidden' value='"&Depart1&"'>"
else
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -