发表时间:2013年08月05日 星期一

在写分页程序的时候一直不知道怎么写,在网上找了很多分页代码也没实现分页。最后朋友给我找了一段代码,发现是我测试过的,但还是再次尝试下,结果是失败,在朋友的帮助下才知道原来是我不知道怎么写调取参数。在得到朋友的帮助下找到了调取参数,最后宣告成功。

我知道网上有很多跟我一样的小白,所以我就把这段代码分享出来,希望能帮到更多和我一样的小白使用分页代码实现内容分页效果。

<%Call ShowPage(Content)%> 这是调取分页内容和分页按钮的参数
<%
Sub ShowPage(Content)
Dim SplitContent,Page
Page=Request.QueryString("Page")
If Not IsNumeric(Page) then
  Call lg_errs("提示:错误的参数!","-1")
end if
if Page="" Or Page=0 Or IsNull(Page) Or IsEmpty(Page) Then

    Page=1
else
    Page=Cint(Page)
end if
If Instr(Content,"<hr/>")<>0 Then '<hr/>是分页符,也可以替换成你自己的
SplitContent=Split(Content,"<hr/>") '<hr/>也替换成你自己的
abspage=Page
PageCounts=Ubound(SplitContent)+1
if Page>Cint(Ubound(SplitContent)+1) Or Page<1 Then
  Call lg_errs("提示:错误的参数!","-1")
Else
Response.Write SplitContent(Page-1)&"<div>共"&PageCounts&"页 "
End If
for i=0 to Ubound(SplitContent)
If i+1=abspage Then
 Response.Write "<span>"&i+1&"</span>"
else
 Response.Write "<a href=article.asp?id="&id&"&Page="&i+1&">"&i+1&""
 'id代表你的文章ID,别的不用管
end if
 next
  Response.Write "当前是第"&abspage&"页</div>"
  Else
 Response.Write Content
End If
End Sub
%>