📄 admin_top_l.asp
字号:
<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="code.asp"-->
<%
'检查管理员是否登录
AdminName = ReplaceBadChar(Trim(Request.Cookies(webkey)("AdminName")))
AdminPassword = ReplaceBadChar(Trim(Request.Cookies(webkey)("AdminPassword")))
RndPassword = ReplaceBadChar(Trim(Request.Cookies(webkey)("RndPassword")))
If AdminName = "" Or AdminPassword = "" Or RndPassword = "" Then
Response.Redirect "Admin_login.asp"
End If
%>
<%
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<LINK href="image/style.css" rel=stylesheet>
<title><%=webname%></title>
</head>
<script>
function chkid()
{
document.form3316.action="admin_del.asp";
document.form3316.submit()
}
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}
</script>
<body leftMargin=0 bgcolor="#EFEFEF" topMargin=15>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#666666">
<tr>
<td bgcolor="#FFFFFF"> <a href="admin_list.asp">所有私服</a>
<%
Set Rs_type = Server.CreateObject("ADODB.RecordSet")
Sql_Type="select * from GameType order by orderid"
rs_type.open sql_type,conn,1,1
if rs_type.eof and rs_type.bof then
response.Write "没有分类，请到后台添加！"
else
do while not rs_type.EOF
response.Write "<a href=admin_list.asp?menu="&rs_type("id")&">"
if cint(rs_type("id"))=cint(menu) then
response.Write "<font color=red>"&rs_type("game")&"</font>"
else
response.Write rs_type("game")
end if
response.write "</a> "
rs_type.movenext
loop
rs_type.close
end if
%>
<a href="admin_ulock.asp">审核项</a> <a href="admin_top_l.asp"><font color="#FF0000">固定项</font></a></td>
</tr>
</table>
<br>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#666666">
<tr align="center" bgcolor="#EFEFEF">
<td width="5%"><b>ID</b></td>
<td width="8%"><b>私服类型</b></td>
<td width="20%"><b>私服名称</b></td>
<td width="18%"><b>私服IP</b></td>
<td width="18%"><b>发布时间</b></td>
<td width="18%"><b>固定时间</b></td>
<td><b>操作</b></td>
</tr>
<%
set rs = server.createobject("adodb.recordset")
sql="select SFdata.id,SFdata.name,SFdata.IP,SFdata.daikuan,SFdata.service,SFdata.renshu,SFdata.Sdate,SFdata.addr,SFdata.xingzhi,SFdata.main,SFdata.addname,SFdata.email,SFdata.homepage,SFdata.download,SFdata.addtime,SFdata.hits,SFdata.ulock,SFdata.top,SFdata.toptime,SFdata.gameid,Gametype.game"
sql=sql&" from SFdata,Gametype where SFdata.gameid=gametype.id and SFdata.top=1"
sql=sql&" order by SFdata.addtime desc"
'sql="select * from sfdata where top<>0 order by addtime,leixing desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'><font color=red>当前没有固定推荐的私服~！</font></p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"admin_top_l.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
showContent
showpage totalput,MaxPerPage,"admin_top_l.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"admin_top_l.asp"
end if
end if
rs.close
end if
sub showContent
dim i
i=0
response.write "<form method=post name=form3316 action=admin_top_s.asp>"
do while not rs.eof
%>
<tr bgcolor="#FFFFFF" onmouseover=javascript:this.bgColor='#EFEFEF' onmouseout=javascript:this.bgColor='#FFFFFF'>
<td align="center"><%=rs("id")%></td>
<td><%=rs("game")%></td>
<td><a href=admin_display.asp?id=<%=rs("id")%>><%=rs("name")%></a></td>
<td><%=rs("ip")%></td>
<td><%=rs("addtime")%></td>
<td><%if rs("top")<>0 then response.write "<font color=blue>"&rs("toptime")&"</font>"%></td>
<td align="center"><input name="sel" type="checkbox" id="sel" value="<%=rs("id")%>">
<%if rs("top")=0 then response.write "<a href=admin_top.asp?id="&rs("id")&"&act=top>顶</a>" else response.write "<a href=admin_top.asp?id="&rs("id")&"&act=utop><font color=red>解</font></a>" end if%>
<a href=admin_edit.asp?id=<%=rs("id")%>><font color="#008000">编</font></a></td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
response.write "<tr bgcolor=#FFFFFF><td colspan=7 align=center><input type=submit value=解固所有选取的记录> <input type=button value=删除所有选取的记录 onclick=chkid()> 选中当前所有记录<input type='checkbox' name='chkall' value='on' onclick='CheckAll(this.form)'></td></tr></form>"
end sub
%>
</table>
<%
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<tr bgcolor=#FFFFFF><form method=Post action="&filename&"?menu="&menu&"><td colspan=7 align=right>"
if CurrentPage<2 then
response.write "共"&totalnumber&"条记录 首页 上页 "
else
response.write "共"&totalnumber&"条记录 <a href="&filename&"?page=1&menu="&menu&">首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&menu="&menu&">上页</a> "
end if
if n-currentpage<1 then
response.write "下页 尾页"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&menu="&menu&">"
response.write "下页</a> <a href="&filename&"?page="&n&"&menu="&menu&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
response.write " <b>"&maxperpage&"</b>条记录/页 "
response.write "转：<select name='page' size=1 onchange=javascript:submit()>"
for i = 1 to n
response.write "<option value="&i&" "
if cint(Page)=cint(i) then
response.wirte "selected "
end if
response.write ">第"&i&"页</option>"
next
response.write "</select></td></form></tr>"
end function
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -