<%
ConstadInteger=3
ConstadVarChar=200
'声明变量
DimmyRecordset
DimiLetter
DimField
DimstrAltColor
DimbColor
bColor=False

'此例利用内存中的recordset,你需要做的只是修改你的数据显示的部分就可以了。
SetmyRecordset=Server.CreateObject("ADODB.Recordset")
myRecordset.Fields.Append"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="字母："&Chr(iLetter)
myRecordset.Fields("Description").Value="这里测试字母："&Chr(iLetter)&"."
myRecordset.Update
Next'iLetter

'移动到头部开始位置，以便下面的循环开始.
myRecordset.MoveFirst


'在表格中显示数据

Response.Write"<tableborder=""0""cellspacing=""0""cellpadding=""3"">"&vbCrLf

'表头
Response.WritevbTab&"<tr>"&vbCrLf
ForEachFieldinmyRecordset.Fields
Response.WritevbTab&vbTab&"<tdbgcolor=""#CCCCCC""><strong>"
Response.WriteField.Name
Response.Write"</strong></td>"&vbCrLf
Next'Field
Response.WritevbTab&"</tr>"&vbCrLf

DoWhileNotmyRecordset.EOF
'循环改变单元格的背景颜色
bColor=NotbColor
IfbColorThen
strAltColor="#FFFFFF"
Else
strAltColor="#FF8040"
EndIf

'循环改变单元格的背景颜色
Response.WritevbTab&"<tr>"&vbCrLf
ForEachFieldinmyRecordset.Fields
Response.WritevbTab&vbTab&"<tdbgcolor="""
Response.WritestrAltColor
Response.Write""">"&Field.Value&"</td>"&vbCrLf
Next'Field
Response.WritevbTab&"</tr>"&vbCrLf

myRecordset.MoveNext
Loop

'Endthetable
Response.Write"</table>"&vbCrLf

'关闭对象、释放资源
myRecordset.Close
SetmyRecordset=Nothing
%>