ich bin den mal gerade ein wenig durchgegangen- und muss sagen, dass das
schon eine frechheit ist, was einem da in b�chern verkauft wird.
anscheinend ist der paging code so ausgelegt, dass er immer davon ausgeht,
dass es 10 link-seiten gibt.
wenn mein recordset aber nur 2 seiten produziert, geht der trotzdem 10
linkseite durch. siehe code:
Private Sub cbShowPageLinks( _
ByVal p_absolutepage, _
ByVal p_pagecount, _
ByVal p_linkurl, _
ByVal p_linkparam, _
ByVal p_columncount _
)
' -----------------------------------------------------------------
' --- Parametername Datentyp Verwendung
' -----------------------------------------------------------------
' --- p_absolutepage Integer Nummer der aktuellen Seite
' --- p_pagecount Integer Anzahl der gesamten Seiten
' --- p_linkurl String Angabe der Link URL
' --- p_linkparam String Angabe der Linkparameter
' --- p_columncount Integer Anzahl der Spalten
' -----------------------------------------------------------------
Dim intPageCounter
intPageCounter = 0
Dim intStartPage
intStartPage = 1
Dim intEndPage
intEndPage = 1
Dim intTableWidth
intTableWidth = 600
Dim intColWidth
intColWidth = Fix( ( intTableWidth - 64 ) / p_columncount )
' --- Ermitteln der ersten Seitennummer f�r diese Linkleiste
intStartPage = cbInteger( _
Fix( _
( _
( p_absolutepage - 1 ) _
/ p_columncount _
) _
* p_columncount + 1 _
) - 4 _
)
response.write("intStartPage: "&intStartPage)
' --- Kleinste Startseite = 1
If intStartPage < 1 Then
intStartPage = 1
End if
' --- Gr��te Startseite = Anzahl Seiten - 9
If intStartPage >= p_pagecount - 9 Then
intStartPage = p_pagecount - 9
End if
' --- Ermitteln der letzten Seitennummer f�r diese Linkleiste
intEndPage = intStartPage + ( p_columncount - 1 )
' --- Pr�fen, ob am Ende der Linkparameter ein
' --- & angegeben wurde. Wenn nicht, wird eines
' --- hinzugef�gt
If p_linkparam <> "" Then
If Right(p_linkparam , 1 ) <> "&" Then
p_linkparam = p_linkparam & "&"
End if
End if
' --- Ausgabe des �u�eren Tabellenrahmens
Response.Write "<table border=""1""" & _
"width=""" & intTableWidth & """>" & _
vbCrLf
Response.Write " <tr>" & vbCrLf
' --- Ausgabe des Links zur ersten Seite
Response.Write " <td width=""16"" align=""center"">" & _
"<a href=""" & _
p_linkurl & "?" & _
p_linkparam & _
"AP=1"">" & _
"<img src=""" & _
"images/page_first.gif"" " & _
"width=""16"" " & _
"height=""13"" " & _
"border=""0"" " & _
"alt=""Erste Seite"">" & _
"</a>" & _
"</td>" & vbCrLf
' --- Ausgabe des Links zur vorherigen Seite
Response.Write " <td width=""16"" align=""center"">" & _
"<a href=""" & _
p_linkurl & "?" & _
p_linkparam & _
"AP=" & ( _
p_absolutepage - 1 _
) & """>" & _
"<img src=""" & _
"images/page_prev.gif"" " & _
"width=""16"" " & _
"height=""13"" " & _
"border=""0"" " & _
"alt=""Vorige Seite"">" & _
"</a>" & _
"</td>" & vbCrLf
' --- Ausgeben der eigentlichen PageLinks
For intPageCounter = intStartPage To intEndPage
If intPageCounter = p_absolutepage Then
' --- Die aktuelle Seite wird nicht mehr verlinkt
' --- daf�r aber zu Kennzeichnung farbig hinterlegt
Response.Write "<td width=""" & intColWidth & """" & _
"align=""center""" & _
"bgcolor=""#DEDEDE""><b>" & _
intPageCounter & "</b>" & _
"</td>" & vbCrLf
Else
' --- Erstellen eines PageLinks in der Tabelle
Response.Write "<td width=""" & intColWidth & """" & _
"align=""center""" & _
"bgcolor=""#FFFFFF""><b>" & _
"<a href=""" & p_linkurl & _
"?" & p_linkparam & _
"AP=" & intPageCounter & _
""">" & _
intPageCounter & _
"</a></b>" & _
"</td>" & vbCrLf
End if
Next
' --- Ausgabe des Links zur vorherigen Seite
Response.Write " <td width=""16"" align=""center"">" & _
"<a href=""" & _
p_linkurl & "?" & _
p_linkparam & _
"AP=" & ( _
p_absolutepage + 1 _
) & """>" & _
"<img src=""" & _
"images/page_next.gif"" " & _
"width=""16"" " & _
"height=""13"" " & _
"border=""0"" " & _
"alt=""N�chste Seite"">" & _
"</a>" & _
"</td>" & vbCrLf
' --- Ausgabe des Links zur letzten Seite
Response.Write " <td width=""16"" align=""center"">" & _
"<a href=""" & _
p_linkurl & "?" & _
p_linkparam & _
"AP=" & p_pagecount & """>" & _
"<img src=""" & _
"images/page_last.gif"" " & _
"width=""16"" " & _
"height=""13"" " & _
"border=""0"" " & _
"alt=""Letzte Seite"">" & _
"</a>" & _
"</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
End Sub
' -----------------------------------------------------------------
toller schei�, oder?
----- Original Message -----
From: Claudius Ceteras <[EMAIL PROTECTED]>
To: AspGerman Kaffeehaus <[EMAIL PROTECTED]>
Sent: Friday, October 25, 2002 10:44 AM
Subject: [aspdecoffeehouse] Re: Antw: paging
> aha! also bei drei fri�t er es-
> allerdings bekomme ich immer noch ein paging von -7 bis 2 ...
> und es sollen doch nur 2 sein. :(
Dann ist wahrscheinlich der paging-Code fehlerhaft...
Habe Dein erstes posting nicht mehr...
Claudius
| [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
