设为首页 加入收藏联系我们
首 页关于码清产品展示打标效果行业应用联系我们
 激光打标机相关文章 | About Marking Introduction
<% page=request("page") if page="" then page=1 if not(isnumeric(page)) then page=1 if page<1 then page=1 page=int(page) set rs=server.createobject("adodb.recordset") tiesql="select * from tieba where istrue=true order by id desc" rs.open tiesql,conn,1,1 if rs.recordcount>0 then rs.pagesize=60 totalrec=rs.recordcount totalpage=rs.pagecount if page>totalpage then page=totalpage rs.absolutepage=page 'rs.cachesize=rs.pagesize xi=0 do while not rs.eof and (xi .html title=<%=rs("titles")%> target=_blank ><%=left(rs("titles"),25)%> <% xi=xi+1 if xi mod 3=0 then response.write "
" end if rs.movenext loop rs.close else rs.close end if set rs=nothing conn.close set conn=nothing %>
<%=totalpage%>页 第<%=page%>页 <%if page-1>0 then%> 上一页 <%else%> 上一页 <%end if%> <%if page+1<=totalpage then%> 下一页 <%else%> 下一页 <%end if%>