<%
if Request.QueryString("class")<>"" then
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * from Pic where Pic<>'' and class="&request.QueryString("class")&" order by id DESC"
rs.Open SQL, cn, 1,1
rs.PageSize=24
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page
Response.Write ""
for i=1 to 8
if rs.EOF then exit for
Response.Write ""
Response.Write " | "
rs.movenext
Response.Write " | "
rs.movenext
Response.Write " | "
rs.movenext
Response.Write " "
next
Response.Write " "%>
|
| <%if page=1 and not page=pagecount then%>
<%elseif page=pagecount and not page=1 then%>
<%elseif page<1 then%> 没有任何记录！
<%elseif page>pagecount then%>没有任何记录！
<%elseif page=1 and page=pagecount then%>
<%else%>
<%
end if
rs.close
set rs=nothing
else%>
<%Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * from Pic where Pic<>''order by id DESC"
rs.Open SQL, cn, 1,1
rs.PageSize=24
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page
Response.Write ""
for i=1 to 8
if rs.EOF then exit for
Response.Write ""
Response.Write " | "
rs.movenext
Response.Write " | "
rs.movenext
Response.Write " | "
rs.movenext
Response.Write " "
next
Response.Write " "
%> |
<%if page=1 and not page=pagecount then%>
第<%=page%>页 <%for i=1 to pagecount%>
<%=i%> <%next%> 下一页 第<%=page%>页 <%for i=1 to pagecount%>
<%=i%> <%next%> 上一页 没有任何记录！
<%elseif page>pagecount then%>没有任何记录！
<%elseif page=1 and page=pagecount then%>
<%else%>
<%end if
rs.close
set rs=nothing
end if%> |