ASP はデータを表形式で表示するため、複数行および複数列のコンテンツの出力が容易になります。 '変数を定義する
ディム cn、rs、SQL
SQL = 注文から CustomerID を選択
'レコードの総数
ディム合計数
cn = Server.CreateObject(ADODB.Connection) を設定します。
cn.Open Provider=SQLOLEDB.1;ユーザー ID=sa;初期カタログ=NorthWind;データ ソース=.;パスワード=;
Set rs = Server.CreateObject(ADODB.Recordset)
rs.Open SQL、cn、3、1
TotalNumber = rs.RecordCount
TotalNumber = 0 の場合
Response.Write にはログ出力がありません。
それ以外
ディム jj,nLeft,cCol
jj = 0
nCol = 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 then Response.Write </tr><tr> & vbCrLf
'If (jj Mod nCol) = (nCol - 1) And jj = TotalNumber-1 then Response.Write </tr> & vbCrLf
(jj Mod nCol) = (nCol - 1) の場合
If jj <> TotalNumber - 1 then
Response.Write </tr><tr> & vbCrLf
それ以外
Response.Write </tr> & vbCrLf
終了の場合
終了の場合
jj = jj + 1
rs.次へ移動
ウェン
nLeft <> 0 かつ nLeft <> nCol の場合
nCol < TotalNumber の場合
i = 1 から nLeft の場合
Response.Write <td> </td> & vbCrLf
次
終了の場合
Response.Write </tr> & vbCrLf
終了の場合
応答.書き込み </table>
終了の場合
rs.閉じる
Setrs=なし
cn.閉じる
cn = なしを設定します
応答.終了