<%
lm=request("lm")
if lm<>"" then
if not checknum(lm) then
call msg("参数错误","")
else
lm=clng(lm)
sql="select id_lm,title_lm from info_lm where id_lm="&lm&""
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
lm=clng(rs("id_lm"))
title_lm=rs("title_lm")
end if
rs.close
set rs=nothing
dao="资讯中心 > "&title_lm
sq=" and lm="&lm&""
pra="&lm="&lm&""
end if
else
sql="select top 1 id_lm,title_lm from info_lm where fid=0 order by px desc,id_lm desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
lm=clng(rs("id_lm"))
title_lm=rs("title_lm")
end if
rs.close
set rs=nothing
dao="资讯中心 > "&title_lm
sq=" and lm="&lm&""
pra="&lm="&lm&""
end if
lmmc="news_"&lm
%>
<%call getLmHead("info_lm",lm,"资讯中心")%>
<%=Mtitle%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select id,title,color_font,wtime,rename from info_co where pass='yes' "&sq&" order by px desc,id desc"
rs.open sql,conn,1,1
if not rs.eof then
pagenum=15
rs.pagesize=pagenum
counter=rs.recordcount
pagezong=rs.pagecount
pageno=trim(request.querystring("page"))
if pageno="" or not isnumeric(pageno) then
pageno=1
end if
if pageno<1 then
pageno=1
end if
if pageno-pagezong>0 then
pageno=pagezong
end if
pageno=clng(pageno)
rs.absolutepage=pageno
a=1
while not rs.eof and a<=pagenum
%>
