asp下制做行背景颜色交替变换的表格

<%
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
%>

赞 (0)

相关推荐

  • JS代码实现根据时间变换页面背景效果

    1.概述 有些时侯为了丰富页面的显示效果,将页面制作成根据时间变换页面背景的样式,这样会使浏览者对此网站不会感觉厌倦,同时也会觉得网站制作的非常新颖.本实例通过Date对象的getHours()方法获得当前系统时间的小时,然后根据不同的时间段来改变页面的背景图片. 2.技术要点 主要使用JavaScript中的Date对象的getHours()方法得到当前系统时间的小时,然后在一定的时间段内判断当前小时是否符合指定的时间段,如果符合则使用document对象的write()方法在页面中显示一幅图

  • js导航栏单击事件背景变换示例代码

    如下所示; 复制代码 代码如下: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv=

  • Jquery刷新页面背景图片随机变换的实现方法

    使用方法:下载jquery-1.9.1.js,然后设置CSS,图片文件放在images/new_feed/目录下,图片命名格式为bg_x.jpg,修改随机数产生范围 一.CSS代码 复制代码 代码如下: <style> body{                padding:0;                background-attachment: fixed;                background-clip: border-box;                bac

  • 响应鼠标变换表格背景或者颜色的代码

    1.是图片 一般就是准备两张图片 当鼠标放上去即显示另外一张图片<table width="100" border="0" cellspacing="0" cellpadding="0" onmouseover=javascript:this.background='images/jb51-1.jpg' onmouseout=background='images/jb51-2.jpg'> 2.变换颜色如下所写,这个

  • 一个背景云变换js特效 鼠标移动背景云变化

    提到博客,不能不提到博客园cnblogs.com.绝对是国内非常非常牛逼的博客云集地.可能我关注博客的时间比较短,从2010年才开始,而那里的博主们基本4年以上的博龄了. 在群里有人要个比较个性的企业网站,诗缘妹子就贴了一个网址,我没事也点了看了下,果真不错.下面你就想到了,这个背景云变换js特效我看上眼了. 由于用的一些css3属性,部分低版本的浏览器可是没有效果的哦. 使用方法很简单,直接在你所要实现效果的最底层加入: 复制代码 代码如下: <!--parallax--> <link

  • 用javascript实现li 列表数据隔行变换背景颜色

    New Document title 111 222 333 444 555 666 objName=document.getElementById("list01").getElementsByTagName("li") for (i=0;i [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

  • javascript背景颜色按时变换

    <head> </head> <body onload="setcolor()" > <div id=mydiv style="font:12px sans-serif;width:300px;height:200px;">背景色测试</div> <script> function setcolor() { var colorString; do{ colorString="#&quo

  • asp下制做行背景颜色交替变换的表格

    <% Const adInteger = 3 Const adVarChar = 200  ' 声明变量 Dim myRecordset  Dim iLetter      Dim Field        Dim strAltColor  Dim bColor       bColor = False ' 此例利用内存中的recordset,你需要做的只是修改你的数据显示的部分就可以了. Set myRecordset = Server.CreateObject("ADODB.Recor

  • 利用JQuery和JS实现奇偶行背景颜色自定义效果

    JQuery实现: 复制代码 代码如下: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Conten

  • jQuery 行背景颜色的交替显示(隔行变色)实现代码

    一些css的定义,可以根据需要自己选择.//显示单双行显示不同背景色[方法一]: // $("#UL_id li:even").attr("className","redClass"); //显示单双行显示不同背景色[方法二]: $("#UL_id li:even").addClass("redClass"); <ul id="UL_id"> <li>单数<

  • asp.net ListView交替背景颜色实现代码

    只一行代码: 复制代码 代码如下: <tr style="<%# (Container.DisplayIndex%2==0)?"background-color:white;":"background-color:#EEEEEE;" %>"> 另外还有直接用js处理整个页面中所有tr的交替色: 复制代码 代码如下: <html> <head> <meta http-equiv="Co

  • linux BASH shell下设置字体及背景颜色

    BASH shell下设置字体及背景颜色 echo -e "\e[31mtest\e[41m" \e[30m 将字符的显示颜色改为黑色 \e[31m 将字符的显示颜色改为红色 \e[32m 将字符的显示颜色改为绿色 \e[33m 将字符的显示颜色改为淡红色 \e[34m 将字符的显示颜色改为蓝色 \e[35m 将字符的显示颜色改为紫色 \e[36m 将字符的显示颜色改为淡蓝色 \e[37m 将字符的显示颜色改为灰色 \e[40m -- \e[47m 设置背景色 \e[40m 将背景色设

  • C++ 设置控制台(命令行)窗口 光标位置,及前背景颜色

    核心代码 #include "stdafx.h" #include <stdio.h> #include <windows.h> /* #define FOREGROUND_BLUE 0x0001 // text color contains blue. #define FOREGROUND_GREEN 0x0002 // text color contains green. #define FOREGROUND_RED 0x0004 // text color

  • UITableViewCell在编辑状态下背景颜色的修改方法

    UITableViewCell在编辑状态下背景颜色的修改方法

    本文主要介绍的是关于UITableViewCell在编辑状态下背景颜色的修改方法,分享出来供大家参考学习,下面来一起看看详细的介绍: 一.先看下效果图 二.网上很多下面这种答案 UITableViewCell * cell = [tableView cellForRowAtIndexPath:indexPath]; cell.selectionStyle = UITableViewCellSelectionStyleNone; 这样设置,蓝色的选中图标也不会出现. 这种仅限于不编辑的时候,让Ta

  • JAVA代码设置selector不同状态下的背景颜色

    代码实现Shape 代码实现Selector StateListDrawable与GradientDrawable 的运用 在Android开发中,我们时常会用到自定义drawable样式,在drawable中设置shape样式或是selector选择器,但是有时如果一个xml中需要用到多个drawable样式,并且里面设置的样式只是有细微的差别改变,那么自定义多个drawable样式会显得比较臃肿,使得drawable的xml文件太多,管理麻烦,所以有时本星觉得可以在代码中创建drawable

  • 对GridView的行加颜色并弹出Kindeditor的实现思路

    前台代码: 复制代码 代码如下: <head runat="server"> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/> <title></title> <script type="text/javascript"> function tureDelete() { if (c

随机推荐