|
|
| |
|
<%
i=0
'sql="select news_id,news_title,news_date from [t_news] where news_channel=(select channel_bh from [t_channel] where channel_name='成交信息') and news_tjflag=1 order by news_date desc"
sql="select news_id,news_title,news_date from [t_news] where news_channel in (select channel_bh from [t_channel] where channel_sort like '%2111111185%') and news_tjflag=1 order by news_date desc"
rs.Open sql,conn,1,1
if not rs.EOF and not rs.BOF then
do while not rs.EOF and i<=4
%>
<%if len(rs(1))>16 then Response.Write left(rs(1),16)&"..." else Response.Write rs(1) end if%>
|
<%
rs.MoveNext
i=i+1
loop
%>
| ...更多>> |
<%
end if
rs.Close
%>
|
|
|
|
| |
|
<%
i=0
sql="select news_id,news_title,news_date from [t_news] where news_channel in (select channel_bh from [t_channel] where channel_sort like '%2111111114%') and news_tjflag=1 order by news_date desc"
rs.Open sql,conn,1,1
if not rs.EOF and not rs.BOF then
do while not rs.EOF and i<=5
%>
|
<%
rs.MoveNext
i=i+1
loop
%>
| ...更多>> |
<%
end if
rs.Close
%>
|
|
|
|
<%
i=0
sql="select news_id,news_title,news_date from [t_news] where news_channel in (select channel_bh from [t_channel] where channel_sort like '%2111111114%') and news_tjflag=1 order by news_date desc"
rs.Open sql,conn,1,1
if not rs.EOF and not rs.BOF then
do while not rs.EOF and i<=5
%>
|
<%
rs.MoveNext
i=i+1
loop
%>
| ...更多>> |
<%
end if
rs.Close
%>
|
|
|
<%
i=0
dim y
'sql="select news_id,news_title,news_htmlcontent from [t_news] where news_channel=(select channel_bh from [t_channel] where channel_name='鍙嬫儏閾炬帴') order by news_date desc"
sql="select news_id,news_title,news_htmlcontent from [t_news] where news_channel in (select channel_bh from [t_channel] where channel_sort like '!11111147%') and news_tjflag=1 order by news_date desc"
rs.Open sql,conn,1,1
if not rs.EOF and not rs.BOF then
%>
|
<%
y=1
do while not rs.EOF and i<=6 and y=1
if i=6 or i=0 then Response.Write ""
sql="select filepath,filename from [t_filebox] where owner_table='t_news' and owner_id="&rs(0)&" and filetype in ('jpg','tif','gif','bmp','png','jpeg') order by creatdate desc"
rs1.Open sql,conn,1,1
if not rs1.EOF and not rs1.BOF then
i=i+1
Response.Write ",) | "
end if
rs1.Close
rs.MoveNext
if i=6 then
Response.Write " "
y=y+1
end if
loop
if j<=5 then
for j=1 to 6-i
%>
|
<%
Next
Response.Write ""
End if
%>
<%
end if
rs.close
%> |
