<%
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