中美艾滋病防治合作项目

<% option explicit %> <%dim rs,sql,typeid,borderid,number,theday,curpage,i typeid=trim(request("typeid")) borderid=trim(request("borderid")) if typeid="" then 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 else 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 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 end if if err.number <> 0 then response.write "数据库出错" else %> 中美艾滋病防治合作项目

当前位置：<%=sql%>


<%if request("page")="" then curpage = 1 else curpage = cint(request("page")) end if rs.pagesize=cint(number) rs.absolutepage = curpage for i = 1 to rs.pagesize response.write "	" if cstr(rs("imgsize")) <>0 then response.write "[图]" end if response.write trim(rs("topic")) & "
" rs.movenext if rs.eof then i=i+1 exit for end if next%>
<% response.write " " response.write "第" + cstr(curpage) + "页/总" + cstr(rs.pagecount) + "页 " response.write "本页" + cstr(i-1) + "条/总" + cstr(rs.recordcount) + "条 " if curpage = 1 then response.write "首页前页 " else response.write "首页前页 " end if if curpage = rs.pagecount then response.write "后页末页" else response.write "后页末页" end if rs.close set rs=nothing%>

<% end if %>