<%if request("CateID")="News_Trend" then response.write "行业新闻" else if request("CateID")="News_Company" then response.write "公司新闻" else response.Write "新闻中心"%>
<%
'----------------------------
PERPAGE =10
PageNo=request("PageNo")
set rs=server.createobject("ADODB.recordset")
if request("CateID")="" then
sql="select * from tNews where ClassID='News_Company' or ClassID='News_Trend' order by AddTime desc"
else
sql="select * from tNews where ClassID='"&request("CateID")&"' order by AddTime desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "暂时没有数据!"
else
rs.pagesize = PERPAGE
if isempty(PageNo) or cstr(PageNo)<"1" then PageNo = 1
CurPage=PageNo
if int(PageNo)>=int(rs.pagecount) then CurPage=cint(rs.pagecount)
rs.absolutepage = CurPage
%>
<% for i = 1 to rs.pagesize %>