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