中英艾滋病策略支持项目

<% 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=13 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%>

站内搜索


<% 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 theday=cstr(YEAR(rs("ntime")))&"年"&cstr(MONTH(rs("ntime")))&"月"&cstr(DAY(rs("ntime")))&"日" response.write trim(rs("topic")) & "（"& theday &"）
" 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%>


相关链接

		中英艾滋病策略支持项目版权所有 ©2005
		E-mail：charts@chinaaids.cn
		电话：86-10-63159692/3 传真：86-10-63159692/3

<% end if %>