winona1029回答ポイントなし

検索結果のページングの番号の省略を作成したいのですが、どうすればよろしいでしょうか（ASP）？

表示↓
1　2　3　4　5　...次へ　という風に最大５ページまで表示し残りは「...」と作成したいのですがご教示よろしくお願いします。

Dim iPageSize '１ページに表示する項目数
Dim iPage 'ページ番号
Dim iRecordCount '検索結果の全行数
<%
'*** １ページに表示する商品数を取得する
iPageSize = CInt(Request.QueryString("pageSize"))
If iPageSize = 0 Then
iPageSize = 100
End If

'*** 表示するページ値を取得する
iPage = CInt(Request.QueryString("page"))
If iPage = 0 Then
iPage = 1
End If
Session("iPage") = iPage
%>

～省略～
<% If iPage > 1 Then %>
<A HREF="<%= Request.ServerVariables("SCRIPT_NAME") %>?page=<%= iPage - 1 %>">前へ</A>　
<% End If %>
<% If iPage < iPageCount Then %>
<A HREF="<%= Request.ServerVariables("SCRIPT_NAME") %>?page=<%= iPage + 1 %>">次へ</A>
<% End If %>
<% '*** ページ番号を表示する
For i = 1 To iPageCount
If i = iPage Then %>
<A HREF="<%= Request.ServerVariables("SCRIPT_NAME") %>?page=<%= i %>"><%= i %></A> 
<%
Else %>

<A HREF="<%= Request.ServerVariables("SCRIPT_NAME") %>?page=<%= i %>"><%= i %></A> 
<%
End If
Next
End Sub
%>

ログインして回答する

ベストアンサー

TransFreeBSD2014/11/11 01:04:29
```
<%
Dim iRangeOfPageNum 	'表示するページ番号の範囲（現ページの前後数、×２＋1が表示数）
Dim iBeginOfPageNum
Dim iEndOfPageNum
iRangeOfPageNum = 2

～省略～

iEndOfPageNum = iPage + iRangeOfPageNum		'現在ページから指定(2)ページ後のページ番号までの表示とする
If iEndOfPageNum <= iRangeOfPageNum*2 Then	'☆最低でもiRangeOfPageNum*2 +1ページを表示するように修正する
 iEndOfPageNum = iRangeOfPageNum*2 +1;		'☆
End If						'☆
If iEndOfPageNum > iPageCount Then			'最終ページを過ぎていたら修正する
 iEndOfPageNum = iPageCount
End If
iBeginOfPageNum = iEndOfPageNum - iRangeOfPageNum*2	'表示する最後のページ番号の指定(2)ページ前のさらに指定(2)ページ前(*2)からの表示とする
If iBeginOfPageNum > 1 Then				'1ページ目より後ろからなら省略文字を表示する
%>
...
<% Else							'1ページ目より後ろでない（前である）ならば修正する
 iBeginOfPageNum = 1
End If

'*** ページ番号を表示する
For i = iBeginOfPageNum To iEndOfPageNum
If i = iPage Then %>
<A HREF="<%= Request.ServerVariables("SCRIPT_NAME") %>?page=<%= i %>"><%= i %></A>&nbsp;
<% Else %>
<A HREF="<%= Request.ServerVariables("SCRIPT_NAME") %>?page=<%= i %>"><%= i %></A>&nbsp;
<% End If
Next

'表示したページ番号よりまだ後ろがあるなら省略文字を表示する
If iEndOfPageNum < iPageCount Then %>
...
<% End If
End Sub
%>
```
スター
- 6件のコメントを見る
- winona1029 2014/11/11 10:21:22
 
 連絡遅くなり申し訳ありません。
 早速の回答有り難うございます。
 
 記述をもとに動作したところ、ページの表示が1...と表示してしまいます。
 
 スター
- TransFreeBSD 2014/11/11 18:26:55
 
 すみません。なんでだろ。
 各変数（iPage, iPageCount, iRangeOfPageNum, iBeginOfPageNum, iEndOfPageNum）の値はどうなってます？
 ＃予想では1, 1, 1, 1, 2の予定だけど……
 
 スター
- winona1029 2014/11/11 20:03:08
 
 今、職場を離れて確認でしませんが、明日確認してみます。
 iRangeofpageNum=2だと、次ページ押した時に、4ページにきた時に、...4...と表示します。2ページ、3ページだと2...と表示し、最終ページよりも２つ手前で次ページが表示されなくなります。iRangeofpageNum=0だと最期まで行きます。
 
 スター
- winona1029 2014/11/12 13:28:44
 
 値は、最後のEndif End subの前で実施しています。
 各変数（iPage, iPageCount, iRangeOfPageNum, iBeginOfPageNum, iEndOfPageNum）の値は、1,9,2,1,3になっています。 iPagecoutは現在9ページあるので9になってます。
 
 スター
- TransFreeBSD 2014/11/12 22:13:10
 
 iPageが1と2の時、iEndOfPageNumが小さくなる問題があったので、最初の方のコメントに☆印のある3行を追加しました。
 
 しかし、その修正前でもFor文に使ってるiBeginOfPageNumとiEndOfPageNumが1と3なので1～3は表示されるはずなんですが……For文の所間違ってませんよね？
 ループが回らない原因が分かりません。
 その他の文法もあってるんじゃ無いかと思うのですが。
 ＃VBScriptはほとんど書いたこと無いのですが代入とFor, If文程度しかないので……
 
 念のためPHPでテストしてみたんですけど、それだと思ったとおりの出力になってます。
 参考までに……
 http://ideone.com/F9pEgU
 
 スター
- winona1029 2014/11/13 20:02:05
 
 TransFreeBSDさん、ありがとうございました。
 希望通りの動作をしました。感謝・感激です。
 
 原因は、ページ番号を表示する際の、<% else %>分の記載漏れが原因でした。
 本当にありがとうございました。
 
 スター