数日前、一部のネチズンから次のような質問がありました。ASP レコード セットを n 列の表形式で出力する方法を皆さんの便宜のために書きました。
'変数を定義する
Dim cn,rs,Sql
Sql = "注文から CustomerID を選択"
'レコードの総数
ディム合計数
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "プロバイダ=SQLOLEDB.1;ユーザーID=sa;初期カタログ=NorthWind;データソース=.;パスワード=;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL、cn、3、1
TotalNumber = rs.RecordCount
TotalNumber = 0 の場合
応答。「出力はログに記録されません。」と書き込みます。
「www.downcodes.com」
それ以外
ディム 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 = 何も設定しない
応答.終了