<% Const adInteger = 3 Const adVarChar = 200 ' 성명 변수 Dim myRecordset Dim iLetter Dim Field Dim strAltColor Dim bColor bColor = False ' 이 예 는 메모리 에 있 는 recordset 를 이용 하여 데이터 표시 부분 만 수정 하면 됩 니 다.Set myRecordset = Server.CreateObject("ADODB.Recordset") myRecordset.Fields.Append "ID", adInteger myRecordset.Fields.Append "Title", adVarChar, 25 myRecordset.Fields.Append "Description", adVarChar, 255 myRecordset.Open ' Fill RS with sample data: For iLetter = Asc("A") To Asc("M") myRecordset.AddNew myRecordset.Fields("ID").Value = iLetter - 64 myRecordset.Fields("Title").Value = "알파벳:" & Chr(iLetter) myRecordset.Fields("Description").Value = "여기 알파벳 테스트:" & Chr(iLetter) & "." myRecordset.Update Next 'iLetter'머리 시작 위치 로 이동 하여 아래 순환 을 시작 합 니 다.my Recordset.MoveFirst' 표 에 데이터 Response.Write 보이 기 "
" & vbCrLf'헤더 Response.Write vbTab & "" & vbCrLf For Each Field in myRecordset.Fields Response.Write vbTab & vbTab & "" Response.Write Field.Name Response.Write "" & vbCrLf Next 'Field Response.Write vbTab & "" & vbCrLf Do While Not myRecordset.EOF ' 셀 의 배경 색 을 반복 적 으로 변경 합 니 다. bColor = Not bColor If bColor Then strAltColor = "#FFFFFF" Else strAltColor = "#FF8040" End If '셀 의 배경 색 을 반복 적 으로 변경 합 니 다. Response.Write vbTab & "" & vbCrLf For Each Field in myRecordset.Fields Response.Write vbTab & vbTab & "" & Field.Value & "" & vbCrLf Next 'Field Response.Write vbTab & "" & vbCrLf myRecordset.MoveNext Loop ' End the table Response.Write "" & vbCrLf ' 대상 닫 기,자원 방출 myRecordset.close 세트 myRecordset = Nothing %>
