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

时间: 2024-06-11 10:43:06

asp下制做行背景颜色交替变换的表格_应用技巧的相关文章

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.R

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

  color.asp 作者:淘特网 出处:淘特网 注:转载请注明出处  <%Const adInteger = 3Const adVarChar = 200 ' 声明变量Dim myRecordset Dim iLetter     Dim Field       Dim strAltColor Dim bColor      bColor = False ' 此例利用内存中的recordset,你需要做的只是修改你的数据显示的部分就可以了.Set myRecordset = Server.C

asp下对POST提交数据限制的解决方法_应用技巧

    问题的解决办法是,对于一个需要发送大数据的域,在提交表单前将数据拆分为小于限额的数份,分别放在数个hidden域中,同时把原有域清空,再正式提交表单.服务器端还是用Request.Form()读取各hidden域的数据,再按照顺序把他们拼接起来就行了.主要代码如下: 注意:需要在Form中的HTML代码内指定一个DIV,以便向其中动态插入hidden域. ====客户端示例代码==== 在Form中的HTML代码内加入:<div id=divHidden></div>,在F

asp下tag的实现,简单介绍与部分代码_应用技巧

标签(Tag)是什么? 标签是一种更为自由.灵活,完全由用户决定的分类方式,而非传统的由网站定义的分类.您可以根据自己的理解,对发表的文章.上传的图片.音乐.视频等各种文件添加一个或多个标签,进行灵活的描述.  添加标签(Tag)有什么作用? 标签体现了群体的力量,使得用户之间可以通过相近的内容产生更多的关联和互动.您在发表日志或上传文件时添加了Tag ,就可以看到woku.com所有和您使用了相同Tag 的日志和文件.  标签频道中不同大小.粗细的文字代表什么? 使用不同大小.粗细字体的标签,

asp下轻松实现将上传图片到数据库的代码_应用技巧

轻松实现将上传图片到数据库 很久就想自己写一写程序了,不过由于赖就不想写我,今天刚好有空,所以写了这个小小的程序很容易一看就知道的,不多说了就此开始: 我们做一个上传的.数据据库的字段就id自动编号 big 字段类型是 OLE 呵呵就简单的那个字段好了 uppic.asp上传程序名 <% dim rs  dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata formsize=request.totalbytes '取得客户端发

asp下过滤非法的SQL字符的函数代码_应用技巧

复制代码 代码如下: '************************************************** '函数名:R '作 用:过滤非法的SQL字符 '参 数:strChar-----要过滤的字符 '返回值:过滤后的字符 '************************************************** Public Function R(strChar) If strChar = "" Or IsNull(strChar) Then R =

asp下比较全面的获取IP地址的代码_应用技巧

最简单的用以下语句: ip=request.ServerVariables("REMOTE_ADDR")  response.Write(ip) 但这种方法对代理服务器上网的就不准了,故比较全面的是用下面的方法: 复制代码 代码如下: <%Private Function getIP()   Dim strIPAddr   If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR 

asp下实现对HTML代码进行转换的函数_应用技巧

<% '****************************** '函数:HTMLEncode(reString) '参数:reString,待编码转换处理的字符串 '作者:阿里西西 '日期:2007/7/15 '描述:对HTML代码进行转换 '示例:HTMLEncode("<p>欢迎访问<br>阿里西西</p>") '****************************** Function HTMLEncode(reString)

asp下实现格式化文件大小以MB显示的函数_应用技巧

<% '****************************** '函数:FormatFileSize(l1) '参数:l1,字节数 '作者:阿里西西 '日期:2007/7/12 '描述:格式化文件大小样式 '示例:<%=FormatFileSize(l1)%> '****************************** function FormatFileSize(l1)  dim l2,l3  l3=formatnumber(l1,0,true)  if l1>104