<% strtitleh1 = "最新动态" if yyear <> "" then if cint(yyear) <> cint(year(now())) then strtitleh1 = yyear & "年消息" end if end if %>

<%=strtitleh1%>

<% page = requests("page", 1) if isnull(page) or page="" then page=1 else page = cint(page) end if if yyear <> "" then strcond = " and year(date)=" & yyear end if Sql="select * from tblnews where title"&temp&" is not null " Sql=Sql & strcond Sql=Sql & " order by date DESC " set RS=server.createobject("ADODB.RecordSet") RS.open SQL,conn,1,1 rs.PageSize =10 if not RS.EOF then rs.AbsolutePage = Cint(page) intRecordCount = 1 DO while not RS.EOF and intRecordCount <= RS.PageSize title=rs("title"&temp) news_id=RS("news_id") verify=RS("verify"&temp) mdate=RS("date"&temp) author=RS("author"&temp) ndate=rs("date"&temp) if not verify=1 then verify="未发布" else verify="已发布" end if %> <% RS.movenext intRecordCount = intRecordCount + 1 loop end if %>

<%=rs("date"&temp)%>

&lang=<%=lang%>" class="mail"><%=rs("title"&temp)%>

 

<%if page<>1 then%> 上一页　 <%else%> 上一页　 <%end if%> 刷新　 <%if page<>rs.pagecount then%> 下一页　 <%else%> 下一页　 <%end if%> <%if page<>1 then%> 第一页 <%else%> 第一页 <%end if%> <%if page<>1 then%> << <%else%> << <%end if%> <%if page<=rs.pagecount then%> <%=page%> <%end if if page+1<=rs.pagecount then%> <%=page+1%> <%end if if page+2<=rs.pagecount then%> <%=page+2%> <%end if%> <%if page<>rs.pagecount then%> >> <%else%> >> <%end if%> <%if page<>rs.pagecount then%> 最后一页 <%else%> 最后一页 <%end if%>

<% rs.close set RS=nothing %>