<%
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
%>
|
| |
旅 游 知
识
· 
视 频 专
区 
武夷山漂流专区
本网网络实名：
本网通用网址：