■ |
东海·2007水景HI魅力之夜”新年狂欢派对激情呈现(2006-12-29) |
<%
Dim rs
Dim sType
sType=1 '//新闻类别
set rs=conn.execute("select * from dh_article where type_id="&sType&"order by add_date desc")
if rs.eof then
%>
<%
else
Dim i,maxRow
maxRow=5 '//显示新闻的最大条数
i=0
do while not rs.eof
if i>maxRow then
exit do
end if
%>
■ |
2006 东海·水漾人家第一届业主运动会成功举办(2006-12-4) |
■ |
东海杯“地铁·水景·家·生活”有奖征文比赛前已圆满结束。(2006-11-11) |
| |
|
<%
rs.movenext
i=i+1
Loop
end if
rs.close
set rs=nothing
%>
|
 |
<%
Dim rs
Dim sType
sType=1 '//新闻类别
set rs=conn.execute("select * from dh_article where type_id="&sType&"order by add_date desc")
if rs.eof then
%>
在自己的家门口，孩子们种下一棵小树，希望自己和它一样能够茁壮成长。 同时，通过植树节活动树，培育了孩子对大自然的爱心与责任感，更多的是为热爱生活的人们种下更多的是心愿，是憧憬，是对生活的感悟和对幸福的理解。
|
 |
<%
else
Dim i,maxRow
maxRow=5 '//显示新闻的最大条数
i=0
do while not rs.eof
if i>maxRow then
exit do
end if
%>
<%
rs.movenext
i=i+1
Loop
end if
rs.close
set rs=nothing
%>
|
 |
