며칠 전 일부 네티즌들은 ASP 레코드 세트를 n개 열의 표 형식 디스플레이로 출력하는 방법에 대해 질문했습니다. 이제 모든 사람의 편의를 위해 하나를 작성했습니다.
'변수 정의
Dim cn,rs,Sql
Sql = "주문에서 CustomerID 선택"
'총 레코드 수
희미한 총계수
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이면
Response.Write "기록된 출력이 없습니다."
'www.downcodes.com
또 다른
희미한 jj,n왼쪽,cCol
jj = 0
nCol = 415
nLeft = nCol-(TotalNumber Mod nCol)
nLeft = nCol이면 nLeft = 0
Response.Write "<테이블 테두리><tr>" & vbCrLf
rs.EOF는 아니지만
응답.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)이면
jj <> TotalNumber - 1이면
Response.Write "</tr><tr>" & vbCrLf
또 다른
Response.Write "</tr>" & vbCrLf
종료 조건
종료 조건
jj = jj + 1
rs.이동다음
향하게 하다
nLeft <> 0 그리고 nLeft <> nCol이면
nCol < TotalNumber이면
i = 1에서 nLeft까지
응답.Write "<td> </td>" & vbCrLf
다음
종료 조건
Response.Write "</tr>" & vbCrLf
종료 조건
응답.쓰기 "</table>"
종료 조건
RS.닫기
설정자=아무것도 없음
cn.닫기
cn = 없음 설정
응답.종료