<% option explicit %>
<%dim rs,sql,typeid,number,theday,curpage,i
typeid=trim(request("typeid"))
if typeid="" then
response.write "错误!版面编号不能为空!返回"
response.end
end if
set rs=server.createobject("adodb.recordset") '每页显示的文章数
rs.open "select morenumber from news_parameter where parameterid=1",conn,1,1
if not rs.bof and not rs.eof then
number=rs("morenumber")
else
number=5
end if
rs.close
rs.open "select typename from type where typeid=" & cstr(typeid),conn,1,1
if not rs.bof and not rs.eof then
sql=rs("typename")
end if
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
rs.open "select * from news where typeid=" & cstr(typeid) & " and audit=1 order by ntime DESC",conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
%>
辽宁县乡(直)公文传输系统--<%=sql%>
