나는 지금 정말로 번거로운 느낌이 든다. 다음과 같은 간단합니까?
코드 사본은 다음과 같습니다.
<%
Dimi, J, Icols
i = 0 '// 루프에 대해 i를 정의합니다
ICOLS = 3 '// 연속에 몇 개의 열이 있습니까 (긍정적 인 정수)
response.write ( "<tableWidth =" "100%" "Border =" "1" "CellSpacing ="2 ""CellPadding = "0" "> <tr>"& vbnewline) // 출력 테이블 헤더 및 첫 번째 Tr
dowhilenotors.eof '// forors.recordcountnext로 출력 레코드를 시작하십시오
ifi> 0andimodicols = 0thenresponse.write ( "</tr> <tt>"& vbnewline) '// 열 횟수가 ICOL 라인 브레이크와 같으면
i = i+1
response.write ( "<TDWIDTH =" ""& FARMATPERCENT (1/ICOLS, 0) & "" "" "> 출력"& I & "레코드 </td>"& vbnewline)
ors.movenext
루프 '// 출력 레코드 세트를 종료합니다
ors.close
forj = 1toicols-1 '// 빈 레코드를 보충하기 시작하고 최대 1 ICOLS-1
ifimodicols = 0thenexitfor '// 컬럼 수는 충분한 ICOL이 더 이상 출력되지 않습니다.
i = i+1
response.write ( "<TDWIDTH =" ""& FARMATPERCENT (1/ICOLS, 0) & "" ""> "& j &"레코드 </td> "& vbnewline을 채우십시오)
다음
response.write ( "</tr> </table>"& vbnewline) '// 테이블 테일 출력
%>