- <%
- 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下制做行背景颜色交替变换的表格
延伸 · 阅读
- 2019-10-16asp下删除Access数词库中的空记录的sql语句
- 2019-10-16asp下将数据库中的信息存储至XML文件中
- 2019-10-15asp下如何在Access数据库中立即得到所插入记录的
- 2019-10-15asp下如何在ADO服务器端利用好缓存技术?
- 2019-10-15asp调用Word打印的代码
- 2019-10-15Asp中随机产生用户密码的代码
精彩推荐
- ASP教程
ASP 三层架构 Convert类实现代码
第二个重要的类,作用是类型转换,类名Con_Convert.在页面代码的开头实例化,对象名为Convert,借用了.net的类型转换的对象名称....
- ASP教程
asp导出excel文件最简单方便的方法
这篇文章主要介绍了asp导出excel文件最简单方便的方法,几行代码就可以搞定,非常简单实用,需要的朋友可以参考下...
- ASP教程
asp调用Word打印的代码
asp调用Word打印的代码...
- ASP教程
asp中获取内容中所有图片与获取内容中第一个图片的代码
用asp获取内容中的图片与获取内容中的第一个图片地址,主要是cms中保存内容中的图片需要用得到,使用的是正则的方法。...
- ASP教程
ASP基础入门第四篇(脚本变量、函数、过程和条件语句)
大家在学习了脚本语言 VBScript 的变量、常量和过程的基本概念后,本期将继续向各位介绍 VBScript 的函数和语法。...
- ASP教程
asp下实现记录集内随机取记录的代码
asp下实现记录集内随机取记录的代码 ...
- ASP教程
用asp实现访问远程计算机上MDB access数据库文件的方法
用asp实现访问远程计算机上MDB access数据库文件的方法...
- ASP教程
Form Post提交容量大的数据
以前在工作中遇到一个问题,当表单发送的数据量很大时,就会报错。查阅MSDN了解到,原因是微软对用Request.Form()可接收的最大数据限制为100K字节。...