<%sqltext="select top 5 id,name from danwei where enable=1 and pid=8 order by pl desc"
rs.Open sqltext,cn,1,1
do while not rs.EOF %>
<%sqltext="select top 4 id,pid,name from cdanwei where enable=1 and flag=1 and ppid=2 order by creatdate desc"
rs.Open sqltext,cn,1,1
do while not rs.EOF %>
<%sqltext="select top 1 body from danwei where enable=1 and pid=3 order by pl desc"
rs.Open sqltext,cn,1,1
if not rs.EOF then
Response.Write (checktitle(trim(rs("body")),160))
end if
rs.Close
%>
<%sqltext="select top 4 * from engage where state=1 order by sortnum"
rs.Open sqltext,cn,1,1
do while not rs.EOF %>
<%=trim(rs("title"))%>
<%=trim(rs("name"))%>