📄 all.asp
字号:
<!--''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创 ''''
''''联系：ctplr@163.com ''''
''''说明：需要新功能联系我 ''''
''''QQ:214297587 ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
-->
<link href=css.css rel=stylesheet>
<style>
<!--
.ffffff {
font-size: 9pt;
border:0
color:#ffffff;
text-decoration: none;
line-height: 20px;
}
-->
</style>
<!--#include file="conn.asp"-->
<!--#include file="webinfo.asp"-->
<!--#include file="fun.asp"-->
<title><%=webname%>-察看所有已审核人员积分</title>
<body background="back.gif" style='cursor:url("admin/Mouse.ani")'><center>
<table width="740" height="631" border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3">
<!--#include file=top.asp-->
</td>
</tr>
<tr >
<td width="180" height="28" align="center" background="images/NavBG.gif" bgcolor="#FFcc99"><font color="#666666">::管理入口::</font><br></td>
<td width="560" rowspan="5" align="center" valign="top"><table width="560" border="0" cellpadding="0" cellspacing="0">
<tr >
<td height="28" colspan="3" align="center" background="images/NavBG.gif"><font color=#666666>滚动公告</font><font color=red>栏</font>
<marquee scrolldelay=0 scrollamount=3 onMouseOver="this.scrollDelay=200" onMouseOut="this.scrollDelay=30" width=80%>
<font color="#FF0000">:
<%call annouce()%>
:</font> </marquee></td>
</tr>
<tr bgcolor="eeeeee">
<td height="30" colspan="3" align="center">所有<font color="#FF0000">已审核</font>人员积分<br>
[系统设置每页显示<font color=red><%=indexnum%></font>条数据] </td>
</tr>
<tr>
<td width="6%"> </td>
<td width="90%" align="center"><table width="100%" height="94" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align=center>
<%
rs.PageSize=indexnum
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
%>
<table border=1 bordercolor=#3399ff bgcolor=#ffeeee>
<tr>
<td align=center bgcolor=#eeeeee >姓名</td>
<td align=center bgcolor=#eeeeee > 总短信条数</td>
<td bgcolor=#eeeeee align=center >总分</td>
<td bgcolor=#eeeeee align=center >总加分</td>
<td bgcolor=#eeeeee align=center >账号状态</td>
<% if isquexi=0 then %>
<td bgcolor=#eeeeee align=center >缺席次数</td>
<%end if%>
<% if iswenzhang=0 then %>
<td bgcolor=#eeeeee align=center title="今天是<%=date()%>">本月文章</td>
<%end if%>
<% if ispaiming=0 then %>
<td bgcolor=#eeeeee align=center >总分排名</td>
<%end if%>
</tr>
<% do while not rs.eof and indexnum>0
name=rs("username")
dxall=rs("dxnum")
fendx=rs("dxfenall")
fentask=rs("taskfenall")
allfen=int(fendx)+int(fentask)
addfen=(int(rs("dxaddfenall"))+int(rs("taskaddfen")))
lockstaut=rs("lock")
id=rs("id")
quexi1=rs("latter")
wz=rs("wznum")
paiming=rs("paiming")
%>
<tr>
<td align=center>
<% if lockstaut=-1 then %><font color=red title="被锁定">
<b ><%=name %></b >
<%else%>
<%=name %>
<%end if%>
</td>
<td align=center>
<% if lockstaut=-1 then %><font color=#aaaaaa title="被锁定">
<%=dxall %>
<%else%>
<%=dxall %>
<%end if%>
</td>
<td align=center>
<% if lockstaut=-1 then %><font color=#aaaaaa title="被锁定">
<%=allfen %>
<%else%>
<%=allfen %>
<%end if%>
</td>
<td align=center>
<% if lockstaut=-1 then %><font color=#aaaaaa title="被锁定">
<%=addfen %>
<%else%>
<%=addfen %>
<%end if%>
</td>
<td align=center>
<% if lockstaut=-1 then %>
<a href=login.asp title="登陆看看具体情况"><font color=red>锁定</font></a>
<%else%>
正常
<%end if%>
</td>
<% if isquexi=0 then %>
<td align=center width=50>
<% if lockstaut=-1 then %><font color=#aaaaaa title="被锁定">
<%=quexi1 %>
<%else%>
<%=quexi1 %>
<%end if%>
</td>
<%end if%>
<% if iswenzhang=0 then %>
<td align=center width=50>
<% if lockstaut=-1 then %><font color=#aaaaaa title="被锁定">
<%=wz %>
<%else%>
<%=wz %>
<%end if%>
</td>
<%end if%>
<% if ispaiming=0 then %>
<td align=center>
<% if lockstaut=-1 then %><font color=#aaaaaa title="被锁定">
<%=paiming%> <%else%>
<%=paiming%>
<%end if%>
<%end if%>
</td>
</tr>
<% rs.movenext
indexnum=indexnum-1
loop
response.write"</table>"
end if
rs.close
set rs=nothing
Response.Write "<center>一共有[<font color=red>"&pagenum&"</font>]页 | "
Response.Write "[<a href=all.asp?page=1>首 页</a>] "
if curpage>1 then
Response.Write "[<b><a name=up href=all.asp?page=" & (curpage-1) & " >上一页</a></b> ] "
end if
if curpage<pagenum then
Response.Write "[<b><a name=down href=all.asp?page=" & (curpage+1) & " >下一页</a></b>] "
end if
Response.Write " [<a href=all.asp?page="&pagenum&">尾 页</a>]"
Response.Write " 当前是第[<font color=red>"&curpage&"</font>]页</center>"
rs.Close
set rs=nothing
cn.close
set cn=nothing
%>
</td>
</tr>
</table> </td>
<td width="4%"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="107" width="180"bgcolor="#FFeeee">
<%if (session("name")="" ) then%>
<!--#include file=login.asp-->
<%else if session("qx")<4 then%>
<%response.write "<center><font color=red>"&session("name")&"</font><br>您已经登陆为<br><font color=red>管理员<br></center>"%>
<%response.write "<center><a href='admin/adminindex.asp'>进入管理面板<br>"%>
<%response.write "<center><a href='guestbook/index.asp'>我有话说<br>"%>
<%response.write "<center><a href='admin/logindo.asp?action=loginout'>退出管理模式<br>"%>
<%else if session("qx")=4 then%>
<%response.write "<center><font color=red>"&session("name")&"</font><br>您已经登陆为<br>流动管理员<br></center>"%>
<%response.write "<center><a href='admin/adminindex.asp'>进入管理页面<br>"%>
<%response.write "<center><a href='guestbook/index.asp'>我有话说<br>"%>
<%response.write "<center><a href='admin/logindo.asp?action=loginout'>退出管理模式<br>"%>
<%elseif session("qx")=5 then %>
<%response.write "<center><font color=red>"&session("name")&"</font><br>您已经登陆<br></center>"%>
<%response.write "<center><a href='userinf.asp'>察看我的所有资料<br>"%>
<%response.write "<center><a href='userpass.asp'>修改我的所有资料<br>"%>
<%response.write "<center><a href='guestbook/index.asp'>我有话说<br>"%>
<%response.write "<center><a href='admin/logindo.asp?action=loginout'>退出登陆<br>"%>
<%end if%>
<%end if%>
<%end if%>
</td>
</tr>
<tr>
<td width="180" height="28" align="center" background="images/NavBG.gif" bgcolor="#ffeeee"><font color="#333333">::近期任务::</font></td>
</tr>
<tr>
<td height="150" bgcolor="#FFeeee">
<%call task()%>
</td>
</tr>
<tr>
<td height="300" > </td>
</tr>
</table>
</center>
<!--#include file="foot.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -