<%
set rse=server.createobject("adodb.recordset")
sqle = "select Top 6 * from news where cataid =13 order by sortid desc"
rse.Open sqle,conn,1,3
if rse.EOF or rse.BOF then
response.write ("暂时没有互联网应用专题!")
end if
do while not rse.EOF
if len(Trim(rse("title")))>20 then
etempTitle = Left(Trim(rse("title")),20)&"..."
else
etempTitle = Trim(rse("title"))
end if
%>
| <%rse.movenext
loop
rse.close
set rse = nothing
%>
| |
<%
set rsf=server.createobject("adodb.recordset")
sqlf = "select Top 6 * from news where cataid =14 order by sortid desc"
rsf.Open sqlf,conn,1,3
if rsf.EOF or rsf.BOF then
response.write ("暂时没有任何互联网业界资讯!")
end if
do while not rsf.EOF
if len(Trim(rsf("title")))>20 then
ftempTitle = Left(Trim(rsf("title")),20)&"..."
else
ftempTitle = Trim(rsf("title"))
end if
%>
| <%rsf.movenext
loop
rsf.close
set rsf = nothing
%>
| |