Vor ein paar Tagen fragten einige Internetnutzer: Wie man den ASP-Datensatz in einer tabellarischen Anzeige mit n Spalten ausgibt. Jetzt habe ich eine für die Bequemlichkeit aller geschrieben.
'Variablen definieren
Dim cn,rs,Sql
Sql = "select CustomerID from Orders"
'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=;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, cn, 3, 1
TotalNumber = rs.RecordCount
Wenn TotalNumber = 0, dann
Response.Write „Keine Ausgabe protokolliert.“
„www.downcodes.com
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