📄 lock.asp
字号:
<!--''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创 ''''
''''联系：ctplr@163.com ''''
''''说明：需要新功能联系我 ''''
''''QQ:214297587 ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
-->
<!--#include file="check.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="../webinfo.asp"-->
<link href=../css.css rel=stylesheet>
<body background="../back.gif" style='cursor:url("Mouse.ani")'><center>
<p align=center>被锁定人员 [设定每页显示<%=backlock%>个]
<p>
<%
num=backlock
rs.PageSize=num
if Request.QueryString("page")<>"" then
curpage=cint(Request.QueryString("page"))
else
curpage=1
end if
sql="select * from scunews where lock=-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 width='600' bgcolor=#ffeeee>"
response.write "<tr><td align=center bgcolor=#eeeeee width=50>姓名</td><td align=center bgcolor=#eeeeee > 锁定原因</td><td bgcolor=#eeeeee align=center width=50>缺席次数</td><td bgcolor=#eeeeee align=center width=80>解锁</td> </tr>"
do while not rs.eof and num>0
name=rs("username")
latter=rs("latter")
lockstaut=rs("lock")
back=rs("lockback")
id=rs("id")
%>
<tr>
<td align=center> <font color=#aaaaaa title="被锁定"><%=name %> </td>
<td align=center>
<% if trim(back)=empty then
if (int(latter)<int(quexi)) then
response.write"<font color=red >未知原因</font>"
else
response.write"<font color=red >缺席次数达到或超过"&quexi&"次，系统自动锁定</font>"
end if
else %>
<textarea rows=2 cols=30 >
<%=back%></textarea>
<%end if%>
</td>
<td align=center><%=latter %> </td>
<td align=center><a href=unlock.asp?action=all&id=<%=id%> onclick="{if(confirm('确认解锁?')){return true;}return false;}">解锁</a> </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=lock.asp?page=1>首 页</a>] "
if curpage>1 then
Response.Write "[<b><a name=up href=lock.asp?page=" & (curpage-1) & " >上一页</a></b> ] "
end if
if curpage<pagenum then
Response.Write "[<b><a name=down href=lock.asp?page=" & (curpage+1) & " >下一页</a></b>] "
end if
Response.Write " [<a href=lock.asp?page="&pagenum&">尾 页</a>]"
Response.Write " 当前是第[<font color=red>"&curpage&"</font>]页</center> "
%>
<a href=unlock.asp?action=allunlock onclick="{if(confirm('确认全部解锁?')){return true;}return false;}">[全部解锁]</a>
<a href=unlock.asp?action=alllock onclick="{if(confirm('确认锁定全部?')){return true;}return false;}">[锁定全部]</a>
<%
rs.Close
set rs=nothing
cn.close
set cn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -