[这个贴子最后由blueboyss在 2004/11/12 09:39am 第 3 次编辑]
>[size=5]分页：[/size]我还没进行测试，大家测试一下
5、index.asp
源代码：
发表帖子
set showbbs=server.CreateObject("adodb.recordset")
sqlin="select * from bbs order by id desc"
if not isnumeric(request("page")) then
response.redirect("?page=1")
end if
showbbs.open sqlin,conn,1
showbbs.pagesize=4
if request.querystring("page")="" then
page=1
else
page=cint(request.querystring("page"))
end if
if not showbbs.eof then
showbbs.AbsolutePage=page
end if
%>
<%';利用for next 循环依次读出记录
For i = 1 to showbbs.PageSize
if showbbs.EOF then
Exit For
end if
%>
| <%=showbbs("name")%> |
"><%=showbbs("title")%> |
<%showbbs.MoveNext
next%>
<%if request("page")>1 then%>
首页
">上一页
<%end if %>
<%if cint(request("page")) < cint(showbbs.PageCount) then%>
下一页
尾页
<%
end if
showbbs.close
Set showbbs = Nothing
conn.close
set conn=nothing
%>
|
|
|
|
