- <%
- 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 = "這里測(cè)試字母：" & 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)閉對(duì)象、釋放資源
- myRecordset.Close
- Set myRecordset = Nothing
- %>
asp下制做行背景顏色交替變換的表格
2019-10-16 09:44asp代碼網(wǎng) ASP教程
asp下制做行背景顏色交替變換的表格
延伸 · 閱讀
- 2022-03-10Word怎么把文字轉(zhuǎn)換成表格？
- 2022-03-10Mongodb數(shù)據(jù)庫(kù)轉(zhuǎn)換為表格文件的庫(kù)
- 2022-03-08js動(dòng)態(tài)實(shí)現(xiàn)表格添加和刪除操作
- 2022-03-08js實(shí)現(xiàn)單擊可修改表格
- 2022-03-08易語言高級(jí)表格選擇任意行列獲取內(nèi)容的代碼示
- 2022-03-06js實(shí)現(xiàn)表格拖動(dòng)選項(xiàng)
精彩推薦
- ASP教程
asp之基于adodb.stream的文件操作類
asp之基于adodb.stream的文件操作類...
- ASP教程
JScript中遍歷Request表單參數(shù)集合的方法
這篇文章主要介紹了JScript中遍歷Request表單參數(shù)集合的方法,本文以遍歷Request.QueryString集合為例給出了實(shí)現(xiàn)代碼,需要的朋友可以參考下...
- ASP教程
asp 采集實(shí)戰(zhàn)代碼
最近實(shí)在是太流行采集了，本人是不喜歡采集的，但對(duì)采集的原理我卻很有興趣進(jìn)行研究，拿到了網(wǎng)上采集常用函數(shù)，對(duì)其進(jìn)行了一番研究，并實(shí)戰(zhàn)，結(jié)果...
- ASP教程
asp+javascript實(shí)現(xiàn)404頁的處理轉(zhuǎn)換
asp+javascript實(shí)現(xiàn)404頁的處理轉(zhuǎn)換...
- ASP教程
asp 標(biāo)記字符串中指定字符變色不區(qū)分大小寫
今天遇到這種問題，單純的使用replace函數(shù)不行，他會(huì)改變?cè)械淖址拇笮?在網(wǎng)上找到相關(guān)的代碼，自己備份下...
- ASP教程
asp Access數(shù)據(jù)備份,還原,壓縮類代碼
asp Access數(shù)據(jù)備份,還原,壓縮類實(shí)現(xiàn)代碼，大家可以參考下。...
- ASP教程
ASP常用函數(shù):getpy()
ASP常用函數(shù):getpy()...
- ASP教程
ASP.NET 數(shù)據(jù)源
數(shù)據(jù)源 一個(gè) data sourse 控件與數(shù)據(jù)綁定的控件相互作用，并隱藏了復(fù)雜的數(shù)據(jù)的聯(lián)編過程。這些是提供數(shù)據(jù)給 data bound 控件的工具，并且支持如插入，刪除...
