<%
set dnrs=server.CreateObject("adodb.recordset")
sql="select * from pic where title1='新药展示' order by orde"
dnrs.open sql,conn,3,3
if not dnrs.eof then
if isNumeric(request("page")) then
if request("page")="" then
page=1
else
page=clng(request("page"))
end if
else
response.Write(""&request("page")&"是非法字符!")
response.End()
end if
dnrs.pagesize=12
page=clng(request("page"))
if page<1 then
page=1
end if
if page>dnrs.pagecount then
page=dnrs.pagecount
end if
dnrs.absolutepage=page
for x =1 to 10
if not dnrs.eof then
%>
<%for m= 1 to 3
if not dnrs.eof then%>
|
<%
dnrs.movenext
end if
next
%>
<%
end if
next
%>
<%
self=request.ServerVariables("SCRIPT_NAME")
if page <> 1 then
response.Write(" 第一页"&" ")
response.write(" 上一页"&" ")
end if
if page<>dnrs.pagecount then
response.write(" 下一页"&" ")
response.Write(" 尾页"&" ")
end if
%>
总记录数:<%=dnrs.recordcount%> 每页显示:<%=dnrs.pagesize%>
<%
else
response.Write(" 暂无内容! ")
end if%>
|
|
