 |
<%
t=0
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * from title WHERE title_1='开放动态' order by id desc"
rs.Open sql,conn,1,3
if not Rs.eof then
do while not rs.eof
t=t+1
%>
|
|
<%
if t>=6 then exit do
rs.movenext
loop
else
response.write "| 尚无收录 | "
end if
rs.close
%>
|
|
|
<%
t=0
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * from title WHERE title_1='遂宁新闻' order by id desc"
rs.Open sql,conn,1,3
if not Rs.eof then
do while not rs.eof
t=t+1
%>
|
|
<%
if t>=10 then exit do
rs.movenext
loop
else
response.write "| 尚无收录 | "
end if
rs.close
%>
|
<%
t=0
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * from title WHERE title_1='要文发布' order by id desc"
rs.Open sql,conn,1,3
if not Rs.eof then
do while not rs.eof
t=t+1
%>
|
|
<%
if t>=5 then exit do
rs.movenext
loop
else
response.write "| 尚无收录 | "
end if
rs.close
%>
|
 |
<%
t=0
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * from title WHERE title_1='建设动态' order by id desc"
rs.Open sql,conn,1,3
if not Rs.eof then
do while not rs.eof
t=t+1
%>
|
|
<%
if t>=5 then exit do
rs.movenext
loop
else
response.write "| 尚无收录 | "
end if
rs.close
%>
|
<%
t=0
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * from title WHERE title_1='阳光政务' order by id desc"
rs.Open sql,conn,1,3
if not Rs.eof then
do while not rs.eof
t=t+1
%>
|
|
<%
if t>=5 then exit do
rs.movenext
loop
else
response.write "| 尚无收录 | "
end if
rs.close
%>
|
 |
 |
<%
t=0
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * from title WHERE title_1='“五创联动”' order by id desc"
rs.Open sql,conn,1,3
if not Rs.eof then
do while not rs.eof
t=t+1
%>
|
|
<%
if t>=5 then exit do
rs.movenext
loop
else
response.write "| 尚无收录 | "
end if
rs.close
%>
|
<%
t=0
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * from title WHERE title_1='开放动态' order by id desc"
rs.Open sql,conn,1,3
if not Rs.eof then
do while not rs.eof
t=t+1
%>
|
|
<%
if t>=5 then exit do
rs.movenext
loop
else
response.write "| 尚无收录 | "
end if
rs.close
%>
|
 |
 |
|