您正在使用 IPV4 [3.235.199.19] 访问本站,您本次已经查看了 1 页
用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
悟空收录网       [公益]保护绿色环境,构建和谐社会      

【腾讯云】云服务器、云数据库、COS、CDN、短信等云产品特惠热卖中      
[公益] 地球是我家,绿化靠大家      
2024年 清明节 016
2024年 劳动节 043
2025年 元 旦 288
2025年 春 节 316
 
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
asp下制做行背景颜色交替变换的表格
内容摘要: %ConstadInteger=3ConstadVarChar=200'声明变量DimmyRecordsetDimiLetterDimFieldDimstrAltColorDimbColorbColor=False'此例利用内存中的recordset,你需要做的只是修改你的数据显示的部分就可以了。SetmyRecordset=Server.CreateObj......
<%

ConstadInteger=3

ConstadVarChar=200

'声明变量

DimmyRecordset

DimiLetter

DimField

DimstrAltColor

DimbColor

bColor=False

'此例利用内存中的recordset,你需要做的只是修改你的数据显示的部分就可以了。

SetmyRecordset=Server.CreateObject("ADODB.Recordset")

myRecordset.Fields.Append"ID",adInteger

myRecordset.Fields.Append"Title",adVarChar,25

myRecordset.Fields.Append"Description",adVarChar,255

myRecordset.Open

'FillRSwithsampledata:

ForiLetter=Asc("A")ToAsc("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"<tableborder=""0""cellspacing=""0""cellpadding=""3"">"&vbCrLf

'表头

Response.WritevbTab&"<tr>"&vbCrLf

ForEachFieldinmyRecordset.Fields

Response.WritevbTab&vbTab&"<tdbgcolor=""#CCCCCC""><strong>"

Response.WriteField.Name

Response.Write"</strong></td>"&vbCrLf

Next'Field

Response.WritevbTab&"</tr>"&vbCrLf

DoWhileNotmyRecordset.EOF

'循环改变单元格的背景颜色

bColor=NotbColor

IfbColorThen

strAltColor="#FFFFFF"

Else

strAltColor="#FF8040"

EndIf

'循环改变单元格的背景颜色

Response.WritevbTab&"<tr>"&vbCrLf

ForEachFieldinmyRecordset.Fields

Response.WritevbTab&vbTab&"<tdbgcolor="""

Response.WritestrAltColor

Response.Write""">"&Field.Value&"</td>"&vbCrLf

Next'Field

Response.WritevbTab&"</tr>"&vbCrLf

myRecordset.MoveNext

Loop

'Endthetable

Response.Write"</table>"&vbCrLf

'关闭对象、释放资源

myRecordset.Close

SetmyRecordset=Nothing

%>

版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
上一篇:ASP中RecordSet Open和Connection.

 

下一篇:asp 读取文件和保存文件函数代码

发布日期:2023/3/9
手机扫二维码直达本页
发布时间:13:14:08
点  击:2
录  入:齐天大圣
相关文章
Baidu
YiJiaCMS 7.3.8 build231228(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,Cloudflare提供加速防护
运行时间载入中.....