<%
i=0
Set Rs = server.createobject("adodb.recordset")
Rs.source = "select * from News where TreeID='388' order by id desc "
Rs.open Rs.source,conn,1,1
Response.Write"
"
if Rs.BOF then
response.write "| 暂无记录! |
"
else
for i=1 to 7
if Rs.EOF or Rs.BOF then exit for
Newtitle=Rs("Newtitle")
if len(Newtitle)>80 then Newtitle=left(Newtitle,80)&"..."
Response.Write"| "&Newtitle&" |
"
Rs.movenext
next
end if
Response.Write"
"
Rs.Close
set Rs=nothing
%>