|
<% dim rs, sql, rs1, sql1, title
set rs = server.createobject("adodb.recordset")
set rs1 = server.createobject("adodb.recordset")
'sql1 = "SELECT id,title,addtime FROM news WHERE cateid= 2 ORDER BY addtime DESC"
sqll="select * from publish where type_big='分析预测' ORDER BY fb_time DESC"
rs1.open sqll, conn, 1, 1
for i = 1 to 8
if len(rs1("title"))>=15 then
title=left(rs1("title"),15)
response.write " |