ASP zeigt Daten in tabellarischer Form an, was die Ausgabe von mehrzeiligen und mehrspaltigen Inhalten erleichtert. 'Variablen definieren
Dim cn,rs,Sql
SQL = Kunden-ID aus Bestellungen auswählen
'Gesamtzahl der Datensätze
Dim TotalNumbe
Setze cn = Server.CreateObject(ADODB.Connection)
cn.Open Provider=SQLOLEDB.1;Benutzer-ID=sa;Initial Catalog=NorthWind;Data Source=.;Password=;
Setze rs = Server.CreateObject(ADODB.Recordset)
rs.Open SQL, cn, 3, 1
TotalNumber = rs.RecordCount
Wenn TotalNumber = 0, dann
Response.Write hat keine protokollierte Ausgabe.
Anders
Dim jj,nLeft,cCol
jj = 0
nCol = 415
nLeft = nCol- (TotalNumber Mod nCol)
Wenn nLeft = nCol, dann ist nLeft = 0
Response.Write <table border><tr> & vbCrLf
Während nicht rs.EOF
Response.Write <td> & rs(CustomerID) & </td> & vbCrLf
'Wenn (jj Mod nCol) = (nCol - 1) und jj <> TotalNumber - 1, dann Response.Write </tr><tr> & vbCrLf
'Wenn (jj Mod nCol) = (nCol - 1) und jj = TotalNumber-1, dann Response.Write </tr> & vbCrLf
Wenn (jj Mod nCol) = (nCol - 1) Dann
Wenn jj <> TotalNumber - 1 Dann
Response.Write </tr><tr> & vbCrLf
Anders
Response.Write </tr> & vbCrLf
Ende wenn
Ende wenn
jj = jj + 1
rs.MoveNext
Wend
Wenn nLeft <> 0 und nLeft <> nCol, dann
Wenn nCol < TotalNumber, dann
Für i = 1 bis nLeft
Response.Write <td> </td> & vbCrLf
Nächste
Ende wenn
Response.Write </tr> & vbCrLf
Ende wenn
Response.Write </table>
Ende wenn
rs.Schließen
Setrs=Nichts
cn.Schließen
Setze cn = Nichts
Antwort.Ende