asp发布的文章列表里显示最新图标怎么实现
<dlid="focusNews1"><dt><ul><%ArtClassID=1IfArtClassID<>0ThensSql="SelectClassID,Class...
<dl id="focusNews1">
<dt>
<ul>
<%
ArtClassID=1
If ArtClassID <>0 Then
sSql="Select ClassID,ClassName,ParentPath,Child From newsClass Where ClassID="&ArtClassID
oRs.Open sSql,oConn,1,1
If Not oRs.Eof Then
if oRs("ClassID")>0 then
if oRs("Child")>0 then
ChildID=""
set tClass=oConn.execute("select ClassID from newsClass where ParentID=" & oRs("ClassID") & " or ParentPath like '" & oRs("ParentPath") & "," & oRs("ClassID") & ",%'")
do while not tClass.eof
if ChildID="" then
ChildID=tClass(0)
else
ChildID=ChildID & "," & tClass(0)
end if
tClass.movenext
loop
else
ChildID=ArtClassID
end if
end if
End If
oRs.Close
sSql="Select top 5 D_ID,D_ClassID,D_Title,D_Count,D_Time From newsData Where d_classid in ("&ChildID&") and d_recycle=false ORDER BY d_id DESC"
Else
sSql="Select D_ID,D_ClassID,D_Title,D_Count,D_Time From newsData Where d_recycle=false ORDER BY d_id DESC"
End If
oRs.Open sSql,oConn,1,1
If Not oRs.Eof Then
Do While Not oRs.Eof
%>
<li><span>
<%=formatdatetime(oRs("D_time"),vbshortdate)%></span><a href="/zz/news/ArticleShow.asp?ArtID=<%=oRs("D_ID")%>" title="文章标题:<%=oRs("D_Title")&vbcrlf%>点击次数:<%=oRs("D_Count")%>次"> <%=gottopic(oRs("D_Title"),34)%></a></li>
<%
oRs.MoveNext
i=i+1
Loop
%>
<%
Else
%>
<li>暂无文章信息!</li>
<%
End If
oRs.Close
%>
</ul>
</dd>
</dl>
我是想 显示列表里 如果是最新发布的文章 那显示一个NEW得小图标
<li><span>
<%=formatdatetime(oRs("D_time"),vbshortdate)%></span><a href="/zz/news/ArticleShow.asp?ArtID=<%=oRs("D_ID")%>" title="文章标题:<%=oRs("D_Title")&vbcrlf%>点击次数:<%=oRs("D_Count")%>次"> <%=gottopic(oRs("D_Title"),34)%> <%
if rs("D_time") = Date()="0"and dd<"3" then
response.write ("<img src=images/g.gif border=0>")
end if
%>
</a>
</li>
<%
oRs.MoveNext
i=i+1
Loop
%>
<%
Else
%>
<li>暂无文章信息!</li>
<%
End If
oRs.Close
%> 展开
<dt>
<ul>
<%
ArtClassID=1
If ArtClassID <>0 Then
sSql="Select ClassID,ClassName,ParentPath,Child From newsClass Where ClassID="&ArtClassID
oRs.Open sSql,oConn,1,1
If Not oRs.Eof Then
if oRs("ClassID")>0 then
if oRs("Child")>0 then
ChildID=""
set tClass=oConn.execute("select ClassID from newsClass where ParentID=" & oRs("ClassID") & " or ParentPath like '" & oRs("ParentPath") & "," & oRs("ClassID") & ",%'")
do while not tClass.eof
if ChildID="" then
ChildID=tClass(0)
else
ChildID=ChildID & "," & tClass(0)
end if
tClass.movenext
loop
else
ChildID=ArtClassID
end if
end if
End If
oRs.Close
sSql="Select top 5 D_ID,D_ClassID,D_Title,D_Count,D_Time From newsData Where d_classid in ("&ChildID&") and d_recycle=false ORDER BY d_id DESC"
Else
sSql="Select D_ID,D_ClassID,D_Title,D_Count,D_Time From newsData Where d_recycle=false ORDER BY d_id DESC"
End If
oRs.Open sSql,oConn,1,1
If Not oRs.Eof Then
Do While Not oRs.Eof
%>
<li><span>
<%=formatdatetime(oRs("D_time"),vbshortdate)%></span><a href="/zz/news/ArticleShow.asp?ArtID=<%=oRs("D_ID")%>" title="文章标题:<%=oRs("D_Title")&vbcrlf%>点击次数:<%=oRs("D_Count")%>次"> <%=gottopic(oRs("D_Title"),34)%></a></li>
<%
oRs.MoveNext
i=i+1
Loop
%>
<%
Else
%>
<li>暂无文章信息!</li>
<%
End If
oRs.Close
%>
</ul>
</dd>
</dl>
我是想 显示列表里 如果是最新发布的文章 那显示一个NEW得小图标
<li><span>
<%=formatdatetime(oRs("D_time"),vbshortdate)%></span><a href="/zz/news/ArticleShow.asp?ArtID=<%=oRs("D_ID")%>" title="文章标题:<%=oRs("D_Title")&vbcrlf%>点击次数:<%=oRs("D_Count")%>次"> <%=gottopic(oRs("D_Title"),34)%> <%
if rs("D_time") = Date()="0"and dd<"3" then
response.write ("<img src=images/g.gif border=0>")
end if
%>
</a>
</li>
<%
oRs.MoveNext
i=i+1
Loop
%>
<%
Else
%>
<li>暂无文章信息!</li>
<%
End If
oRs.Close
%> 展开
1个回答
展开全部
不明白,你问题的意思。
如果是做动态的图片显示,你弄出来的结果是不是页面布局不一支,那你可以这样:(手工打的见谅 - -!)
<table> <!--显示图片的一块区域-->
<tr>
<td>图片新闻</td>
</tr>
<tr>
<td>
<table>
<!--这里做循环-->
<tr>
图片新闻的具体功能的显示
</tr>
<!--res1.movenext-->
</table>
<!--这就是解决问题的关键要把你循环的内容把在一个tr里面,也就是说你新建了一个表格,准备显示图片但是你发现把图片把放到tr里面,最后的结果是页面布局出显问题,但是你这时,可以在一行(tr)插入一个表格,在表格里面,tr外面做循环。-->
</td>
</tr>
<table>
仔细看,看懂了。图标显示的话,你可以date()去更新闻发布时间的记录进行比较,如果为真就显示图片,做一个简单的。
res("news_date") 为新闻发布时间。
<%if res("news_date")=date() then%>
<tr>
<td>
<img src="../images/img01.jpg" alt="最新新闻"/>
</td>
</tr>
如果是做动态的图片显示,你弄出来的结果是不是页面布局不一支,那你可以这样:(手工打的见谅 - -!)
<table> <!--显示图片的一块区域-->
<tr>
<td>图片新闻</td>
</tr>
<tr>
<td>
<table>
<!--这里做循环-->
<tr>
图片新闻的具体功能的显示
</tr>
<!--res1.movenext-->
</table>
<!--这就是解决问题的关键要把你循环的内容把在一个tr里面,也就是说你新建了一个表格,准备显示图片但是你发现把图片把放到tr里面,最后的结果是页面布局出显问题,但是你这时,可以在一行(tr)插入一个表格,在表格里面,tr外面做循环。-->
</td>
</tr>
<table>
仔细看,看懂了。图标显示的话,你可以date()去更新闻发布时间的记录进行比较,如果为真就显示图片,做一个简单的。
res("news_date") 为新闻发布时间。
<%if res("news_date")=date() then%>
<tr>
<td>
<img src="../images/img01.jpg" alt="最新新闻"/>
</td>
</tr>
博思aippt
2024-07-20 广告
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员,对于Word文档生成PPT的操作,我们有以下建议:1. 使用另存为功能:在Word中编辑完文档后,点击文件->另存为,选择PowerPoint演示文稿(*.pptx)格式,即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询