|
<%
set news=server.createobject("adodb.recordset")
exec="select top 10 * from [news] where ssfl=1 order by id desc "
news.open exec,conn,1,1
if news.eof and news.bof then
response.Write(" 暂无 !")
end if
%>
<%
i=1
do while not news.eof
dim url1,color1
if IsNull(news("url")) or trim(news("url")&"")="" then
url="newsdetail.asp?id="&news("id")&""
else
url1=""&news("url")&""
end if
if IsNull(news("color")) or trim(news("color")&"")="" then
color1="#000000"
else
color1=""&news("color")&""
end if
%>
|
<%
news.movenext
loop
news.close
set news=nothing
%>
|
|
|
|
|