📄 more.asp
字号:
<% option explicit%>
<!--#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="login_article.asp">新闻管理</a>
<table width="90%" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="77%" align="center">新闻标题</td>
<td width="23%" 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><%=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=more.asp?page=<%=page-1%>>上一页</a>
<a href=more.asp?page=<%=page+1%>>下一页</a>
</div>
<p> </p><div align="center"><a href="news.asp">返回</a></div>
<div align="center"><a href="index.asp">返回首页</a></div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -