如何给前三条最新信息旁边加上一个红旗

有时为了突出最新信息,可以在最新信息前几条定义为小红旗,但是asp中俺不会写这样的语句,不知有办法吗
我的代码如下:要求在新闻资讯版块中的前三条右边前上小红旗,以表明这三条是最新发的信息。

Sub kyl_syxwzx(classname,num)
if classname="新闻资讯" then
LinkUrl = "kyl_xwzx_zzy.asp"
elseif classname="项目动态" then
LinkUrl = "kyl_mtbd_zzy.asp"
end if
' response.Write classname
' response.End()
dim rs,imgs
    set rs=Server.CreateObject("ADODB.recordset")
rs.open"select classid,classname from articleclass where classname='" & classname & "'",conn,1,1
csid=rs("Classid")
rs.close
    rs.open "select ArticleID,title,classid,Deleted,updatetime,updatetime,CopyFrom,Author,Hits,Hot from Article where classid="&csid&" and Deleted=false order by updatetime desc ",conn,1,1
if rs.bof and rs.eof then
response.write "<div align='center' style='color:#464646'>资料整理中...</div>"
else
' response.Write rs.recordcount
' response.End()
rs.PageSize =1 '这里设定每页显示的记录数
pre = true
last = true
page = trim(Request.QueryString("page"))
 if len(page) = 0 then
    intpage = 1
    pre = false
 else
    if cint(page) =< 1 then
       intpage = 1
       pre = false
    else
        if cint(page)>=rs.PageCount then
        intpage = rs.PageCount
        last = false
        else
        intpage = cint(page)
     end if
   end if
end if
   if not rs.eof then
         rs.AbsolutePage = intpage
   end if

for n=1 to num
if not rs.eof then 
mt=month(rs("updatetime"))
if len(mt)<2 then
mt=0&mt
end if 
dt=day(rs("updatetime"))
if len(dt)<2 then
dt=0&dt
end if
tt=replace(rs("title"),"&nbsp;"," ")
ids=(rs("ArticleID"))
froms=(rs("CopyFrom"))
zuozhe=(rs("Author"))
hitss=(rs("Hits"))
hot=(rs("Hot"))
if len(tt)>18then
tt=left(tt,19) & "..."
else             
tt=rs("title")
end If

'ttt=replace(rs("Title"),"&nbsp;"," ")

%>              
   
  <div class="syxw_03">
  <div class="syxw_bt"><a href="<%=linkurl%>?id=<%=ids%>" target="_blank"><%=tt%> </a></div>
  <div class="syxw_time"><%=mt%>/<%=dt%></div>
 </div>
       
<%   
rs.movenext
else
end if
next
%>

<%
end If
rs.close
set rs=nothing
End Sub

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值