关 于 公 司
>> 条 码 业 界 新 闻
<% connstr="dbq="+server.mappath("gbook/qibang.asp")+";driver={microsoft access driver (*.mdb)};" set conn=createobject("adodb.connection") conn.open connstr %><% dim i,intPage,page,pre,last,filepath set rs = server.CreateObject("adodb.recordset") sql="select * from news order by id desc" rs.PageSize = 15 rs.CursorLocation = 3 rs.Open sql,conn,0,2,1 pre = true last = true page = trim(Request.QueryString("page")) if len(page) = 0 then intpage = 1 pre = false else if cint(page) =< 1 then intpage = 1 pre = false else if cint(page) >= rs.PageCount then intpage = rs.PageCount last = false else intpage = cint(page) end if end if end if if not rs.eof then rs.AbsolutePage = intpage end if %><% for i=1 to rs.PageSize if rs.EOF or rs.BOF then exit for %>

¤

  " target="_blank"><%response.write rs(1)%>

<%response.write rs(3)%>  
<% rs.movenext next %>
首页  <%if pre then%> 上一页 <%end if%> <%if last then%> 下一页 <%end if%> 尾页  共<%=rs.recordcount%>条  新闻 每頁15条新闻 转到第
条码业界新闻 | 网站地图 | 自助链接 | 条码行业动态

版权所有(C) 2004-2007 陕西启邦信息技术有限公司

地址:西安市南二环东段31号瑞森云峰大厦10楼 邮编:710054 邮箱:master@sxbarcode.com
电话:029-88135296 13359185290 传真:029-88135296转119