<%
dim sqlstr,rs
sqlstr = "select * from resource where bpic order by priority"
set rs = server.createobject("adodb.recordset")
rs.open sqlstr,conn,2,1
if not(rs.bof and rs.eof) then
list = rs.getrows
rs.close
set rs = nothing
else
str = " 暂无信息！"
end if
%>
