ASP는 다중 행 및 다중 열 콘텐츠의 출력을 용이하게 하는 표 형식으로 데이터를 표시합니다. '변수 정의
희미한 cn,rs,sql
Sql = 주문에서 CustomerID를 선택합니다.
'총 레코드 수
희미한 총계수
cn = Server.CreateObject(ADODB.Connection) 설정
cn.Open 공급자=SQLOLEDB.1;사용자 ID=sa;초기 카탈로그=NorthWind;데이터 원본=.;암호=;
rs = Server.CreateObject(ADODB.Recordset) 설정
rs.Open SQL, cn, 3, 1
TotalNumber = rs.RecordCount
TotalNumber = 0이면
Response.Write에는 기록된 출력이 없습니다.
또 다른
희미한 jj,n왼쪽,cCol
jj = 0
nCol = 415
nLeft = nCol-(TotalNumber Mod nCol)
nLeft = nCol이면 nLeft = 0
Response.Write <테이블 테두리><tr> & vbCrLf
rs.EOF는 아니지만
응답.쓰기 <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)이면
jj <> TotalNumber - 1이면
응답.쓰기 </tr><tr> & vbCrLf
또 다른
응답.쓰기 </tr> 및 vbCrLf
종료 조건
종료 조건
jj = jj + 1
rs.이동다음
향하게 하다
nLeft <> 0 그리고 nLeft <> nCol이면
nCol < TotalNumber이면
i = 1에서 nLeft까지
응답.쓰기 <td> </td> 및 vbCrLf
다음
종료 조건
응답.쓰기 </tr> 및 vbCrLf
종료 조건
응답.쓰기 </table>
종료 조건
RS.닫기
설정자=아무것도 없음
cn.닫기
cn = 없음으로 설정
응답.종료