Question

asp 翻页 源码

我在做一个公司的网站,然后下了一个源码ASP的,还可以用,等我做好,开始上传商品的时候才发现,商品从后台上传上去,打开网站一看,没有翻页,正常情况下是一个页面显示三个商品,然后可以翻到下一页,可是我这个没有下一页,所有的商品全都挤到下面去了,很长很长,请问怎么办,或者谁可以帮我一下,我把这个页面的ASP单独抽出来,有哪位高手可以帮我改一下,谢了,万分感谢!!!!!!
100分奉上,如做好,还有加分,谢了!高手可以留下扣扣,我加你,我的扣扣是:348057238!

Answer 1

为了 这100分 你加这个:245265259

Answer 2

给我一直在用的一个分页函数给你，并带使用例子

'PID 页面中的其它传参连接
'page 要显示的页码
'Vcount 总记录数
'Pnum 每页记录数
'className 超连接样式
public function ThePage(Pid,page,Vcount,Pnum,className)
dim show
page = int(page)
Pcount = abs(int(-abs(Vcount/Pnum)))
if page = "" or page <= 0 then page = 1
if page>Pcount then page=Pcount
StartPageNum=1
do while StartPageNum+10<=page
StartPageNum=StartPageNum+10
Loop
EndPageNum=StartPageNum+9

If EndPageNum>Pcount then EndPageNum=Pcount
show = show&"<tr><td colspan='10' bgcolor='' align='right' style='padding-right:25px;padding-top:5px;' class='"&className&"'>"
show = show&"共<b>"&Pcount&"</b>页 共有<b>"&Vcount&"</b>记录 第<b>"&page&"</b>页 跳到第 [ "
if StartPageNum>1 then
show = show&"<a class='"&className&"' href='?"&Pid&"page="&StartPageNum-1&"' title='前十页'><font face='webdings'>7</font></a>"
end if
For go=StartPageNum to EndPageNum

if go<>page then
show = show&"<a class='"&className&"' href='?"&Pid&"page="&go&"'>"&go&"</a>"
else
show = show&"<b>"&go&"</b>"
end if
show = show&" "
Next

if EndPageNum<Pcount then
show = show&"<a class='"&className&"' href='?"&Pid&"page="&EndPageNum+1&"' title='下十页'><font face='webdings'>8</font></a>"
end if
show = show& "] 页"

if page<>1 then
show = show&"<a class='"&className&"' href='?"&Pid&"page=1'> 首页</a> <a class='"&className&"' href='?"&Pid&"page="&page-1&"'>上一页</a>"
end if

if Pcount-page <> 0 then
show = show& "<a class='"&className&"' href='?"&Pid&"page="&page+1&"'> 下一页</a> <a class='"&className&"' href='?"&Pid&"page="&Pcount&"'>尾页</a>"
end if
show=show&"</tr></td>"
ThePage = show
end function

=====================使用示例============================
<%
'分页参数设置
sql = "select * from [guestbook] order by orderid,id desc"
page = GQ("page",1)
page = int(page)
Pnum = 15
className = "lwf"
PID = ""
'以下不变
set rs = DB.S(SQL,1)
Vcount = RS.recordcount
if RS.recordcount <> 0 then
RS.absoluteposition=RS.absoluteposition+((abs(page)-1)*Pnum)
end if

'********************************
i = 1
while not RS.eof and i<=Pnum

%>
<tr>
<td width="3%" height="25" align="center"><img src="images/ico1.jpg" width="6" height="6" /></td>
<td align="left" class="other_font5"><%=rs("title")%></td>
</tr>
<tr>
<td class="other_font9"> </td>
<td class="other_font9"><%=rs("contents")%></td>
</tr>

<%
rs.movenext
i = i + 1
wend
rs.close
set rs = nothing
%>
<%=ThePage(Pid,page,Vcount,Pnum,className)%>

不明可以hi我或Q我573780643