• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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
    %>

    您可能感兴趣的文章:
    • javascript背景颜色按时变换
    • 用javascript实现li 列表数据隔行变换背景颜色
    • 响应鼠标变换表格背景或者颜色的代码
    • 一个背景云变换js特效 鼠标移动背景云变化
    • Jquery刷新页面背景图片随机变换的实现方法
    • js导航栏单击事件背景变换示例代码
    • JS代码实现根据时间变换页面背景效果
    上一篇:asp下删除Access数词库中的空记录的sql语句
    下一篇:asp下将数据库中的信息存储至XML文件中
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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