📄 manupdowngrade.asp

📁 此程序为网上下载
💻 ASP
字号:
<%@ codepage ="936" %>
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
nickname=Session("hxf_u_nickname")
grade=Int(Session("hxf_u_grade"))
if nickname="" then Response.Redirect "manerr.asp?id=100"
if grade<>12 then Response.Redirect "manerr.asp?id=130"
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj=n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m
page=Request.QueryString("page")
if page="" then page=1
if Not(IsNumeric(page)) then page=1
if page<1 then page=1
page=int(page)
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("wsaxhg_connstr")
conn.open connstr
sql="SELECT username,grade,times,value,mvalue,lasttime,lastip FROM reginfo WHERE kill='0' AND grade>=6 ORDER BY grade DESC"
rs.open sql,conn,1,1
rs.PageSize=30
totalrec=rs.RecordCount
totalpage=rs.PageCount
if page>totalpage then page=totalpage
if totalrec>0 then
 rs.AbsolutePage=page
 p=1+(page-1)*rs.PageSize
 Dim show()
 i=0
 j=1
 Do while (Not rs.Eof) and (i<rs.PageSize)
  Redim Preserve show(j),show(j+1),show(j+2),show(j+3),show(j+4),show(j+5),show(j+6)
  show(j)=rs("username")
  show(j+1)=rs("grade")
  show(j+2)=rs("times")
  show(j+3)=rs("value")
  show(j+4)=rs("lasttime")
  show(j+5)=rs("lastip")
  show(j+6)=rs("mvalue")
  i=i+1
  j=j+7
 rs.MoveNext
 Loop
end if
rs.close
conn.close
set rs=nothing
set conn=nothing%><html>
<head>
<title>帐号管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="readonly/style.css">
<script Language=JavaScript>
function g(v1, v2){
 if(v2 == 0){
  url = "mangradedown2.asp?id=" + v1;
 }
 else{
  url = "mangradeup2.asp?id=" + v1;
 }
 window.open(url, "", "width=380,height=120");
}
</script>
</head>
<body bgcolor="#FFFFFF" class=p150>
<div align="center">
<h1><font color="0099FF">【投票系统】</font></h1>
<font color="#FF0000">【原有版主级别调整】</font> <br>
<a href="javascript:history.go(0)">【刷新】</a><a href="poll.asp">【返回】</a>
</div>
<hr noshade size="1" color=009900>
<b>［注意事项］</b><br>
　　共有版主帐号 <font color=red><%=totalrec%></font> 个。<%if totalrec>0 then%>  
<hr noshade size="1" color=009900> 
<div align=center> 
<%for i=1 to totalpage 
if page=i then 
 Response.Write " [" & i & "]" 
else 
 Response.Write " <a href=manupdowngrade.asp?page=" & i & ">[" & i & "]</a>" 
end if 
next%></div> 
<hr noshade size="1" color=009900> 
<table border="0" cellspacing="1" cellpadding="6" bordercolorlight="#999999" bordercolordark="#FFFFFF" bgcolor="#319AFF" align="center" bordercolor="#319AFF" width="100%"> 
  <tr bgcolor="#3399FF">  
<td align="center"><font color="#FFFFFF">序</font></td> 
<td align="center"><font color="#FFFFFF">用户名</font></td> 
<td align="center"><font color="#FFFFFF">等级</font></td> 
<td align="center"><font color="#FFFFFF">次数</font></td> 
<td align="center"><font color="#FFFFFF">经验值</font></td> 
<td align="center"><font color="#FFFFFF">月积分</font></td> 
<td align="center"><font color="#FFFFFF">最后时间</font></td> 
<td align="center"><font color="#FFFFFF">最后ＩＰ</font></td> 
<td align="center"><font color="#FFFFFF">调级</font></td> 
</tr> 
<%for i=1 to UBound(show) step 7%>  
  <tr onmouseout="this.bgColor='#F0F0F0';"onmouseover="this.bgColor='#DFEFFF';" bgcolor="#f0f0f0">  
    <td><%=(page-1)*30+(i+6)/7%></td> 
    <td><%=show(i)%></td> 
    <td><%=show(i+1)%></td> 
    <td><%=show(i+2)%></td> 
    <td><%=show(i+3)%></td> 
    <td><%=show(i+6)%></td> 
    <td><%=show(i+4)%></td> 
    <td><%=show(i+5)%></td> 
    <td align="center"><a href='javascript:g("<%=show(i)%>",0)'>降级</a> <a href='javascript:g("<%=show(i)%>",1)'>升级</a></td> 
</tr> 
<%next%>  
</table> 
<%end if%> 
<hr noshade size="1" color=009900> 
<div align=center class=cp><%Response.Write "序列号：<font color=blue>" & Application("wsaxhxf_c_sn") & "</font>，授权给：<font color=blue>" & Application("wsaxhxf_c_user") & "</font><br><font color=999999>" & Application("wsaxhxf_c_copyright") & "</font>"%></div> 
</body> 
</html>
⌨️ 快捷键说明

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