ASP muestra datos en forma de tabla, lo que facilita la salida de contenido de varias filas y columnas. 'Definir variables
Dim cn,rs,Sql
Sql = seleccione CustomerID de Pedidos
'Número total de registros
Número total oscuro
Establecer cn = Server.CreateObject(ADODB.Connection)
cn.Open Provider=SQLOLEDB.1;ID de usuario=sa;Catálogo inicial=NorthWind;Fuente de datos=.;Contraseña=;
Establecer rs = Server.CreateObject(ADODB.Recordset)
rs.Abrir SQL, cn, 3, 1
NúmeroTotal = rs.RecordCount
Si NúmeroTotal = 0 Entonces
Response.Write no tiene ninguna salida registrada.
Demás
Dim jj,nIzquierda,cCol
jj = 0
nCol = 415
nIzquierda = nCol- (Número Total Mod nCol)
Si nIzquierda = nCol Entonces nIzquierda = 0
Respuesta.Escribir <borde de la tabla><tr> & vbCrLf
Mientras no rs.EOF
Respuesta.Escribir <td> & rs(CustomerID) & </td> & vbCrLf
'If (jj Mod nCol) = (nCol - 1) And jj <> TotalNumber - 1 Entonces Response.Write </tr><tr> & vbCrLf
'Si (jj Mod nCol) = (nCol - 1) y jj = TotalNumber-1 Entonces Response.Write </tr> & vbCrLf
Si (jj Mod nCol) = (nCol - 1) Entonces
Si jj <> NúmeroTotal - 1 Entonces
Respuesta.Escribir </tr><tr> & vbCrLf
Demás
Respuesta.Escribir </tr> & vbCrLf
Terminar si
Terminar si
jj = jj + 1
rs.MoverSiguiente
Encaminarse a
Si nLeft <> 0 y nLeft <> nCol entonces
Si nCol < NúmeroTotal Entonces
Para i = 1 a nIzquierda
Respuesta.Escribir <td> </td> & vbCrLf
Próximo
Terminar si
Respuesta.Escribir </tr> & vbCrLf
Terminar si
Respuesta.Escribir </table>
Terminar si
rs.Cerrar
Configurar=Nada
cn.Cerrar
Establecer cn = Nada
Respuesta.Fin