📄 man_user_alllockgrade.asp
字号:
<%
Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
if not IsArray(Session("info")) then Response.Redirect "err.asp?kind=20"
info=Session("info")
if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"
gradeinfo=Application("gradeinfo")
if gradeinfo(info(1),24)<>true then Response.Redirect "err1.asp?kind=20"
nowpage=Request("page")
if nowpage="" then nowpage=1
nowpage=int(nowpage)
if nowpage<1 then nowpage=1
howturn=Request("turn")
del=CStr(Request("del"))
if howturn="" then howturn="user"
if howturn<>"" and howturn<>"value" and howturn<>"user" and howturn<>"lockuser" and howturn<>"touxian" and howturn<>"monthv" and howturn<>"times" and howturn<>"lastip" and howturn<>"lasttime" and howturn<>"grade" and howturn<>"lockgrade" then Response.Redirect "err.asp?kind=22"
Set Conn=server.createobject("ADODB.CONNECTION")
Conn.Open Application("zzbird_conn")
if del="yes" then
sql="update userinfo set lastmonth="&month(date)&",monthv=0 where lastmonth<>"&month(date)
conn.Execute(sql)
end if
Set Rs=server.createobject("adodb.recordset")
sql="select * from userinfo where lockgrade=true order by "&howturn&" desc"
rs.open sql,conn,3,3
rs.pagesize=20 '每页显示数
howpage=rs.pagecount '共几页
if nowpage>howpage then nowpage=howpage
if rs.recordcount<>0 then rs.absolutepage=nowpage '当前页
dim tuser
dim tlockuser
dim ttouxian
dim tvalue
dim tmonthv
dim ttimes
dim tlastip
dim tlasttime
dim tgrade
dim tlockgrade
set tuser=Rs("user")
set tlockuser=Rs("lockuser")
set ttouxian=Rs("touxian")
set tvalue=Rs("value")
set tmonthv=Rs("monthv")
set ttimes=Rs("times")
set tlastip=Rs("lastip")
set tlasttime=Rs("lasttime")
set tgrade=Rs("grade")
set tlockgrade=Rs("lockgrade")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>列出所有永久保留帐号</title>
<style>
<!--
input { width:100%; height:18; font-size:9pt }
-->
</style>
<script language="javascript">
function openwin(user){
window.open("seeinfo.asp?user="+user,"newwindow","height=310,width=290,left=150,top=60,resizable=no,scrollbars=auto,status=no,toolbar=no,menubar=no,location=no");
}
function man1(user){
window.open('man_user_changeinfo.asp?name='+user,'man','height=210,width=310,left=150,top=60,resizable=no,scrollbars=auto,status=no,toolbar=no,menubar=no,location=no');
}
function man2(user){
window.open('man_gradelock.asp?name='+user,'man','height=210,width=310,left=150,top=60,resizable=no,scrollbars=auto,status=no,toolbar=no,menubar=no,location=no');
}
function man3(user){
window.open('man_grade.asp?name='+user,'man','height=210,width=310,left=150,top=60,resizable=no,scrollbars=auto,status=no,toolbar=no,menubar=no,location=no');
}
function man4(user){
window.open('man_touxian.asp?name='+user,'man','height=210,width=310,left=150,top=60,resizable=no,scrollbars=auto,status=no,toolbar=no,menubar=no,location=no');
}
function man5(user,kind){
if(kind=='True')
{window.open('man_user_dellockuser.asp?name='+user,'man','height=210,width=310,left=150,top=60,resizable=no,scrollbars=auto,status=no,toolbar=no,menubar=no,location=no');}
else
{window.open('man_user_addlockuser.asp?name='+user,'man','height=210,width=310,left=150,top=60,resizable=no,scrollbars=auto,status=no,toolbar=no,menubar=no,location=no');}
}
function man6(user){
window.open('man_user_deluser.asp?name='+user,'man','height=210,width=310,left=150,top=60,resizable=no,scrollbars=auto,status=no,toolbar=no,menubar=no,location=no');
}
function man7(user){
window.open('man_user_changeinfo.asp?name='+user,'man','height=210,width=310,left=150,top=60,resizable=no,scrollbars=auto,status=no,toolbar=no,menubar=no,location=no');
}
</script>
</head>
<body oncontextmenu=self.event.returnValue=false style="border: 3px double buttonface; font-size:10pt" bgcolor="buttonface" link="#000000" vlink="#000000" alink="#800000">
<form method="POST" action="findotherok.asp" name="myform">
<fieldset style="padding: 2">
<legend><font color="#A20000"><img border="0" src="images/top.gif">列出所有永久保留帐号(E表示编辑,D表示删除)</font></legend>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; font-size: 10pt" bordercolor="#111111" width="100%" id="AutoNumber2">
<tr>
<td width="100%" style="border: 2px inset #FFFFFF" colspan="2">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; font-size: 9.5pt" width="100%" id="AutoNumber1">
<tr>
<td width="6%" height="16">
<input type="button" value="序" name="B8" onclick="alert('不能以此作为排序依据。');"></td>
<td width="14%" height="16">
<input type="button" value="用户昵称" name="b2" <%if howturn="user" then%>style="border: 2px inset #D4D0C8"<%else%> onclick="location.href='man_user_alllockgrade.asp?turn=user';"<%end if%>></td>
<td width="4%" height="16">
<input type="button" value="保留" name="b12" <%if howturn="lockuser" then%>style="border: 2px inset #D4D0C8"<%else%> onclick="location.href='man_user_alllockgrade.asp?turn=lockuser';"<%end if%>></td>
<td width="8%" height="16">
<input type="button" value="头衔" name="b14" <%if howturn="touxian" then%>style="border: 2px inset #D4D0C8"<%else%> onclick="location.href='man_user_alllockgrade.asp?turn=touxian';"<%end if%>></td>
<td width="6%" height="16">
<input type="button" value="总积分" name="b4" <%if howturn="value" then%>style="border: 2px inset #D4D0C8"<%else%> onclick="location.href='man_user_alllockgrade.asp?turn=value';"<%end if%>></td>
<td width="5%" height="16">
<input type="button" value="月积分" name="b15" <%if howturn="monthv" then%>style="border: 2px inset #D4D0C8"<%else%> onclick="location.href='man_user_alllockgrade.asp?turn=monthv';"<%end if%>></td>
<td width="5%" height="16">
<input type="button" value="来访数" name="b6" <%if howturn="times" then%>style="border: 2px inset #D4D0C8"<%else%> onclick="location.href='man_user_alllockgrade.asp?turn=times';"<%end if%>></td>
<td width="13%" height="16">
<input type="button" value="最后IP" name="b10" <%if howturn="lastip" then%>style="border: 2px inset #D4D0C8"<%else%> onclick="location.href='man_user_alllockgrade.asp?turn=lastip';"<%end if%>></td>
<td width="18%" height="16">
<input type="button" value="最后访问" name="b11" <%if howturn="lasttime" then%>style="border: 2px inset #D4D0C8"<%else%> onclick="location.href='man_user_alllockgrade.asp?turn=lasttime';"<%end if%>></td>
<td width="5%" height="16">
<input type="button" value="等级" name="b3" <%if howturn="grade" then%>style="border: 2px inset #D4D0C8"<%else%> onclick="location.href='man_user_alllockgrade.asp?turn=grade';"<%end if%>></td>
<td width="5%" height="16">
<input type="button" value="锁" name="b7" <%if howturn="lockgrade" then%>style="border: 2px inset #D4D0C8"<%else%> onclick="location.href='man_user_alllockgrade.asp?turn=lockgrade';"<%end if%>></td>
<td width="5%" height="16">
<input type="button" value="资料" name="b13" onclick="alert('不能以此作为排序依据。');"></td>
</tr>
<%for i=1 to rs.pagesize
if not Rs.Eof then%>
<tr>
<td width="6%" height="16"><%=(nowpage-1)*rs.pagesize+i%></td>
<td width="14%" height="16">
<%=tuser%>/<a href="javascript:man7('<%=tuser%>')">E</a>/<a href="javascript:man6('<%=tuser%>')">D</a>
</td>
<td width="4%" height="16">
<%if tlockuser=true then
Response.Write "是"
else
Response.Write "否"
end if
%>/<a href="javascript:man5('<%=tuser%>','<%=tlockuser%>')">E</a>
</td>
<td width="8%" height="16">
<%=ttouxian%>/<a href="javascript:man4('<%=tuser%>')">E</a>
</td>
<td width="6%" height="16"><%=tvalue%></td>
<td width="5%" height="16"><%=tmonthv%></td>
<td width="5%" height="16"><%=ttimes%></td>
<td width="13%" height="16"><%=tlastip%></td>
<td width="18%" height="16"><%=tlasttime%></td>
<td width="5%" height="16"><%=tgrade%>/<a href="javascript:man3('<%=tuser%>')">E</a></td>
<td width="5%" height="16">
<%if tlockgrade=true then
Response.Write "是"
else
Response.Write "否"
end if
%>/<a href="javascript:man2('<%=tuser%>')">E</a>
</td>
<td width="4%" height="16"><a href=javascript:openwin("<%=tuser%>");>查</a>/<a href=javascript:man1("<%=tuser%>")>E</a></td>
</tr>
<%
rs.movenext
else
%>
<tr>
<td width="6%" height="16"></td>
<td width="14%" height="16"></td>
<td width="4%" height="16"></td>
<td width="8%" height="16"></td>
<td width="6%" height="16"></td>
<td width="5%" height="16"></td>
<td width="5%" height="16"></td>
<td width="13%" height="16"></td>
<td width="18%" height="16"></td>
<td width="5%" height="16"></td>
<td width="5%" height="16"></td>
<td width="4%" height="16"></td>
</tr>
<%end if
next%>
</table>
</td>
</tr>
<tr>
<td width="61%">共<font color="#A20000"><%=rs.recordcount%></font>条，分<font color="#A20000"><%=howpage%></font>页
，当前<select size="1" name="nowpage" style="font-size: 8pt; color:#A20000" onchange="window.open(this.options[this.selectedIndex].value,'_self')">
<%for i=1 to howpage%>
<option value="man_user_alllockgrade.asp?turn=<%=howturn%>&page=<%=i%>" <%if nowpage=i then%>selected<%end if%>><%=i%></option>
<%next%>
</select>页</td>
<td width="39%" align="right"><%if nowpage=1 then%><font color="#808080">首页 上页</font> <%else%><a href="man_user_alllockgrade.asp?turn=<%=howturn%>&page=1">首页</a> <a href="man_user_alllockgrade.asp?turn=<%=howturn%>&page=<%=nowpage-1%>">上页</a><%end if
if nowpage=howpage then%>
<font color="#808080">下页 末页</font><%else%>
<a href="man_user_alllockgrade.asp?turn=<%=howturn%>&page=<%=nowpage+1%>">下页</a> <a href="man_user_alllockgrade.asp?turn=<%=howturn%>&page=<%=howpage%>">末页</a><%end if%></td>
</tr>
</table>
</fieldset><div align="center">
<input type="button" value=" 确 定 " name="B9" style="width: 76; height: 22" onclick="javascript:window.close();">
<input type="button" value=" 取 消 " name="B3" style="width: 76; height: 22" onclick="javascript:window.close();"></div>
<div align="right">
<a href="http://aspxer.com/go.aspx?action=nowchat" target="_blank"><font style="font-size: 8pt" color="#808080">NowChat 2.2 - Powered by 喳喳鸟</font></a></div>
</form>
</body>
</html>
<%
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -