asp下制做行背景颜色交替变换的表格
ASP 表格 颜色 背景 变换 交替
2023-06-13 09:13:55 时间
<%
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
%>
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:UpdatePanel客户端回传事件管理
- ASP操作MySQL数据库的实现(asp读取mysql)
- 3.0Linux系统中运行ASP 3.0的实践(linux运行asp)
- .net利用MSSQL连接ASP.NET的办法探索(mssql 连接asp)
- 使用ASP连接MySQL实现数据库应用(asp连接空间mysql)
- 使用 ASP 实现 MySql 数据库的分页功能(asp连接mysql分页)
- ASP编程存取MySQL数据库出现乱码问题(asp读mysql乱码)
- ASP技术可以驱动MySQL吗(asp能连接mysql吗)
- ASP技术点缀MySQL之美展示精彩绚丽(asp展示mysql)
- ASP快速连接MySQL解决方案(asp如何连mysql)
- MySQL语句实现 ASP 程序开发精彩功能(asp mysql语句)
- ASP程序从Oracle数据库精挖宝贵资源(asp取oracle数据)
- ASP写入Oracle数据库性能瓶颈问题(asp写入Oracle慢)
- ASP程序开发与Oracle数据库结合实现(asp与oracle)
- ASP中Request对象获取客户端数据的顺序(容易忽略)
- asp中通过getrows实现数据库记录分页的一段代码
- 如何写ASP入库小偷程序
- asp生成三维饼图的函数
- Asp.NET随机码生成基类(随机字母,随机数字,随机字母+数字)
- Asp.Net数据输出到EXCEL表格中
- asp.C#实现图片文件与base64string编码解码
- asp.net(c#)限制用户输入规定的字符和数字的代码
- ASP.NET设计网络硬盘之两重要类代码
- ASP.NET线程相关配置