<%
Set rs2=server.CreateObject("adodb.recordset")
rs2.open "select top 15 * from article where typeid=14 order by newsid desc",conn,1,1
do while not rs2.eof
%>
·" target="_blank"><%=left(rs2("title"),14)%>
<%
rs2.movenext
loop
rs2.close
set rs2=nothing
%> |
|
|
|
| 电视 |
<%
set rs13 =Server.CreateObject("adodb.recordset")
rs13.open "select * from dshi order by id desc",conn,1,1
do while not rs13.eof
%>
<%=rs13("dshi")%>
| <%
rs13.movenext
loop
rs13.close
set rs13=nothing
%>
|
| 报纸 |
<%
set rs16 =Server.CreateObject("adodb.recordset")
rs16.open "select * from baozhi order by id desc",conn,1,1
do while not rs16.eof
%>
<%=rs16("bzhi")%>
| <%
rs16.movenext
loop
rs16.close
set rs16=nothing
%>
|
| 杂志 |
<%
set rs15 =Server.CreateObject("adodb.recordset")
rs15.open "select * from zazhi order by id desc",conn,1,1
do while not rs15.eof
%>
<%=rs15("zazhi")%>
| <%
rs15.movenext
loop
rs15.close
set rs15=nothing
%>
|
| 广播 |
<%
set rs17 =Server.CreateObject("adodb.recordset")
rs17.open "select * from gbo order by id desc",conn,1,1
do while not rs17.eof
%>
<%=rs17("gbo")%>
| <%
rs17.movenext
loop
rs17.close
set rs17=nothing
%>
|
| 网络 |
<%
set rs18 =Server.CreateObject("adodb.recordset")
rs18.open "select * from wluo order by id desc",conn,1,1
do while not rs18.eof
%>
<%=rs18("wluo")%>
| <%
rs18.movenext
loop
rs18.close
set rs18=nothing
%>
|
| 户外媒体 |
<%
set rs14 =Server.CreateObject("adodb.recordset")
rs14.open "select * from hwmt order by id desc",conn,1,1
do while not rs14.eof
%>
<%=rs14("hwmt")%>
| <%rs14.movenext
loop
rs14.close
set rs14=nothing
%> |
| 票务 |
<%
set rs19=Server.CreateObject("adodb.recordset")
rs19.open "select * from pwu order by id desc",conn,1,1
%>
<%=rs19("pwu")%>|
<%
rs19.close
set rs19=nothing
%>
|
|
|
 |
|
|
<% ac=1
ab=23
set rs5=server.CreateObject("adodb.recordset")
rs5.open "select top 23 * from article where typeid=15 order by newsid desc",conn,1,1
ntypeid=rs5("ntypeid")
do while not rs5.eof
%>
·" target="_blank"><%=left(rs5("title"),9)%>
<%
rs5.movenext
if ac mod ab=0 then
response.Write("·更多>>>")
exit do
end if
ac=ac+1
loop
rs5.close
set rs5=nothing
%>
|
|