。。。

my_sql="select * from infotype where id in(115,116,117,118,119,121,123,125,132,134,135,136,137,146,147,148,155,156,158,163,167,170,173,178,179,181,182,185) and id<>"&tid
for my_i=1 to 4
rs.open my_sql,conn,1,1
Randomize
myid=cint(rnd()*(rs.recordcount-1))
rs.move myid
my_sql=my_sql&" and id<>"&cstr(rs("id"))
my_titlelist=split(rs("tname"),"|")
my_title=my_titlelist(ubound(my_titlelist)-1)
my_text=my_text&"<div class='r_title'><div class='r_title_text'>"&my_title&"</div><div class='r_more'><a href='"&c(my_title)&"_1.html'>更多>></a></div></div>"
my_text=my_text&"<div class='r_list'>"
rsm.open "select top 10 * from info where tid="&cstr(rs("id"))&" order by id desc",conn,1,1
for my_j=1 to 8
rsm.movenext
fileming=year(rsm("date"))&month(rsm("date"))&day(rsm("date"))&hour(rsm("date"))&minute(rsm("date"))&second(rsm("date"))
my_text=my_text&"<li type='disc'><a href='/html/"&fileming&"-1.html'>"&left(rsm("title"),18)&"</a>&nbsp;<font color='#cccccc'>("&day(rsm("date"))&"日)</font></li>"
next
rsm.close
my_text=my_text&"</div><div class='s4'></div>"
rs.close
if my_i mod 2=0 then my_text=my_text&"<img src='/images/ad"&my_i&".gif' width='302px'><div class='s4'></div>"
next