%
dim gd(56)
dim topic(7)
dim times(7)
dim id(7)
set rs=Server.CreateObject("ADODB.Recordset")
sql="select top 8 topic,data,id from jiaoyixinxi order by data DESC"
rs.open sql,conn
for i=0 to 7
topic(i)=rs(0)
times(i)=rs(1)
id(i)=rs(2)
rs.movenext()
next
dim topic1(7)
dim times1(7)
dim id1(7)
set rs=Server.CreateObject("ADODB.Recordset")
sql="select top 8 topic,data,id from caijingzixun order by data DESC"
rs.open sql,conn
for i=0 to 7
topic1(i)=rs(0)
times1(i)=rs(1)
id1(i)=rs(2)
rs.movenext()
next
dim topic2(7)
dim times2(7)
dim id2(7)
set rs=Server.CreateObject("ADODB.Recordset")
sql="select top 8 topic,data,id from qihuopingshu order by data DESC"
rs.open sql,conn
for i=0 to 7
topic2(i)=rs(0)
times2(i)=rs(1)
id2(i)=rs(2)
rs.movenext()
next
dim topic3(7)
dim times3(7)
dim id3(7)
set rs=Server.CreateObject("ADODB.Recordset")
sql="select top 8 topic,data,id from qihuopingshu order by data DESC"
rs.open sql,conn
for i=0 to 3
topic3(i)=rs(0)
times3(i)=rs(1)
id3(i)=rs(2)
rs.movenext()
next
dim topic4(7)
dim times4(7)
dim id4(7)
set rs=Server.CreateObject("ADODB.Recordset")
sql="select top 8 topic,data,id from qihuopingshu order by data DESC"
rs.open sql,conn
for i=0 to 6
topic4(i)=rs(0)
times4(i)=rs(1)
id4(i)=rs(2)
rs.movenext()
next
set rs=Server.CreateObject("ADODB.Recordset")
sql="select txt from LME"
rs.open sql,conn
for i=0 to 56
gd(i)=rs(0)
rs.movenext()
next
%>