Eine Tabellendemonstration, die einen Datensatz in Spalten anzeigt und Paging implementiert
Autor：Eve Cole
Aktualisierungszeit：2009-06-24 17:04:30
<!-- Dieses Beispiel zeigt eine allgemeine Spaltenanzeige eines Datensatzes, da es manchmal notwendig ist, mehrere Produkte pro Zeile anzuzeigen, anstatt eines pro Zeile. Wenn eine solche Tabelle in Spalten angezeigt wird, fügen Sie einfach den folgenden Code ein. In diesem Beispiel werden in jeder Zeile zwei Datensätze angezeigt, und unten wird auch eine Paging-Spalte angezeigt. ->
<%
'Öffnen Sie die Datenbank
Setze conn = Server.CreateObject("ADODB.Connection")
strconn="Driver={sql server};server=localhost;database=northwind;uid=sa;pwd=sa;"
conn.Open strconn
'Holen Sie sich die Adresse dieser Seite
Dateiname, Position dimmen
fileName = Request.ServerVariables("script_name")
position = InstrRev(fileName,"/")+1
fileName = Mid(fileName,position)
'Öffnen Sie den Datensatz www.downcodes.com
set rs=server.CreateObject("adodb.recordset")
rs.open „select titleofcourtesy,firstname,photopath from Employees order by Employeeid desc“,conn,1,1
%>
<!-- Produktanzeigeformular-->
<table width="90%" height="300" border="0" align="center">
<%
Wenn nicht (rs.bof und rs.eof), dann
Seiten=4
rs.pagesize=Seiten
wenn nicht isempty(Request.QueryString("page")) dann
thispage=clng(Request.QueryString("page"))
anders
diese Seite=1
Ende wenn
rscount=rs.recordcount
Wenn thispage="", dann ist thispage=1
Wenn diese Seite <1 ist, ist diese Seite = 1
if (thispage-1)*pages>rscount then
if (rscount mod page)=0 dann
thispage=rscountpages
anders
thispage=rscountpages+1
Ende wenn
Ende wenn
if(rscount mod page)=0 dann
allpages=rscountpages
anders
allpages=rscountpages+1
Ende wenn
rs.absolutepage=dieseSeite
i=1
%>
<tr>
<%do while not rs.eof andpages>0 %>
<td valign="top"><a href="<%=rs("PhotoPath")%>" target="_blank"><img src="<%=rs("PhotoPath")%>" alt= "" width="100" height="100" border="0"></a><br>
<%=rs("titleofcourtesy")&rs("firstname")%> </td>
<%
'Die Spaltenaufteilung erfolgt hauptsächlich durch die folgende Beurteilung. In diesem Beispiel werden in jeder Zeile zwei Spalten angezeigt.
wenn (i mod 2) =0 dann
%>
</tr><tr>
<%end if%>
<%
Seiten = Seiten - 1
rs.movenext
i=i+1
Schleife
Ende wenn
%>
</table>
<!-- /Produktanzeigeformular-->
<!-- Produkt-Paging-Formular-->
<table width="90%" border="0" align="center">
<tr>
<td> <center>
Gesamtzahl der <%=allpages%> Seiten Aktuelle Seite <%= thispage %>
<% if thispage<>1 then %>
<a href="<%=filename&"?page=1"%>">Startseite</a> <a href="<%=filename&"?page="&(thispage-1)%>">Vorherige Seite </a>
<% End If %>
<% if thispage<>allpages then %>
<a href="<%=filename&"?page="&(thispage+1)%>">Nächste Seite</a> <a href="<%=filename&"?page="&allpages&""%>" >Letzte Seite</a>
<% End If %>
</center></td>
</tr>
</table>
<!-- /Produkt-Paging-Formular-->
