📄 list_article.asp
字号:
<% option explicit
if session("login")<>"yes" then
response.write "此页只限版主使用。"
response.End()
end if
%>
<!--#Include file="conn1.asp"-->
<!DOCTYPE HTML PUBLIC "-//w3c//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新闻管理</title>
</head>
<body BGCOLOR=#9933CC>
<h2 align="center">新闻管理</h2>
<a href="add_article.asp">添加新闻</a>
<table width="90%" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="69%" align="center">新闻标题</td>
<td width="17%" align="center">管理功能</td>
<td width="14%" align="center">添加时间</td>
</tr>
<%
dim sql,page,n
page=clng(request.QueryString("page"))
sql="Select * From article Order By id desc"
rs.open sql,conn1,1,1
IF rs.BOf And rs.Eof Then
response.Write("没有任何新闻。")
response.End()
end if
n=10
rs.pagesize=n
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page
Do WHile Not rs.Eof and n>0
%>
<tr>
<td><a href=detail.asp?id=<%=rs("id")%> target="_blank"><%=rs("title")%></a></td>
<td align="center"><a href="edit_article.asp?id=<%=rs("id")%>">修改</a>
<a href="del_article.asp?id=<%=rs("id")%>">删除</a>
</td>
<td><%=rs("inserttime")%></td>
</tr>
<%
rs.movenext
n=n-1
loop
rs.close
conn1.close
set rs=nothing
set conn1=nothing
%>
</table>
<div align="center"><a href=list_article.asp?page=<%=page-1%>>上一页</a>
<a href=list_article.asp?page=<%=page+1%>>下一页</a>
</div>
<p> </p><div align="center"><a href="more.asp">返回</a></div>
<div align="center"><a href="index.asp">返回首页</a></div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -