<% option explicit %>
<%dim rs,sql,typeid,borderid,number,theday,curpage,i
typeid=trim(request("typeid"))
borderid=trim(request("borderid"))
if borderid="" 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=50
end if
rs.close
rs.open "select bordername from border where borderid=" & cstr(borderid),conn,1,1
if not rs.bof and not rs.eof then
sql=rs("bordername")
end if
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
rs.open "select * from news where borderid=" & cstr(borderid) & " and audit=1 order by ntime DESC",conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
%>
中美艾滋病防治合作项目