<% 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 %>
更多
<% iyear = year(date()) i = 1 do while i <= 9 response.write "" & vbcrlf iyear = iyear - 1 i = i + 1 loop %>
联络方式

阎俊敏
梅塞尔中国公关部
总监
电话: + 86 21 23126666 - 5030
传真: + 86 21 63916344
[电子信箱]