请教asp读取数据库的弱智问题
来源:百度知道 编辑:UC知道 时间:2024/05/19 22:42:49
正常读取数据库:
<%
set rss=server.CreateObject ("ADODB.recordset" )
rss.open "select * from info ",conn,1,1
%>
<%
if rss.EOF and rss.BOF then
response.write("暂时还没有文章")
else
Do Until rss.EOF
%>
<%=rss("title")%><br />
<%
rss.Movenext
Loop
end if
%>
这样读出来是
第一条新闻
第二条新闻
第三条新闻
.....
我想让他读的时候
第一条字体颜色是红色
第二条字体颜色是黑色
第三条字体颜色是蓝色
依次循环
请问代码该怎么写啊
求助啊
就25分了 都奉献了 呵呵 帮帮忙啊 谢谢各位了
楼下的三位兄弟 测试都通不过啊
<%
set rss=server.CreateObject ("ADODB.recordset" )
rss.open "select * from info ",conn,1,1
%>
<%
if rss.EOF and rss.BOF then
response.write("暂时还没有文章")
else
Do Until rss.EOF
%>
<%=rss("title")%><br />
<%
rss.Movenext
Loop
end if
%>
这样读出来是
第一条新闻
第二条新闻
第三条新闻
.....
我想让他读的时候
第一条字体颜色是红色
第二条字体颜色是黑色
第三条字体颜色是蓝色
依次循环
请问代码该怎么写啊
求助啊
就25分了 都奉献了 呵呵 帮帮忙啊 谢谢各位了
楼下的三位兄弟 测试都通不过啊
Do Until rss.EOF
%>
<%=rss("title")%><br />
<%
rss.Movenext
Loop
这里改
For i=1 to rss.RecordCount
Select Case i mod 3
case 2
Response.write "<Font color=Red>" & rss("title") & "</Font></br>"
case 1
Response.write "<Font color=black>" & rss("title") & "</Font></br>"
case 0
Response.write "<Font color=blue>" & rss("title") & "</Font></br>"
End Select
rss.movenext
Next
位置又不在了= =! 我也有错误。少了个End Select 现在应该好了。你试试
在循环的时候用个变量做判断.
可以i%3==0 font=red
i%3==1 font=black
i%3==2 font=blue
因我没有学过asp,所以在asp中怎么判断不会.
else
Dim count=1
Do Until rss.EOF
if count mod 3=1 then '取模是这么写吧,不记得了...
%>
<font color='red'><%=rss("titl