国产精品都在这里,亚洲精品一区二区三区99,国产精品久久久久一区二区三区

%
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

'移動到頭部開始位置，以便下面的循環開始.
myRecordset.MoveFirst

' 在表格中顯示數據

Response.Write "table border=""0"" cellspacing=""0"" cellpadding=""3"">"  vbCrLf

'表頭
Response.Write vbTab  "tr>"  vbCrLf
For Each Field in myRecordset.Fields
Response.Write vbTab  vbTab  "td bgcolor=""#CCCCCC"">strong>"
Response.Write Field.Name
Response.Write "/strong>/td>"  vbCrLf
Next 'Field
Response.Write vbTab  "/tr>"  vbCrLf

Do While Not myRecordset.EOF
' 循環改變單元格的背景顏色
bColor = Not bColor
If bColor Then
  strAltColor = "#FFFFFF"
Else
  strAltColor = "#FF8040"
End If

'循環改變單元格的背景顏色
Response.Write vbTab  "tr>"  vbCrLf
For Each Field in myRecordset.Fields
  Response.Write vbTab  vbTab  "td bgcolor="""
  Response.Write strAltColor
  Response.Write """>"  Field.Value  "/td>"  vbCrLf
Next 'Field
Response.Write vbTab  "/tr>"  vbCrLf

myRecordset.MoveNext
Loop

' End the table
Response.Write "/table>"  vbCrLf

' 關閉對象、釋放資源
myRecordset.Close
Set myRecordset = Nothing
%>

您可能感興趣的文章:

javascript背景顏色按時變換
用javascript實現li 列表數據隔行變換背景顏色
響應鼠標變換表格背景或者顏色的代碼
一個背景云變換js特效鼠標移動背景云變化
Jquery刷新頁面背景圖片隨機變換的實現方法
js導航欄單擊事件背景變換示例代碼
JS代碼實現根據時間變換頁面背景效果

標簽：麗江昌都咸陽鐵嶺溫州家電維修泰州昆明

巨人網絡通訊聲明：本文標題《asp下制做行背景顏色交替變換的表格》，本文關鍵詞 asp,下,制做,行,背景,顏色,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。

婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

asp下制做行背景顏色交替變換的表格