<%
PgSz=20
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data/bjxx.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql ="SELECT * From news where fenlei='保健食品'Order By id DESC"
RS.open sql,Conn,1,1
If RS.RecordCount=0 then
response.write "
对不起，数据库中没有相关信息！
"
else
RS.PageSize = Cint(PgSz)
Total=INT(RS.recordcount / PgSz * -1)*-1 ''计算可显示页面的总数
PageNo=Request("pageno")
if PageNo="" Then
PageNo=1
else
PageNo=PageNo+1
PageNo=PageNo-1
end if
ScrollAction=Request("ScrollAction")
if ScrollAction="上一页" Then
PageNo=PageNo-1
end if
if ScrollAction="下一页" Then
PageNo=PageNo+1
end if
if PageNo<1 Then
PageNo=1
end if
n=1
RS.AbsolutePage=PageNo
Response.Write "
"
position=RS.PageSize*PageNo
pagebegin=position-RS.PageSize+1
if position < RS.RecordCount then
pagend=position
else
pagend= RS.RecordCount
end if
%>
医疗广告公示
