丝瓜草莓,女18自慰喷水www网站

%
Const adInteger = 3
Const adVarChar = 200
' 聲明變量
Dim myRecordset
Dim iLetter
Dim Field
Dim strAltColor
Dim bColor
bColor = False

' 此例利用內(nèi)存中的recordset,你需要做的只是修改你的數(shù)據(jù)顯示的部分就可以了。
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

'移動(dòng)到頭部開始位置，以便下面的循環(huán)開始.
myRecordset.MoveFirst

' 在表格中顯示數(shù)據(jù)

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
' 循環(huán)改變單元格的背景顏色
bColor = Not bColor
If bColor Then
  strAltColor = "#FFFFFF"
Else
  strAltColor = "#FF8040"
End If

'循環(huán)改變單元格的背景顏色
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

' 關(guān)閉對象、釋放資源
myRecordset.Close
Set myRecordset = Nothing
%>

您可能感興趣的文章:

javascript背景顏色按時(shí)變換
用javascript實(shí)現(xiàn)li 列表數(shù)據(jù)隔行變換背景顏色
響應(yīng)鼠標(biāo)變換表格背景或者顏色的代碼
一個(gè)背景云變換js特效鼠標(biāo)移動(dòng)背景云變化
Jquery刷新頁面背景圖片隨機(jī)變換的實(shí)現(xiàn)方法
js導(dǎo)航欄單擊事件背景變換示例代碼
JS代碼實(shí)現(xiàn)根據(jù)時(shí)間變換頁面背景效果

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

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《asp下制做行背景顏色交替變換的表格》，本文關(guān)鍵詞 asp,下,制做,行,背景,顏色,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。