<%
set rsa=server.createobject("adodb.recordset")
sqla = "select Top 8 * from news where cataid =1 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")))>14 then
atempTitle = Left(Trim(rsa("title")),11)&"..."
else
atempTitle = Trim(rsa("title"))
end if
%>
www.kaiquanbiotech.com
上海凯泉生物科技有限公司
欢迎您的光临!
<%rsa.movenext
loop
rsa.close
set rsa = nothing
%>