Question

求asp分页显示在内容上面的代码？

救命呀！！！要求是在内容上面显示的数字分页，求代码？？？不要函数，不会用。。。

Answer 1

<%
dim pisze,pcount,i,page
set rs=server.createobject("adodb.recordset")
rs.open "select id,title from news order by id desc",conn,1,1
psize=10
rs.pagesize=psize
pcount=rs.pagecount
page=request("page")
if page="" or not isnumeric(page) then
page=1
else
page=cint(page)
end if
if page<1 then page=1
if page>pcount then page=pcount
rs.absolutepage=page
i=1
%>
<a href="?page=1">首页</a>|<a href="?page=<%=page-1%>">上一页</a>|<a href="?page=<%=page+1%>">下一页</a>|<a href="?page=<%=pcount%>">尾页</a>
<%
do while not rs.eof and i<=psize
%>
<a href="show.asp?id=<%=rs("id")%>" target="_blank"><%=rs("title")%></a>
<%
rs.movenext
i=i+1
loop
rs.close
set rs=nothing
%>
'具体的细节自己修改

追问

谢谢，，我想要 上面 那种形式的，不会改？

追答

呵呵，原理是上面我给的代码，你发的图的用样式来控制下就行了，代码添加进去，就好了。。

追问

不是 ，我是想要数字分页的形式，麻烦 如果可以 帮忙给改一下，谢谢了！！！

追答

'以下是我写的一个分页函数，你可以根据需要改下,不改直接调用也行
0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
if pcount"&p&" ")
else
response.write(""&p&" ")
end if
next
else

if (page-2)>0 and (page+2)"&p&" ")
else
response.write(""&p&" ")
end if
next
end if

if (page-2)"&p&" ")
else
response.write(""&p&" ")
end if
next
end if

if (page+2)> pcount then
for p=pcount-4 to pcount
if p=page then
response.write(""&p&" ")
else
response.write(""&p&" ")
end if
next
end if
end if
End Sub
%>

Answer 2

C、C++、JAVA都是完整的通用平台的语言。通俗的说，就是它们可以编写任何程序并可以在大部分硬件系统和操作系统中运行，C++、JAVA都是在C语言基础上发展起来的，在表达形式上三者很相似。区别是，C是面向过程语言，就是说，其编程核心是逻辑流程。C++和Java是面向对象语言，简单的说，是以数据为中心进行编程。这三门语言现在都有强大的生命力，从使用范围上大略可以按照Java——C——C++的顺序排列。特别的，c语言非常适合底层开发，具有独一无二的优势，而且具有基础学习的意义，可以大大地帮助两外两门语言的学习。

Answer 3

<%
set conn = server.CreateObject("adodb.connection")
connstr = "provider=microsoft.jet.oledb.4.0;data source ="&server.MapPath("/mydb.mdb")
conn.open connstr
set rs = server.CreateObject("adodb.recordset")
sql = "select * from news"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.Write("暂无数据")
else
page = request.QueryString("page")
rs.pagesize = 2
pcounts = rs.pagecount
if page="" or page<1 then
page = 1
elseif page>pcounts then
page = pcounts
end if
rs.absolutepage = page
%>
<table>
<tr><td><a href="page.asp?page=1">最新</a></td><td><a href="page.asp?page=<%=page%>"><%=page%></a></td><td><a href="page.asp?page=<%=page+1%>"><%=page+1%></a></td><td><a href="page.asp?page=<%=page+2%>"><%=page+2%></a></td><td><a href="page.asp?page=<%=page+3%>"><%=page+3%></a></td><td><a href="page.asp?page=<%=page+4%>">下一页</a></td></tr>
</table>
<%
for i=1 to rs.pagesize
%>
<div id="id1"><div><img src="<%=rs("imagepath")%>" /></div><div><%=rs("title")%></div><div><%=rs("content")%></div></div>
<%
rs.movenext
if rs.eof then exit for
next
end if
rs.close
set rs = nothing
conn.close
set conn =nothing
%>

追问

这个 有点儿牵强了。。。如果有一百页，那要一直写下去吗？

追答

不会，100页也可以，点下一页自动跳到5页，然后9页，以此类推

追问

不可以的，点2的时候 不可以浏览第二页，页数一下就变成5678了。。。还有 没办法查看前一页

追答

你有没试过，怎么可能点第二页的时候就不会出现第二页？

最新">">">">">下一页

看参数，前一页功能是没有，只要加上">前一页就行了

追问

真的试过了 ，，就是不可以呢！！！

追答

不是叫你直接拷过去，某些地方是要修改，而且我写的代码也不见得就能通过，可能有错误，我只是把这种思路告诉你，就是显示当前页的同时显示后面三个页面然后下一页是显示后面第四页，最新页显示的是第一页