求助:asp在最近2天的新闻后加new图标的问题!
<%SubnewsList(ID,num,zs)setrs=server.CreateObject("adodb.recordset")rs.open"select*fr...
<%
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
%>
哪位高手能帮我修改一下,得到一个完整的程序,我只有这么几分了全部给你们,希望大家帮忙。谢谢。谢谢。 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询