📄 list.asp
字号:
<!--#include file="conn/db.asp"-->
<html>
<head>
<title>Asp/Javascript</title>
</head>
<body>
<table>
<tbody>
<%
page=getpage(request.QueryString("page"))
set rs=server.CreateObject("adodb.recordset")
rs.pagesize=2
sql = "select * from bbs order by id "
rs.open sql,conn,3,2
if rs.eof then
p "当前没有留言信息"
else
ipage=0
rs.absolutepage=page
do while not rs.eof and ipage<rs.pagesize
%>
<tr>
<td><%=rs("name")%></td><td><%=rs("title")%></td><td><%=rs("phone")%></td><td><%=rs("address")%></td><td><%=rs("content")%></td><td><%=rs("email")%></td>
</tr>
<%
ipage=ipage+1
rs.movenext
loop
%>
<div id="page">
共<%= rs.recordcount %>条留言 每页<%= rs.pagesize %>条 页次:<%=page%>/<%= rs.pagecount %>
<% If page=1 Then %>
首页
上页
<% else %>
<a href="javascript:void(0)" onclick="scroll(0,0);getdata('file.asp?action=birdman&page=1','echomsg','contentdata');"><strong>首页</strong></a>
<a href="javascript:void(0)" onclick="scroll(0,0);getdata('file.asp?action=birdman&page=<%=(page-1)%>','echomsg','contentdata');"><strong>上页</strong></a>
<% end if %>
<% If page=rs.pagecount Then %>
下页
尾页
<% else %>
<a href="javascript:void(0)" onclick="scroll(0,0);getdata('file.asp?action=birdman&page=<%=(page+1)%>','echomsg','contentdata');"><strong>下页</strong></a>
<a href="list.asp?page=<%=rs.pagecount%>"><strong>尾页</strong></a>
<% end if %>
跳转:
<select onChange="scroll(0,0);getdata('file.asp?action=birdman&page='+this.value,'echomsg','contentdata')">
<% for i=1 to rs.pagecount
p "<option value="""&i&""""
if page=i then p "selected=""selected"""
p ">"&i&"</option>"
next %>
</select>
</div>
<%
end if
rs.close
set rs=nothing
%>
</tbody>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -