<%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("data/neweast.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&DBPath
set rs=server.createobject("adodb.recordset")
sql="select * from news_e order by id desc"
rs.open sql,conn,3,3
if rs.eof then
response.end
end if
rs.PageSize = 5
Page = CLng(Request("Page"))
if page<1 then page=1
rs.absoluteposition=(page-1)*rs.pagesize+1
Set conn9 = Server.CreateObject("ADODB.Connection")
DBPath9 = Server.MapPath("data/neweast.mdb")
conn9.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&DBPath9
set rs9=server.createobject("adodb.recordset")
sql9="select * from newshang_e order by id desc"
rs9.open sql9,conn,3,3
if rs9.eof then
response.end
end if
rs9.PageSize = 5
Page9 = CLng(Request("Page"))
if page9<1 then page9=1
rs9.absoluteposition=(page9-1)*rs9.pagesize+1
%>
深圳市数通网络系统有限公司
