<%
constadinteger = 3
Constadvarchar = 200
'변수 선언
Dimmyrecordset
Dimiletter
딤 필드
DimstraltColor
DIMBCOLOR
bcolor = false
'이 예제는 메모리에서 레코드 세트를 사용하므로 데이터 표시의 일부를 수정하면됩니다.
setmyrecordset = server.createObject ( "adodb.recordset")
myrecordset.fields.apend "id", Adinteger
myrecordset.fields.append "Title", Advarchar, 25
Myrecordset.fields.Append "Description", Advarchar, 255
Myrecordset. Open
'fillrswithsampledata :
foriletter = asc ( "a") toasc ( "m")
myrecordset.addnew
myrecordset.fields ( "id"). value = iletter-64
myrecordset.fields ( "title"). value = "Letter :"& chr (iletter)
myrecordset.fields ( "description"). value = "테스트 된 문자 :"& chr (iletter) & "."
myrecordset.update
Next'iletter
'다음 루프가 시작되도록 헤드 스타트 위치로 이동하십시오.
Myrecordset. MoveFirst
'테이블에 데이터 표시
response.write "<tableborder =" "0" "CellPacing ="0 ""CellPadding = ""3 ""> "& vbcrlf
'헤더 점검
Response.writevbtab & "<tr>"& vbcrlf
foreachfieldinmyrecordset.fields
response.writevbtab & vbtab & "<tdbgcolor =" "#cccccc" "> <strong>"
응답 .writefield.name
응답. "</strong> </td>"& vbcrlf
Next'field
response.writevbtab & "</tr>"& vbcrlf
dowhilenotmyrecordset.eof
'셀의 배경색을 바꾸는 루프
bcolor = notbcolor
ifbcolorthen
straltcolor = "#ffffff"
또 다른
straltColor = "#ff8040"
endif
'셀의 배경색을 바꾸는 루프
Response.writevbtab & "<tr>"& vbcrlf
foreachfieldinmyrecordset.fields
response.writevbtab & vbtab & "<tdbgcolor =" ""
응답 .WritessTraltColor
response.write "" "" "" "& field.value &"</td> "& vbcrlf
Next'field
response.writevbtab & "</tr>"& vbcrlf
myrecordset.movenext
고리
'종료 가능한