 |
|
 |
|
 |
 |
|
 |
 |
|
 |
<% dim sql
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 * from news where goodnews=1 order by adddate desc",conn,1,1
if rs.eof And rs.bof then
Response.Write " 数据库中暂时无数据,请重新选择查询选项"
end if
i = 0
do while not rs.eof
if len(trim(rs("title"))) > 16 then
title = Left(Trim(rs("title")),16) ' & "......"
else
title = rs("title")
end if
%>
· |
title="<%=rs("title")%>" target="_blank" class="a"><%=title%> (<%=mid(year(rs("adddate")),3,2)%>-<%=month(rs("adddate"))%>-<%=day(rs("adddate"))%>) |
<%
i = i + 1
rs.movenext
if (not rs.eof) then
if len(trim(rs("title"))) > 16 then
title = Left(Trim(rs("title")),16) '& "......"
else
title = rs("title")
end if
%>
· |
title="<%=rs("title")%>" target="_blank" class="a"><%=title%> (<%=mid(year(rs("adddate")),3,2)%>-<%=month(rs("adddate"))%>-<%=day(rs("adddate"))%>) |
<%
i = i + 1
rs.movenext
end if
loop
rs.close
set rs=Nothing
%>
|
|
