")
rs.movenext
loop
rs.close
set rs=nothing
end sub
sub showlist(boardid)
set rs1 = server.CreateObject ("Adodb.recordset")
sql="select top 5 * from "&data_name&" where boardid="&boardid
sql=sql &" and hidden=1 order by tim desc"
rs1.open sql,conn,1,1
response.Write("
")
do while not rs1.eof
title=rs1("title"):tim=rs1("tim")
response.Write("