📄 admin_info.asp
字号:
<!--#include file="adminconn.inc"-->
<%
if session("aleave")="" then
response.redirect "adminlogin.asp"
response.end
end if
%>
<html>
<head>
<LINK href="../css.css" type=text/css rel=stylesheet>
<meta name="keywords" content="owen,主页，个人主页，新闻，新闻发布，新闻发布管理系统，宁乡热线，楚沩音乐">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理新闻</title>
</head>
<body >
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td width="5%" height="25" align="center" bgcolor="#CCCCCC">ID</td>
<td width="25%" align="center" bgcolor="#CCCCCC">新闻标题</td>
<td width="10%" align="center" bgcolor="#CCCCCC">发布者</td>
<td width="15%" align="center" bgcolor="#CCCCCC">所属一级分类</td>
<td width="15%" align="center" bgcolor="#CCCCCC">所属二级分类</td>
<td width="20%" align="center" bgcolor="#CCCCCC">发布日期</td>
<td width="10%" align="center" bgcolor="#CCCCCC">操作</td>
</tr>
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from NEWS order by id desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("没有记录")
else
rs.PageSize=10
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
%>
<tr bgcolor="#FFFFFF">
<td height="22" align="center"><%=rs("id")%></td>
<td>
<% if rs("imagenum")<>"0" then response.write "<img src='../images/news.gif' border=0 alt='图片新闻'>" end if %>
<a href="../ONEWS.asp?id=<%=rs("id")%>" target="_blank" title="<%=rs("title")%>"><%=left(rs("title"),12)%></a></td>
<td align="center"><%=left(rs("user"),5)%></td>
<td align="center"><%=rs("BigClassName")%> </td>
<td align="center"><%=rs("SmallClassName")%></td>
<td align="center"><%=rs("infotime")%></td>
<td align="center"><a href="admin_infomodi.asp?id=<%=rs("id")%>">修改</a> <a href="admin_infodel.asp?id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
%>
</table>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
<tr bgcolor="#FFFFFF">
<form method=Post action="admin_info.asp">
<td height="30" align="center">
<%if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href=admin_info.asp?page=1>首页</a> "
response.write "<a href=admin_info.asp?page=" & Page-1 & ">上一页</a> "
end if
if rs.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write "<a href=admin_info.asp?page=" & (page+1) & ">"
response.write "下一页</a> <a href=admin_info.asp?page="&rs.pagecount&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
response.write " 共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
response.write " <input class=input type='submit' value=' Goto ' name='cndok'></span></p>"
%>
</td></form>
</tr>
</table>
<%
end if
rs.close
set rs=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -