<% owen1=request("owen1") owen2=request("owen2") %> 上海网域网新闻信息资讯中心
网域网-网络领域专家
<% page=clng(request("page")) Set rs=Server.CreateObject("ADODB.RecordSet") sql="select * from NEWS order by id desc" rs.Open sql,conn,1,1 if rs.eof and rs.bof then response.Write("暂时没有记录") else %> <% rs.PageSize=15 if page=0 then page=1 pages=rs.pagecount if page > pages then page=pages rs.AbsolutePage=page for j=1 to rs.PageSize %> <% rs.movenext if rs.eof then exit for next %> <% end if rs.close set rs=nothing %>
所有新闻
<% if rs("imagenum")<>"0" then response.write "图片新闻" end if %> "><%= RS("TITLE") %> [<%= RS("infotime") %>] (阅读<%= RS("hits") %>次)
<%if Page<2 then response.write "首页 上一页 " else response.write "首页 " response.write "上一页 " end if if rs.pagecount-page<1 then response.write "下一页 尾页" else response.write "" response.write "下一页 尾页" end if response.write " 页次:"&Page&"/"&rs.pagecount&"页 " response.write " 共"&rs.recordcount&"条记录 "&rs.pagesize&"条记录/页" response.write " 转到:" response.write "

" %>

7x24小时客户服务系统
上海主机租用 上海主机托管 美国主机托管 香港主机托管 服务器租用 服务器托管 上海网域网版权所有 ICP备案序号:沪ICP备05001732号 上海电信增值业务证号:沪B2-20050019 上海电信授权书 Copyright © 2002-2008