关于ASP程序

来源：百度知道 编辑：UC知道 时间：2024/05/05 15:29:11
我现有这样一段代码：<%
response.write "<table border=0 cellpadding=0 cellspacing=0>"
set rs=conn.execute("select top 10 * from bproduc where online=true and remark='1'and ClickTimes>200 order by AddDate desc")
if rs.bof and rs.eof then
response.write "<tr><td align=center><font color=#000000>暂时没有推荐商品</font></td></tr>"
else
Do While Not rs.eof
response.write "<tr><td height=24><a href='list.asp?ProdId="&rs("ProdId")&"'><font color=#000000>"&lleft(rs("ProdName"),28)&"</font></a></td></tr>"
rs.movenext
loop
end if
response.write "</table>"
%>
现在我要实现当：ClickTimes>400的时候，输出的文字以红色显示，否则以黑色显示，请高手帮忙，谢谢！

<%
response.write "<table border=0 cellpadding=0 cellspacing=0>"
set rs=conn.execute("select top 10 * from bproduc where online=true and remark='1'and ClickTimes>200 order by AddDate desc")
if rs.bof and rs.eof then
response.write "<tr><td align=center><font color=#000000>暂时没有推荐商品</font></td></tr>"
else
Do While Not rs.eof
if rs("ClickTimes") > 400 then
response.write "<tr><td height=24><a href='list.asp?ProdId="&rs("ProdId")&"'><font color=#FF0000>"&lleft(rs("ProdName"),28)&"</font></a></td></tr>"
else
response.write "<tr><td height=24><a href='list.asp?ProdId="&rs("ProdId")&"'><font color=#000000>"&lleft(rs("ProdName"),28)&"</font></a&