📄 my_score.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="const.asp" -->
<!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}
-->
</style>
</head>
<body>
<script language="javascript">
function todiv(m,n)
{
Layer1.innerHTML=m.value;
Layer2.innerHTML=n.value;
}
</script>
<%
user_no = Request.Cookies("zcas")("user_no")
Set rs1= Server.CreateObject("ADODB.Recordset")
rs1.ActiveConnection = dbconn
rs1.Source = "select month,month_name,isterm from set_month where isok=1 order by month asc"
rs1.CursorType = 0
rs1.CursorLocation = 2
rs1.LockType = 1
rs1.Open()
str=" "
do while not rs1.eof
str=str&"m"&rs1(0)&"_apmark,"&"m"&rs1(0)&"_finmark,"&"m"&rs1(0)&"_reason,"&"m"&rs1(0)&"_deptmark,"&"m"&rs1(0)&"_deptreason,"
rs1.movenext
loop
rs1.movefirst
sql="select user_no,user_name,"&str&"fir_spe_mark,fir_spe_reason,sed_spe_mark,sed_spe_reason,firterm_mark,sedterm_mark from pc_user where user_no='"&user_no&"'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = dbconn
rs.Source = sql
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
if not err.number="0" or rs.eof then
response.Write("<li>参数非法</li>")
else
%>
<table width="80%" border="0" align="center" cellpadding="2" cellspacing="1" class="atable1">
<tr bgcolor="#333">
<td colspan="5" class="style2"><div align="left"> [ <%=Request.Cookies("zcas")("user_name")%> ]的详细得分</div></td>
</tr>
<tr class="tdmenu">
<td width="21%" align="center" valign="middle" class="jushe">月份 </td>
<td align="center" valign="middle" class="jushe">得分</td>
<td width="24%" align="center" valign="middle" class="jushe">个人申请分</td>
<td width="21%" align="center" valign="middle" class="jushe">部门加减分</td>
<td width="21%" align="center" valign="middle" class="jushe">详细得分理由</td>
</tr>
<%
dim j,k
j=2
k=0
do while not rs1.eof
if rs1(2)="0" then%>
<tr class="tdmenu">
<td align="center" valign="middle"><%=rs1(1)%> <%=rs1(0)%></td>
<td align="center" valign="middle"><%if rs(j+1)="0" then Response.Write("暂未生成") else Response.Write(rs(j+1)) end if%></td>
<td align="center" valign="middle">
<%=rs(j)%><input type="hidden" value="<%=tolist(rs(j+2))%>" id="gr<%=rs1(0)%>" />
<input type="hidden" value="<%=tolist(rs(j+4))%>" id="bm<%=rs1(0)%>" /> </td>
<td align="center" valign="middle" ><%=rs(j+3)%> </td>
<td align="center" valign="middle"><a href="#" onclick="todiv(gr<%=rs1(0)%>,bm<%=rs1(0)%>)">Detail</a></td>
</tr>
<%
j=j+5
end if
rs1.movenext
loop
k=j
%>
<tr class="tdmenu">
<td align="center" valign="middle" bgcolor="#DBE3DE"><span class="jushe"> 第一学期总分:</span><span class="hei"> <%if rs("firterm_mark")="0" then Response.Write("暂无") else Response.Write(rs("firterm_mark")) end if%>
</span></td>
<td align="center" valign="middle" bgcolor="#DBE3DE"><span class="jushe"> 特加分：</span><span class="hei"><%=rs("fir_spe_mark")%></span></td>
<td colspan="3" align="center" valign="middle" bgcolor="#DBE3DE"><div align="left"><span class="jushe">理由:</span><span class="hei"><%=rs("fir_spe_reason")%></span></div></td>
</tr>
<tr class="tdmenu">
<td align="center" valign="middle" class="jushe">月份 </td>
<td align="center" valign="middle" class="jushe">得分</td>
<td align="center" valign="middle" class="jushe">个人申请分</td>
<td align="center" valign="middle" class="jushe">部门加减分</td>
<td align="center" valign="middle" class="jushe">详细得分理由</td>
</tr>
<%
rs1.movefirst
do while not rs1.eof %>
<% if rs1(2)="1" then%>
<tr class="tdmenu">
<td align="center" valign="middle"><%=rs1(1)%> <%=rs1(0)%></td>
<td align="center" valign="middle"><%if rs(k+1)="0" then Response.Write("暂未生成") else Response.Write(rs(k+1)) end if%></td>
<td align="center" valign="middle"><%=rs(k)%>
<input type="hidden" value="<%=tolist(rs(k+2))%>" id="gr<%=rs1(0)%>" />
<input type="hidden" value="<%=tolist(rs(k+4))%>" id="bm<%=rs1(0)%>" /> </td>
<td align="center" valign="middle" ><%=rs(k+3)%> </td>
<td align="center" valign="middle" ><a href="#" onclick="todiv(gr<%=rs1(0)%>,bm<%=rs1(0)%>)">Detail</a></td>
</tr>
<%
k=k+5
end if
rs1.movenext
loop
%>
<tr class="tdmenu">
<td align="center" valign="middle" bgcolor="#DBE3DE"><span class="jushe"> 第二学期总分:</span><span class="hei"> <%if rs("sedterm_mark")="0" then Response.Write("暂无") else Response.Write(rs("sedterm_mark")) end if%>
</span></td>
<td align="center" valign="middle" bgcolor="#DBE3DE"><span class="jushe"> 特加分：</span><span class="hei"><%=rs("sed_spe_mark")%></span></td>
<td colspan="3" align="center" valign="middle" bgcolor="#DBE3DE"><div align="left"><span class="jushe">理由:</span><span class="hei"><%=rs("sed_spe_reason")%></span></div></td>
</tr>
<tr class="tdmenu">
<td rowspan="2" align="center" valign="middle" bgcolor="#DBE3DE" class="jushe">详细得分理由:</td>
<td align="left" valign="middle" bgcolor="#DBE3DE" class="jushe"><div align="center">个人申请:</div> </td>
<td colspan="3" align="left" valign="middle" bgcolor="#DBE3DE" ><div id="Layer1"></div></td>
</tr>
<tr class="tdmenu">
<td align="left" valign="middle" bgcolor="#DBE3DE" class="jushe"><div align="center">部门加分:</div></td>
<td colspan="3" align="left" valign="middle" bgcolor="#DBE3DE"><div id="Layer2"></div></td>
</tr>
</table>
<%end if
rs.close
set rs=nothing
rs1.close
set rs1=nothing
%>
</body>
</html>
<%dbconn.close%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -