<%rsa.movenext
loop
rsa.close
set rsa = nothing
%>
<%
set rsa=server.createobject("adodb.recordset")
sqla = "select Top 5 * from news where cataid =23 order by sortid desc"
rsa.Open sqla,conn,1,3
if rsa.EOF or rsa.BOF then
response.write ("暂时没有任何信息！")
end if
do while not rsa.EOF
if len(Trim(rsa("title")))>10 then
atempTitle = Left(Trim(rsa("title")),11)&"..."
else
atempTitle = Trim(rsa("title"))
end if
%>
