<% Dim rszt,sqlzt sqlzt="select top 12 id,province,pcity,pname,pproperty,parea,pcontent,addate from zhaobiao order by addate desc" set rszt=server.createobject("adodb.recordset") rszt.open sqlzt,conn,1,1 Do While rszt.eof %>
工程性质：<%=rszt("pproperty")%>
工程内容：<%=rszt("pcontent")%>
面向地区：<%=rszt("parea")%>" onclick="aliclick(this,'?');"><%=rszt("pname")%>
<%=rszt("addate")%>
[<%=rszt("province")%><%=rszt("pcity")%>]
<% rszt.movenext If Not rszt.eof then %>
工程性质：<%=rszt("pproperty")%>
工程内容：<%=rszt("pcontent")%>
面向地区：<%=rszt("parea")%>" onclick="aliclick(this,'?');"><%=rszt("pname")%>
<%=rszt("addate")%>
[<%=rszt("province")%><%=rszt("pcity")%>]
<% End if %>
<% rszt.movenext Loop rszt.close Set rszt=Nothing %>