📄 admin_class.asp
字号:
<!--#include file="mdb.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='admin_login.asp';</script>")
Response.End
End if
if not request("pn")="" then pn=ReplaceBadChar(Trim(request("pn")))
if not request("leibie")="" then leibie=ReplaceBadChar(Trim(request("leibie")))
if not leibie="" then
s_sql="where classid="&leibie
s_list="&leibie="&leibie
end if
%>
<html>
<head>
<title>分类列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK REL="stylesheet" HREF="css.css" TYPE="text/css">
</head>
<body>
<table width="96%" border="0" cellspacing="1" cellpadding="8" align="center" class="b">
<tr>
<td align="center">分类列表</td>
</tr></table>
<table width="96%" border="0" cellspacing="1" cellpadding="8" align="center" class="a">
<tr>
<td>序号</td>
<td>分类名称</td>
<td>分类等级</td>
<td>相关网站</td>
<td>审核情况</td>
<td>修改</td>
<td>删除</td>
</tr>
<%
if pn="" then pn=1
set r=server.createobject("adodb.recordset")
r.open "select * from [O3888_class] "&s_sql&" order by [level],[classid] desc",conn,1,3
if r.bof or r.eof then
Response.write "<tr><td colspan='9'>没有找到相关记录！</td></tr>"
else
r.pagesize=20
r.absolutepage=pn
rowcount=r.pagesize
do while not r.eof and rowcount>0
if r("verity")=1 then
verity="正常"
else
verity="<font color=red>锁定</font>"
end if
response.write "<tr><td>"&r("classid")&"</td>"
response.write "<td>"&r("classname")&"</td>"
response.write "<td>"&r("level")&"</td>"
response.write "<td><a href='admin_url.asp?classid="&r("classid")&"'>查看详情</a></td>"
response.write "<td>"&verity&"</td>"
response.write "<td><a href='admin_class_edit.asp?classid="&r("classid")&"'>修改</a></td>"
response.write "<td><a href='admin_class_delete.asp?classid="&r("classid")&"'>删除</a></td></tr>"
rowcount=rowcount-1
r.movenext
loop
end if
%>
<tr>
<td colspan="9">
<%
ppage=pn-1
npage=pn+1
totalpage=r.pagecount
if pn=1 then ppage=1
if cint(pn)=cint(totalpage) then npage=1
if cint(totalpage)>cint(pn) then
%>
<a href='<%=request.servervariables("script_name")%>?pn=1<%=s_list%>'>首页</a>
<a href='<%=request.servervariables("script_name")%>?pn=<%=totalpage%><%=s_list%>'>最后一页</a>
<a href='<%=request.servervariables("script_name")%>?pn=<%=ppage%><%=s_list%>'>上一页</a>
<a href='<%=request.servervariables("script_name")%>?pn=<%=npage%><%=s_list%>'>下一页</a>
每页显示<%=r.pagesize%>个分类，当前第<%=pn%>页，总共<%=totalpage%>页
<%
else
if pn=1 then
%>
<a href='<%=request.servervariables("script_name")%>?pn=1<%=s_list%>'>首页</a>
<a href='<%=request.servervariables("script_name")%>?pn=<%=totalpage%><%=s_list%>'>最后一页</a>
<a href='<%=request.servervariables("script_name")%>?pn=<%=npage%><%=s_list%>'>下一页</a>
每页显示<%=r.pagesize%>个分类，当前第<%=pn%>页，总共<%=totalpage%>页
<%
else
%>
<a href='<%=request.servervariables("script_name")%>?pn=1<%=s_list%>'>首页</a>
<a href='<%=request.servervariables("script_name")%>?pn=<%=totalpage%><%=s_list%>'>最后一页</a>
<a href='<%=request.servervariables("script_name")%>?pn=<%=ppage%><%=s_list%>'>上一页</a>
每页显示<%=r.pagesize%>个分类，当前第<%=pn%>页，总共<%=totalpage%>页
<%
end if
end if
%>
</td></tr>
<tr>
<td align="center" colspan="9">[<A href='http://www.03888.com/' target=_blank>03888网址大全</A>]</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -