|
<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from advertisement",conn,1,1
piao1=trim(rs("pic1"))
piao1url=trim(rs("pic1_lnk"))
piaos1=trim(rs("tit1"))
piao2=trim(rs("pic2"))
piao2url=trim(rs("pic2_lnk"))
piaos2=trim(rs("tit2"))
piao3=trim(rs("pic3"))
piao3url=trim(rs("pic3_lnk"))
piaos3=trim(rs("tit3"))
piao4=trim(rs("pic4"))
piao4url=trim(rs("pic4_lnk"))
piaos4=trim(rs("tit4"))
piao5=trim(rs("pic5"))
piao5url=trim(rs("pic5_lnk"))
piaos5=trim(rs("tit5"))
rs.Close
set rs=nothing
pic=piao1&"|"&piao2&"|"&piao3&"|"&piao4&"|"&piao5
link=piao1url&"|"&piao2url&"|"&piao3url&"|"&piao4url&"|"&piao5url
texts=piaos1&"|"&piaos2&"|"&piaos3&"|"&piaos4&"|"&piaos5
%>
|
|
中心区双商圈带装修精工豪宅大盘 |
|
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 9 * from news where BigClassName='相关新闻' order by AddDate ASC"
rs.open sql,conn,1,3
%>
<%
if not rs.eof then
i=1
do while not rs.eof
%>
|
<%
rs.movenext
loop
rs.close()
set rs=nothing
end if%>
|
|
|