Modulares Paging
1. Abfrageanweisungsblock
<%
Rufen Sie den aktuellen Dateinamen ab
temp = Split(request.ServerVariables("URL"), "/")
fy = temp(UBound(temp))
set rs=server.createobject("adodb.recordset")
wenn nicht isempty(request("page")), dann
pagecount=cint(request("page"))
anders
Seitenanzahl=1
Ende wenn
sql="Abfrageanweisung auswählen"
rs.open sql,conn,1,1
rs.pagesize=10 Anzahl der Paging-Datensätze
wenn pagecount>rs.pagecount oder pagecount<=0 dann
Seitenanzahl=1
Ende wenn
wenn rs.eof und rs.bof dann%>
<div align="center" class="001"><br>
Leider entsprechen keine Datensätze den Suchkriterien! <br>
</div>
2. Datensatzblock anzeigen
<%
anders
rs.AbsolutePage=Seitenanzahl
do while not rs.eof %>
Angezeigte Datensätze
<% i=i+2
rs.movenext
Wenn i>=rs.PageSize, dann beenden Sie do
Schleife
„www.downcodes.com
%>
3.
Paginierungseffekt
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr align="center">
<% wenn rs.pagecount=1 dann %>
<td height="35" colspan="4" class=001><font color="#000000">Es gibt [<font color="#ff0000"><%=rs.recordcount%></font>] Insgesamt werden derzeit <font color="red">1~<%=rs.recordcount%></font></font></td> angezeigt
</tr>
<tr>
<%else%>
<td width="19%" height="35" align="center" valign="middle" class=001><font color="#000000">
<% page_start=(pagecount-1)*rs.pagesize
wenn pagecount=1, dann page_start=1
page_end=rs.pagesize*pagecount
if pagecount*rs.pagesize=>rs.recordcount then page_end=rs.recordcount end if%>
Insgesamt [<font color="#ff0000"><%=rs.recordcount%></font>] Informationen</font></td>
<td width="58%" height="30" align="center" class="fy"><font color="#000000">
<%
wenn pagecount>5 und pagecount< rs.PageCount-5 und rs.pagecount>10 dann
qizu=pagecount-4
min=Seitenanzahl+5
Response.write"<a href="&source&"?page=1&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>Startseite</font></a> "
Response.write"<a href="&source&"?page="+cstr(pagecount-1)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>Vorherige Seite</font></a> "
für ipage=qizu bis min
wenn ipage<>pagecount dann
Response.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a> "
anders
Response.write "<font color='#FF0000'>"&ipage&"</font> "
Ende wenn
nächste
Response.write"<a href="&source&"?page="+cstr(pagecount+1)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>Nächste Seite</font></a> "
Response.write"<a href="&source&"?page="+cstr(rs.PageCount)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>Letzte Seite</font></a>"
Ende wenn
wenn rs.PageCount<11 dann
für ipage=1 bis rs.PageCount
wenn ipage<>pagecount dann
Response.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a> "
anders
Response.write "<font color='#FF0000'>"&ipage&"</font> "
Ende wenn
nächste
Ende wenn
wenn Seitenanzahl < 6 und rs.PageCount>10 dann
für ipage=1 bis 10
wenn ipage<>pagecount dann
Response.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a> "
anders
Response.write "<font color='#FF0000'>"&ipage&"</font> "
Ende wenn
nächste
Response.write "<a href="&source&"?page="+cstr(rs.PageCount)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>Letzte Seite</font></a>"
Ende wenn
wenn pagecount>rs.PageCount-6 und rs.PageCount>10 dann
Response.write "<a href="&source&"?page=1&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>Startseite</font></a> "
für ipage=rs.PageCount-9 bis rs.PageCount
wenn ipage<>pagecount dann
Response.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a> "
anders
Response.write "<font color='#FF0000'>"&ipage&"</font> "
Ende wenn
nächste
Ende wenn
%>
</font></td><form name=go2to form method=Post action=<%=fy%>>
<td width="13%" align="center" valign="middle" class="fy">
<input type='hidden' name='sortid' value="<%=sortid%>"><input type='hidden' name='typeid' value="<%=typeid%>"><input type= 'hidden' name='qylb' value="<%=qylb%>"><input type='hidden' name='title' value="<%title%>"><input type='hidden' name= 'cityid' value="<%=cityid%>"><font color='000064'> Gehen Sie zu <input type='text' name='page' size=2 maxLength=3>
Seite</font>
</td>
<td width="10%" align="center" valign="middle" class="fy"><input name="image" type='image' onClick=check() value='OK' src='. ./images/button_h.jpg'></td>
</form>
<tr>
<td height="20" colspan="6" valign="bottom"><font color="#000000">
</tr>
<% end if %>
<% end if %>
</table>