大家帮帮忙,急用,哪里有像google.com类似的asp分页程序?

mignwoo 2003-08-26 06:57:56

大家帮帮忙,哪里有像google.com类似的asp分页程序?

...全文

38 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

萝卜波 2003-08-27

打赏
举报

效果

http://www.horizoncoltd.com/index/query.asp?cpage=1&maintype=0&keyword=%25&typenam=

那部分分页代码

<table width=100% border=0 cellpadding=0 cellspacing=0 bordercolor="#008000" bordercolorlight="#0000cc" bordercolordark="#FFFFFF">
<tr align=center height=30 >

<td width=60%>
<%if cpage>10 then%> <a href=../index/query.asp?<%Response.Write condi & "&cpage=" & int(cpage/10-1)*10+10%>><<</a> <%end if%>

<%
min = int((cpage-1)/10)*10+1
for j=min to min+9
mm=j
if j > maxpage then exit for
Response.Write "<a href=../index/query.asp?" & condi & "&cpage=" & j &">"
if mm = int(cpage) then Response.Write "<font color=red>"
Response.Write "[" & j & "]"
if mm = int(cpage) then Response.Write "</font>"
Response.Write "</a> " & vbcrlf

next
%>

<%if int((cpage-1)/10)*10+11<=maxpage then%><a href=../index/query.asp?<%Response.Write condi & "&cpage=" & int((cpage-1)/10)*10+11%>>>> </a><%end if%>

</td>

<td width=40%>[NO. <font color=red><%= cpage%></font>] [total <font color=red><%= int(maxpage)%></font>]
<%if cpage-1>=1 then%>
<a href="../index/query.asp?<%Response.Write condi & "&cpage=" & cpage-1 & "&typename=" & Server.URLEncode(Request("typename"))%>">[Previous]</a>
<%else%>
[Previous]
<%end if%>
<%if cpage+1 <= maxpage then%>
<a href="../index/query.asp?<%Response.Write condi & "&cpage=" & cpage+1 & "&typename=" & Server.URLEncode(Request("typename"))%>">[Next]</a>
<%else%>
[Next]
<%end if%>

<%'Response.Write sql%>
</td></tr></table>

mignwoo 2003-08-27

打赏
举报

能不能说明一下:
PageCount,RecordCount,CurrentPage,PageSize,i,LinkFile
各个参数的用处?

lang11zi 2003-08-27

打赏
举报

学习

maxid 2003-08-27

打赏
举报

Jaron(唐伯虎点蚊香)不是给了你了吗，你也该看一下代码再说

mignwoo 2003-08-27

打赏
举报

谢谢~~
可我要的是这样的效果:

<<前5页 1 2 3 4 5 后5页>>

Jaron 2003-08-27

打赏
举报

请稍作修改
Function ExportPageInfo(ByRef PageCount,RecordCount,CurrentPage,PageSize,i,LinkFile)
Dim retval, j, pageNumber, BasePage
If CurrentPage = "" Then currentpage = 1 else currentpage = cint(CurrentPage)
retval = "第" & CurrentPage & "页/共" & PageCount & "页 "
retval = retval & "本页" & i & "条/共" & RecordCount & "条 "
If CurrentPage = 1 Then
retval = retval & "首页前页 "
Else
retval = retval & "<a href='" & LinkFile & "page=1'>首页</a> <a href='" & LinkFile & "page=" & cstr(CurrentPage - 1) & "'>前页</a> "
End If
If CurrentPage = PageCount Then
retval = retval & "后页末页"
Else
retval = retval & "<a href='" & LinkFile & "page=" & cstr(CurrentPage + 1) & "'>后页</a> <a href='" & LinkFile & "page=" & cstr(PageCount) & "'>末页</a>"
End if
retval = retval & " | "
BasePage = (CurrentPage \ 10) * 10
If BasePage > 0 Then retval = retval & " <a href='" & LinkFile & "page=" & (BasePage - 9) & "'><<</a>"
For j = 1 to 10
pageNumber = BasePage + j
If PageNumber > pagecount Then Exit For
If pageNumber = Cint(CurrentPage) Then
retval = retval & " <font color='#FF0000'>" & pageNumber & "</font>"
Else
retval = retval & " <a href='" & LinkFile & "page=" & pageNumber & "'>" & pageNumber & "</a>"
End If
Next
if PageCount < BasePage + 11 then
retval = retval & " >>"
else
If pagecount > BasePage Then retval = retval & " <a href='" & LinkFile & "page=" & (BasePage + 11) & "'>>></a>"
end if
ExportPageInfo = retval
End Function

dgm8 2003-08-27