ASP отображает данные в табличной форме, что облегчает вывод многострочного и многостолбцового контента. 'Определить переменные
Dim cn,rs,Sql
Sql = выберите CustomerID из заказов
'Общее количество записей
Дим ТоталНумбе
Установите cn = Server.CreateObject(ADODB.Connection)
cn.Open Provider=SQLOLEDB.1;Идентификатор пользователя=sa;Начальный каталог=NorthWind;Источник данных=.;Пароль=;
Установите rs = Server.CreateObject(ADODB.Recordset)
rs.Open SQL, cn, 3, 1
TotalNumber = rs.RecordCount
Если ОбщееКоличество = 0 Тогда
Response.Write не имеет протоколируемого вывода.
Еще
Дим jj,nLeft,cCol
jj = 0
нКол = 415
nLeft = nCol- (TotalNumber Mod nCol)
Если nLeft = nCol Тогда nLeft = 0
Response.Write <граница таблицы><tr> и vbCrLf
Пока не rs.EOF
Response.Write <td> & rs(CustomerID) & </td> & vbCrLf
'If (jj Mod nCol) = (nCol - 1) And jj <> TotalNumber - 1 Тогда Response.Write </tr><tr> & vbCrLf
'If (jj Mod nCol) = (nCol - 1) And jj = TotalNumber-1 Тогда Response.Write </tr> & vbCrLf
Если (jj Mod nCol) = (nCol - 1) Тогда
Если jj <> TotalNumber - 1 Тогда
Response.Write </tr><tr> и vbCrLf
Еще
Response.Write </tr> и vbCrLf
Конец, если
Конец, если
jj = jj + 1
rs.MoveNext
Венд
Если nLeft <> 0 и nLeft <> nCol Тогда
Если nCol < TotalNumber Тогда
Для i = от 1 до nLeft
Response.Write <td> </td> и vbCrLf
Следующий
Конец, если
Response.Write </tr> и vbCrLf
Конец, если
Ответ.Запись </table>
Конец, если
rs.Close
Setrs=Ничего
cn.Закрыть
Установить cn = Ничего
Ответ.Конец