teary2365

在读取ASP数据时，ASP文件代码如下：
<%
Dim listcount
Dim rs
Set rs = conn.execute("select count(*) from [news] where projectsID=1")
listcount = rs(0)
Set rs = nothing
Set rs = conn.execute("select id,title,time from [news] where projectsID =1 order by id desc")
if Not(rs.eof and rs.bof) then
Response.Write "&postback=true"
for i=1 to listcount
response.Write "&id"&i&"="&Server.URLEncode(rs(0))
response.Write "&username"&i&"="&Server.URLEncode(rs(1))
response.Write "&subject"&i&"="&Server.URLEncode(rs(2))
response.Write "&writetime"&i&"="&Server.URLEncode(rs(3))
rs.Movenext
Next
Set rs=nothing
call closeDB()
Response.write "&listcount="&listcount
else
Response.Write "&postback=false"
Response.End()
end if
%>

请问如何加上分页呢？

darkelf

在head加入
连接数据库
<%
dim mainmdb
mainmdb="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("数据库文件路径")
Set alldata=Server.CreateObject("ADODB.Connection")
alldata.Open mainmdb
%>
body里的代码
设置分页函数
<%
if request("page")<>"" then
page=cint(request("page"))
else
page=1
end if
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From 数据表名称 order by number desc",alldata,1,1
if rs.eof then
response.Write("error")
else
pagesize=4
rs.pagesize=pagesize
t=0
rs.absolutepage=page
do while not rs.eof
%>
判断分页函数
<%
for i=0 to 1
if not rs.eof then%>
调用
<%=rs("字段名称")%>
如果放在链接或图片里
<a href=<%=replace(rs("字段名称"),"#","")%> target="_blank">
分页
<%if rs.pagecount<>1 and rs.pagecount<>0 then%>
<!--page=number-->
<%if page>1 then%><%if page<rs.pagecount then %><a href="页面名称.asp?Page=<% = 1%>" style=text-decoration:none>最新</a>     
<a href="页面名称.asp?Page=<% = page -1 %>" style=text-decoration:none>前面</a>     
<a href="页面名称.asp?Page=<% = page + 1%>" style=text-decoration:none>后面</a>     <a href="页面名称.asp?Page=<% = rs.PageCount%>" style=text-decoration:none>最后</a><%else%>     <a href="games.asp?Page=<% = 1%>" style=text-decoration:none>最新</a>     
<a href="页面名称.asp?Page=<% = page -1 %>" style=text-decoration:none>前面</a>     
后面     最后<% end if %><%else%>最新     前面     
<a href="页面名称.asp?Page=<% = page + 1%>" style=text-decoration:none>后面</a>     <a href="页面名称.asp?Page=<% = rs.PageCount%>" style=text-decoration:none>最后</a>     <%end if %><%else%>最新     前面     后面     最后<%end if%>     共<font color="#FF0000"><%=rs.recordcount%></font>个项目     第<font color="#FF0000"><%=page%></font>页     共<font color="#FF0000"><%=rs.PageCount%></font>页</font>
关闭数据库
<%
rs.close
set rs=nothing
end if        
%>
具体可以例见我的网站－
http://sckj-china.com/darkelf
里的 游戏 页面

[ 本帖最后由 darkelf 于 2007-8-22 10:48 编辑 ]