📄 userindex.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")'><center>
<p align=center>所有已通过审核人员信息[系统设置显示<%=backgl%>条数据]
<p>
<%
num=backgl
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
response.write"<table border=1 bordercolor=#3399ff bgcolor=#ffeeee>"
response.write "<tr><td bgcolor=#eeeeee align=center><b>姓名</b></td><td bgcolor=#eeeeee align=center width=25% > <b>本月上交文章</b></td><td bgcolor=#eeeeee align=center><b>目前账号状态</b></td><td bgcolor=#eeeeee align=center><b>短信各项目总分</b></td><td bgcolor=#eeeeee align=center><b>任务项目总分</b></td><td bgcolor=#eeeeee align=center><b>缺席(<font color=red>"&quexi&"</font>次自动锁定)</b></td><td bgcolor=#eeeeee align=center><b>可执行操作</b></td></tr>"
do while not rs.eof and num>0
lk=rs("lock")
pname=rs("username")
wznum=rs("wznum")
latter=rs("latter")
taskfenall=rs("taskfenall")
dxfenall=rs("dxfenall")
id=rs("id")
%>
<%
if (lk=-1) then
lockcn="<font color=red>|锁定|"
else
lockcn="正常"
end if
%>
<tr><td align=center><%=pname %></td> <td align=center><% if (wznum=wenzhang) then %>
<font color=blue>完成</font><%elseif ( wznum>wenzhang) then %><font color=#ff5500>超额完成-(<%=wznum%></font><font color=pink>/</font><font color=black><%=wenzhang%></font>)</font><%else%><b>还差<font color=red><%=(wenzhang-wznum)%></font>篇-(<font color=red><%=wznum%></font><font color=pink>/</font><%=wenzhang%>)</b><%end if%></td>
<td align=center> <%=lockcn%></td><td align=center>
<%=dxfenall%></td><td align=center><%=taskfenall%>
</td><td align=center><% if (lk="-1") then %><font color=red><b><%=latter%></b></font><%else%><%=latter%><%end if%></td><td bgcolor=#ffaa88 align=center><a href=user_xiugai.asp?id=<%=id%>&action=xiugai>修改</a>
<% if session("qx")=1 then %>||
<a href=user_xiugai.asp?action=del&id=<%=id%>&name=<%=pname%> onclick="{if(confirm('想清楚了吗？\n\n真的删除吗?')){return true;}return false;}">删除</a><%end if%>
</td></tr>
<% rs.movenext
num=num-1
loop
response.write"</table>"
end if
rs.close
set rs=nothing
Response.Write "<center>一共有[<font color=red>"&pagenum&"</font>]页 "
Response.Write "[<a href=userindex.asp?page=1>首 页</a>] "
if curpage>1 then
Response.Write "[<b><a name=up href=userindex.asp?page=" & (curpage-1) & " >上一页</a></b> ] "
end if
if curpage<pagenum then
Response.Write "[<b><a name=down href=userindex.asp?page=" & (curpage+1) & " >下一页</a></b>] "
end if
Response.Write " [<a href=userindex.asp?page="&pagenum&">尾 页</a>]"
Response.Write " 当前是第[<font color=red>"&curpage&"</font>]页</center>"
rs.Close
set rs=nothing
cn.close
set cn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -