⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 paiming.asp

📁 一个考勤评分系统
💻 ASP
字号:
<!--''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权:野马原创                    ''''
''''联系:ctplr@163.com          ''''
''''说明:需要新功能联系我      ''''
''''QQ:214297587                    ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
-->
<!--#include file="check.asp"-->
 <!--#include file="conn.asp"-->
<link href=../css.css rel=stylesheet>
<!--#include file="../webinfo.asp"-->
<!--#include file="config.asp"-->
<body background="../back.gif" style='cursor:url("Mouse.ani")'><br>
<%
sql="select pmlasttime from scunews"
rs.open sql,cn,1,1
pmlast=rs("pmlasttime")
rs.close
%>
 
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="3366ff" bgcolor="ffeeee">
  <tr>
      <td align="center" valign="middle" bgcolor="#eeeeee"><font color="#FF0000" size="5"><br>
        手动排名管理页面<br>
        </font> <br>
        [上次全体排名时间是 <%=pmlast%>]  [系统设置每页显示<%=paimingnum%>条数据]</td>
  </tr>
  <tr>
    <td   align="center" bgcolor="ffdede">
	<table border=1 bordercolor=#3366ee bgcolor=#ffeeee width=80%>
	<%
num=paimingnum
rs.PageSize=num
if Request.QueryString("page")<>"" then 
curpage=cint(Request.QueryString("page")) 
else
curpage=1
end if
sql="select * from scunews where noshenhe=1"
rs.open sql,cn,1,1

pagenum=rs.PageCount  
if curpage>pagenum then 
curpage=pagenum
end if 
rs.AbsolutePage =curpage
if (rs.eof and rs.bof)  then 
response.write "没有记录"
else
do while not rs.eof and num>0 
%>
<form action="paiming_do.asp?act=sinupdate" method="post" name=frm>
<tr>
            <td width=50%><%=rs("username")%> :::: <font color=red><%=rs("paiming")%> 
              </font> <font color="#CCCCCC">(排名时间)</font><font color="#777777"><%=rs("pmlasttime")%></font>::::</td>
            <td width=50%>修改排名 
              <input type=text name=pm maxlength=3 size=6 value=<%=rs("paiming")%> > 
 <input type=hidden name=aaid value=<%=rs("id")%>>
<input type=submit value="确认修改" ! class=ibox> 总分:<%=(rs("dxfenall")+rs("taskfenall"))%></td></tr>
</form>
<%
rs.movenext
num=num-1
loop
rs.close
set rs=nothing
Response.Write "<center>一共有[<font color=red>"&pagenum&"</font>]页  "
Response.Write "[<a href=paiming.asp?page=1>首 页</a>]  "
if curpage>1 then 
Response.Write "[<b><a name=up href=paiming.asp?page=" & (curpage-1) & " >上一页</a></b> ]&nbsp;"
end if
if curpage<pagenum then
Response.Write "[<b><a name=down href=paiming.asp?page=" & (curpage+1) & " >下一页</a></b>] "
end if 

Response.Write "  [<a href=paiming.asp?page="&pagenum&">尾 页</a>]"
Response.Write "  当前是第[<font color=red>"&curpage&"</font>]页</center>    "
end if%>
</table>	
	
	
	
	
	</td>
  </tr></form>
 <tr>
    <td align="center" valign="middle"  > 手动排名可以用于修改自动排名出现的一些问题,例如如果管理员不希望出现<font color=red>相同分数但是排名不同</font>的问题,就可以在这里解决。</td>
  </tr> 
</table>











⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -