- <%
- 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
- %>
asp下制做行背景颜色交替变换的表格
2019-10-16 09:44asp代码网 ASP教程
asp下制做行背景颜色交替变换的表格
延伸 · 阅读
- 2022-03-10Word怎么把文字转换成表格?
- 2022-03-10Mongodb数据库转换为表格文件的库
- 2022-03-08js动态实现表格添加和删除操作
- 2022-03-08js实现单击可修改表格
- 2022-03-08易语言高级表格选择任意行列获取内容的代码示
- 2022-03-06js实现表格拖动选项
精彩推荐
- ASP教程
asp之基于adodb.stream的文件操作类
asp之基于adodb.stream的文件操作类...
- ASP教程
JScript中遍历Request表单参数集合的方法
这篇文章主要介绍了JScript中遍历Request表单参数集合的方法,本文以遍历Request.QueryString集合为例给出了实现代码,需要的朋友可以参考下...
- ASP教程
asp 采集实战代码
最近实在是太流行采集了,本人是不喜欢采集的,但对采集的原理我却很有兴趣进行研究,拿到了网上采集常用函数,对其进行了一番研究,并实战,结果...
- ASP教程
asp+javascript实现404页的处理转换
asp+javascript实现404页的处理转换...
- ASP教程
asp 标记字符串中指定字符变色不区分大小写
今天遇到这种问题,单纯的使用replace函数不行,他会改变原有的字符串的大小写,在网上找到相关的代码,自己备份下...
- ASP教程
asp Access数据备份,还原,压缩类代码
asp Access数据备份,还原,压缩类实现代码,大家可以参考下。...
- ASP教程
ASP常用函数:getpy()
ASP常用函数:getpy()...
- ASP教程
ASP.NET 数据源
数据源 一个 data sourse 控件与数据绑定的控件相互作用,并隐藏了复杂的数据的联编过程。这些是提供数据给 data bound 控件的工具,并且支持如插入,删除...