<% set rs=server.createobject("adodb.recordset")
sql="select top 6 * from news where type='公司新闻' order by ntime desc"
rs.open sql,conn,1,1
pmcount=6
if rs.bof and rs.eof then
response.write "
没有新闻
"
else
loopno=pmcount
%>
<%do while not rs.eof and loopno>0
if loopno=2 or loopno=4 or loopno=6 then%>
<%end if
rs.movenext
loopno=loopno-1
loop
end if
rs.close %>
<% set rs=server.createobject("adodb.recordset")
sql="select top 5 * from news where type='安全用气' order by ntime desc"
rs.open sql,conn,1,1
pmcount=5
if rs.bof and rs.eof then
response.write "
没有新闻
"
else
loopno=pmcount
%>
<%do while not rs.eof and loopno>0
if loopno=5 or loopno=3 or loopno=1 then%>
<%end if
rs.movenext
loopno=loopno-1
loop
end if
rs.close %>
<% set rs=server.createobject("adodb.recordset")
sql="select top 4 * from news where type='政策法规' order by ntime desc"
rs.open sql,conn,1,1
pmcount=4
if rs.bof and rs.eof then
response.write "
没有新闻
"
else
loopno=pmcount
%>
<%do while not rs.eof and loopno>0
if loopno=2 or loopno=4 then%>
<%end if
rs.movenext
loopno=loopno-1
loop
end if
rs.close %>
<% set rs=server.createobject("adodb.recordset")
sql="select top 5 * from news where type='行业咨询' order by ntime desc"
rs.open sql,conn,1,1
pmcount=5
if rs.bof and rs.eof then
response.write "
没有新闻
"
else
loopno=pmcount
%>
<%do while not rs.eof and loopno>0
if loopno=5 or loopno=3 or loopno=1 then%>
<%end if
rs.movenext
loopno=loopno-1
loop
end if
rs.close %>
名称
价格
民用气价
1.23元/M3
工业用气价
0.93元/M3
公用设施用气价
1.40元/M3
商用气价
1.75元/M3
火锅用气价
2.00元/M3
·技协公司
·龙马潭天府燃气有限公司
·蓝焰材料供销公司
·合江星焰天然气有限公司
·佳苑房地产开发公司
·万利压缩天然气有限公司
·安富管理所
<% set rs1=server.createobject("adodb.recordset")
sql1="select top 1 * from dc order by ntime desc"
rs1.open sql1,conn,1,1
if rs1.eof and rs1.bof then
%>
<% set rs2=server.createobject("adodb.recordset")
sql2="select top 7 * from url where type='本地链接' order by ntime desc"
rs2.open sql2,conn,1,1
pmcount=7
if rs2.bof and rs2.eof then
response.write "
没有本地链接
"
else
loopno=pmcount
%>
<% set rs2=server.createobject("adodb.recordset")
sql2="select top 7 * from url where type='行业链接' order by ntime desc"
rs2.open sql2,conn,1,1
pmcount=7
if rs2.bof and rs2.eof then
response.write "
没有行业链接
"
else
loopno=pmcount
%>
<% set rs2=server.createobject("adodb.recordset")
sql2="select top 7 * from url where type='精品网站' order by ntime desc"
rs2.open sql2,conn,1,1
pmcount=7
if rs2.bof and rs2.eof then
response.write "