|
| <%
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 * from Affiche"
rs.open sql,conn,1,3
%>
<%=left(RS("Content"),398)%>
<%rs.close
rs=nothing%>
……更多>> |
|
|
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 25 * from news where BigClassName='2011东莞房地产掌柜风云榜颁奖盛典现场嘉宾致辞篇' order by px asc"
rs.open sql,conn,1,3
%>
<%
if not rs.eof then
i=1
do while not rs.eof
%>
|
<%if i mod 4 = 0 then%>
<%end if
rs.movenext
i=i+1
loop
rs.close()
set rs=nothing
end if%>
|
|
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 25 * from news where BigClassName='2011东莞房地产掌柜风云榜颁奖盛典之颁奖辞' order by AddDate asc"
rs.open sql,conn,1,3
%>
<%
if not rs.eof then
i=1
do while not rs.eof
%>
|
<%if i mod 4 = 0 then%>
<%end if
rs.movenext
i=i+1
loop
rs.close()
set rs=nothing
end if%>
|
|
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 25 * 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
%>
|
<%if i mod 5 = 0 then%>
<%end if
rs.movenext
i=i+1
loop
rs.close()
set rs=nothing
end if%>
|
|
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 13 * from news where BigClassName='2011东莞房地产掌柜风云榜颁奖文艺演出' order by px asc"
rs.open sql,conn,1,3
%>
|
<%
if not rs.eof then
i=1
do while not rs.eof
%>
|
<%if i mod 3 = 0 then%>
<%end if
rs.movenext
i=i+1
loop
rs.close()
set rs=nothing
end if%>
|
|
|
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 12 * 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
%>
|
<%if i mod 4 = 0 then%>
<%end if
rs.movenext
i=i+1
loop
rs.close()
set rs=nothing
end if%>
|
|
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 25 * 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
%>
|
<%if i mod 5 = 0 then%>
<%end if
rs.movenext
i=i+1
loop
rs.close()
set rs=nothing
end if%>
|
|
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 13 * from news where BigClassName='工作人员现场花絮篇' order by px asc"
rs.open sql,conn,1,3
%>
|
<%
if not rs.eof then
i=1
do while not rs.eof
%>
|
<%if i mod 4 = 0 then%>
<%end if
rs.movenext
i=i+1
loop
rs.close()
set rs=nothing
end if%>
|
|
|
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 25 * 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
%>
|
<%if i mod 5 = 0 then%>
<%end if
rs.movenext
i=i+1
loop
rs.close()
set rs=nothing
end if%>
|
|
|
|
|
