<%
dim rs,sql,i,NewsName,NewFlag
set rs = server.createobject("adodb.recordset")
sql="select ID,NewsName,SortID,AddTime from NwebCn_News where ViewFlag order by id desc"
rs.open sql,conn,1,1
response.write"
"
response.write " |
"
if rs.bof and rs.eof then
response.write "| 暂无相关信息 |
"
else
for i=1 to 5
if rs.eof then exit for
if StrLen(rs("NewsName"))<=25 then
NewsName=rs("NewsName")
else
NewsName=StrLeft(rs("NewsName"),22)
end if
if now()-rs("AddTime")<=2 then
NewFlag="
"
else
NewFlag=""
end if
response.write"| 4 "&NewsName&""&NewFlag&" |
"
rs.movenext
next
end if
response.write " |
"
response.write"
"
rs.close
set rs=nothing%>