Question

asp 信息列表 发布的最新前5个信息加图标显示

<% Response.Buffer=True %><%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("56454.asa")
%><% set rs=server.createobject("adodb.recordset")
sql="select * from company"
rs.open sql,conn,1,1
r1=rs.recordcount
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from company where job<>'""' order by id desc"
rs.open sql,conn,1,1
jobnum=rs.recordcount %><tr><% do while not rs.eof %><td width="33%"><font face=webdings color='#FF6600'>4</font><a href="company.asp?uid=<%=rs("uname")%>" target="_blank" class="bbb" title=招聘职位：<%=rs("job")%>>
<%=rs("cname")%><br>招聘：
<% if len(rs("job"))>15 then%>
<%=Left(rs("job"),15)%>...
<% else%><%=rs("job")%><%end if%></a></td><% c=c+1
if c mod 3=0 then response.write "</tr><tr>"
rs.movenext
if c>=60 then exit do
loop
rs.close
set rs=nothing %></tr></table>

Answer 1

<font face=webdings color='#FF6600'>4</font>
改为
<%if c<=5 then response.write "<img src='图片' >" end if%>
<font face=webdings color='#FF6600'>4</font>
上面的c如果默认是 c=1的话则是 c<=5,如果c默认是0的话则是c<5