|
 |
栏目导栏 |
|
| |
|
|
|
|
|
资料搜索 |
|
| |
|
|
|
|
|
热门文章 |
|
| |
|
|
|
|
|
最新文章 |
|
| |
|
|
|
| |
| |
|
|
|
|
<% vFfLinux联盟
Const adInteger = 3 vFfLinux联盟
Const adVarChar = 200 vFfLinux联盟
' 声明变量 vFfLinux联盟
Dim myRecordset vFfLinux联盟
Dim iLetter vFfLinux联盟
Dim Field vFfLinux联盟
Dim strAltColor vFfLinux联盟
Dim bColor vFfLinux联盟
bColor = False vFfLinux联盟
vFfLinux联盟
' 此例利用内存中的recordset,你需要做的只是修改你的数据显示的部分就可以了。 vFfLinux联盟
Set myRecordset = Server.CreateObject("ADODB.Recordset") vFfLinux联盟
myRecordset.Fields.Append "ID", adInteger vFfLinux联盟
myRecordset.Fields.Append "Title", adVarChar, 25 vFfLinux联盟
myRecordset.Fields.Append "Description", adVarChar, 255 vFfLinux联盟
vFfLinux联盟
myRecordset.Open vFfLinux联盟
vFfLinux联盟
' Fill RS with sample data: vFfLinux联盟
For iLetter = Asc("A") To Asc("M") vFfLinux联盟
myRecordset.AddNew vFfLinux联盟
myRecordset.Fields("ID").Value = iLetter - 64 vFfLinux联盟
myRecordset.Fields("Title").Value = "字母：" & Chr(iLetter) vFfLinux联盟
myRecordset.Fields("Description").Value = "这里测试字母：" & Chr(iLetter) & "." vFfLinux联盟
myRecordset.Update vFfLinux联盟
Next 'iLetter vFfLinux联盟
vFfLinux联盟
'移动到头部开始位置，以便下面的循环开始. vFfLinux联盟
myRecordset.MoveFirst vFfLinux联盟
vFfLinux联盟
vFfLinux联盟
' 在表格中显示数据 vFfLinux联盟
vFfLinux联盟
Response.Write "<table border=""0"" cellspacing=""0"" cellpadding=""3"">" & VBCrLf vFfLinux联盟
vFfLinux联盟
'表头 vFfLinux联盟
Response.Write vbTab & "<tr>" & vbCrLf vFfLinux联盟
For Each Field in myRecordset.Fields vFfLinux联盟
Response.Write vbTab & vbTab & "<td bgcolor=""#CCCCCC""><strong>" vFfLinux联盟
Response.Write Field.Name vFfLinux联盟
Response.Write "</strong></td>" & vbCrLf vFfLinux联盟
Next 'Field vFfLinux联盟
Response.Write vbTab & "</tr>" & vbCrLf vFfLinux联盟
vFfLinux联盟
Do While Not myRecordset.EOF vFfLinux联盟
' 循环改变单元格的背景颜色 vFfLinux联盟
bColor = Not bColor vFfLinux联盟
If bColor Then vFfLinux联盟
strAltColor = "#FFFFFF" vFfLinux联盟
Else vFfLinux联盟
strAltColor = "#FF8040" vFfLinux联盟
End If vFfLinux联盟
vFfLinux联盟
'循环改变单元格的背景颜色 vFfLinux联盟
Response.Write vbTab & "<tr>" & vbCrLf vFfLinux联盟
For Each Field in myRecordset.Fields vFfLinux联盟
Response.Write vbTab & vbTab & "<td bgcolor=""" vFfLinux联盟
Response.Write strAltColor vFfLinux联盟
Response.Write """>" & Field.Value & "</td>" & vbCrLf vFfLinux联盟
Next 'Field vFfLinux联盟
Response.Write vbTab & "</tr>" & vbCrLf vFfLinux联盟
vFfLinux联盟
myRecordset.MoveNext vFfLinux联盟
Loop vFfLinux联盟
vFfLinux联盟
' End the table vFfLinux联盟
Response.Write "</table>" & vbCrLf vFfLinux联盟
vFfLinux联盟
' 关闭对象、释放资源 vFfLinux联盟
myRecordset.Close vFfLinux联盟
Set myRecordset = Nothing vFfLinux联盟
%> vFfLinux联盟
vFfLinux联盟
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
|
|
|
|
