asp在最近几天的新闻后加new图标的问题!
图标已经加上了,只显示最近的两条,我先说明,我是一个菜鸟,希望高手们能够不吝赐教,给我指点,我只有30分,全部都给你们,万分感激。<%SubnewsList(ID,num...
图标已经加上了,只显示最近的两条,我先说明,我是一个菜鸟,希望高手们能够不吝赐教,给我指点,我只有30分,全部都给你们,万分感激。
<%
Sub newsList(ID,num,zs)
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from news where sort="&id&" order by id desc",conn,1,1
if (rs.eof and rs.bof) then
response.Write("<tr><td height=60> 暂时没有相关信息!</td></tr>")
else
i=0
do while not rs.eof
%>
<tr>
<td width="19" height="18">◇</td>
<td width="371">
<a href="newshow.asp?id=<%=rs("id")%>"><%=cutStr(rs("title"),zs)%></a>
<%
if ID>15 then
if i<2 then
%>
<img src="images/news.gif" width="28" height="11" border="0" />
<%
end if
end if
%>
</td>
</tr>
<%
i=i+1
if i>=num then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing
end Sub
%>
这是程序,谢谢高手啦 展开
<%
Sub newsList(ID,num,zs)
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from news where sort="&id&" order by id desc",conn,1,1
if (rs.eof and rs.bof) then
response.Write("<tr><td height=60> 暂时没有相关信息!</td></tr>")
else
i=0
do while not rs.eof
%>
<tr>
<td width="19" height="18">◇</td>
<td width="371">
<a href="newshow.asp?id=<%=rs("id")%>"><%=cutStr(rs("title"),zs)%></a>
<%
if ID>15 then
if i<2 then
%>
<img src="images/news.gif" width="28" height="11" border="0" />
<%
end if
end if
%>
</td>
</tr>
<%
i=i+1
if i>=num then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing
end Sub
%>
这是程序,谢谢高手啦 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询