<%
connstr="DBQ="+server.mappath("../data/lyb.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection")
conn.open connstr
set rs=server.createobject("adodb.recordset")
sql="select * from lyb order by id desc"
rs.open sql,conn,3,3
if rs.eof then
response.end
end if
rs.PageSize = 10
Page = CLng(Request("Page"))
if page<1 then page=1
rs.absoluteposition=(page-1)*rs.pagesize+1
%>
深圳市时创智能科技有限公司
