有时为了突出最新信息,可以在最新信息前几条定义为小红旗,但是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")," "," ")
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")," "," ")
%>
<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