<% dim m,n set rs=server.CreateObject("adodb.recordset") sqlstr="select * from newsinfo order by id desc" rs.open sqlstr,conn,3,3 %> 新闻公告 - 商务时空·网络营销软件
　 　 　 　 　 　 　 　 　
　 　 关于我们
公司简介
媒体报道
新闻公告
公司资质
联系我们
招贤纳士
　
 　
新闻公告
<%if rs.eof then%> <%response.write " "%> <%else%> <% rs.pagesize=15 tatalrecord=rs.recordcount tatalpages=rs.pagecount rs.movefirst nowpage=request("page") if nowpage&"x"="x" then nowpage=1 else nowpage=cint(nowpage) end if rs.absolutepage=nowpage n=1 while not rs.eof and n<=rs.pagesize n=n+1%> <%rs.movenext wend%>
 "%> <%response.write "暂无新闻"%> <%response.write "
 
" title="<%=rs("title")%>" target="_blank"><% if rs("images")<>"" then response.write "[图]" end if if len(rs("title"))>30 then response.write left(rs("title"),30) & "…" else response.write rs("title") end if %> <%=rs("time")%>
共<%=tatalrecord%>条新闻 当前为<%=nowpage%>/<%=tatalpages%>页 <%if nowpage<>1 then%> 首页 <%else%> 首页 <%end if%> <%if nowpage>1 then%> 上一页 <%else%> 上一页 <%end if%> <%if nowpage < tatalpages then%> 下一页 <%else%> 下一页 <%end if%> <%if nowpage<>tatalpages then %> 末页 <%else%> 末页 <%end if%> <% end if %>