📄 pc_noview_list.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="const.asp" -->
<%
start_userno = safeChar(trim(Request.Form("start_userno")))
end_userno = safeChar(trim(Request.Form("end_userno")))
t_month = safeChar(trim(Request.Form("t_month")))
orderby=safeChar(trim(Request.Form("orderby")))
if t_month="" then
start_userno = Request.cookies("pageno")("start_userno")
end_userno = Request.cookies("pageno")("end_userno")
t_month = Request.cookies("pageno")("t_month")
orderby = Request.cookies("pageno")("orderby")
else
Response.Cookies("pageno").Expires=Date+7
Response.Cookies("pageno")("start_userno")=start_userno
Response.Cookies("pageno")("end_userno")=end_userno
Response.Cookies("pageno")("t_month")=t_month
Response.Cookies("pageno")("orderby")=orderby
end if
m_finmark="m"&t_month&"_finmark" '定义数据表中的列名 月最终得分列
m_deptmark="m"&t_month&"_deptmark" '部门加分值
m_apmark="m"&t_month&"_apmark" '个人申请分
'================生成sql语句===============
ssql1=" select pc_user.user_no,pc_user.user_name,class.class_name,"
ssql2=" pc_user."&m_apmark&",pc_user."&m_deptmark&",pc_user."&m_finmark
ssql3=" from pc_user,class where"
ssql4=" "
ssql5=" pc_user.class_id=class.class_id"
ssql6=" order by "
'ssql4
if start_userno="ALL" and end_userno ="ALL" then
ssql4=" "
elseif start_userno="ALL" and not end_userno ="ALL" then
ssql4=" pc_user.user_no <= '"&end_userno&"' and "
elseif not start_userno="ALL" and end_userno ="ALL" then
ssql4=" pc_user.user_no >='"&start_userno&"' and "
elseif not start_userno="ALL" and not end_userno ="ALL" then
ssql4=" pc_user.user_no between '"&start_userno&"' and '"&end_userno&"' and "
end if
'ssql2
if t_month="fir" or t_month="sed" then
ssql2="pc_user."&t_month&"_spe_mark,pc_user.dept_id,pc_user."&t_month&"term_mark "
'ssql6
if orderby="1" then
ssql6=ssql6&" pc_user.user_no asc"
elseif orderby="2" then
ssql6=ssql6&" pc_user."&t_month&"term_mark asc,pc_user.user_no asc"
else
ssql6=ssql6&" pc_user."&t_month&"term_mark desc,pc_user.user_no asc"
end if
else
'ssql6
if orderby="1" then
ssql6=ssql6&" pc_user.user_no asc"
elseif orderby="2" then
ssql6=ssql6&" pc_user."&m_finmark&" asc ,pc_user.user_no asc"
else
ssql6=ssql6&" pc_user."&m_finmark&" desc ,pc_user.user_no asc"
end if
end if
sql=ssql1&ssql2&ssql3&ssql4&ssql5&ssql6
'===sql生成结束======
Set myclass=new xdownpage
myclass.getconn=dbconn
myclass.getsql = sql
myclass.pagesize=20
set rs=myclass.getrs()
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>班级管理</title>
<link href="img/Style.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.style2 {color: #FFFFFF}
.STYLE3 {
font-size: 14pt;
font-weight: bold;
}
-->
</style>
</head>
<body>
<table width="90%" height="51" border="0" align="center" cellpadding="2" cellspacing="1" class="atable1">
<tr bordercolor="#D4D0C8" bgcolor="#333">
<td width="106"><div align="center" class="style2">学号</div></td>
<td width="132"><div align="center" class="style2">姓名</div></td>
<td width="196"><div align="center" class="style2">所在班级</div></td>
<td width="102"><div align="center" class="style2">
<% if not t_month="fir" and not t_month="sed" then
response.Write("个人申请分")
else response.Write("特加分")
end if%>
</div></td>
<% if not t_month="fir" and not t_month="sed" then%>
<td width="89"><div align="center" class="style2">部门加分</div></td>
<%end if%>
<td width="138"><div align="center"><font color="#FFFFFF">
<% if t_month="fir" then
Response.Write("第一学期总评分")
elseif t_month="sed" then
Response.Write("第二学期总评分")
else
Response.Write("[<span class='STYLE3'>"&t_month&"</span>]月份总评分")
end if%>
</font></div></td>
<td width="91"><div align="center"><span class="style2">详细情况</span></div></td>
</tr>
<%If rs.Eof and rs.Bof Then%>
<tr class="tdmenu" >
<td colspan="7"><div align="center" >暂无记录</div></td>
</tr>
<% End If %>
<%for i=1 to myclass.pagesize
if not rs.eof then %>
<tr class="tdmenu" >
<td><div align="center"><%=rs(0)%></div></td>
<td><div align="center"><%=rs(1)%></div></td>
<td><div align="center"><%=rs(2)%></div></td>
<td><div align="center"><%=rs(3)%></div></td>
<% if not t_month="fir" and not t_month="sed" then%>
<td><div align="center"><%=rs(4)%></div></td>
<%end if%>
<td><div align="center" class="red"><%=rs(5)%></div></td>
<td><div align="center"><a href="<% if t_month="fir" or t_month="sed" then response.Write("pc_cs_detail.asp") else response.Write("pc_ns_detail.asp") end if%>?user_no=<%=rs(0)%>&t_month=<%=t_month%>" target="_blank">Detail</a></div></td>
</tr>
<% rs.movenext()
else
exit for
end if
next %>
<tr>
<td height="40" colspan="7" align="right" valign="bottom" class="tdmenu"><% myclass.showpage()%></td>
</tr>
</table>
<%
rs.close
set rs=nothing
%>
</body>
</html>
<%dbconn.close%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -