图片分页代码

图片分页代码,asp图片分页代码,asp图片分页源代码及教程

<%
sql="select * from [table] order by time1 desc"
rs.open sql,conn,1,1
if rs.eof then
else
  rs.pagesize=4
  page=clng(Request("page"))
  if page<1 then page=1
  if page>rs.pagecount then page=rs.pagecount
  rs.AbsolutePage = page
  for i=1 to rs.pagesize
  if i mod 2=1 then    
%>
 
  <%
  end if
  %> 
 
  <%
  if i mod 2=0 then
  %>
 
  <%
  end if
  %>
<%
  rs.movenext
  If rs.EOF Then
   Exit For
  End If
  Next
end if
'rs.close
%>


 
   
   

" />

<%  call fpage("")  %>

图片分页显示页面调用代码.fpage()函数,而分页函数写在下面的页面.

<%
  page=clng(Request("page"))
  if page<1 then page=1
Function fpage(str)
s=Split(str,"|")
s2=""
For i=0 To UBound(s)
 s2=s2&""
next

response.write "

"
response.write " "
response.write "    "
response.write "  "
response.write " "
response.write "

信息总数："&rs.recordcount&"个　页次："&page&"/"&rs.pagecount&"页" response.write "  "&s2   If page<=1 Then    response.write " 首 页 上一页 "   Else    response.write "首 页 上一页 "   End If   'response.write "rs.pagecount="&rs.pagecount   If page    response.write "下一页 尾 页"   Else     response.write "下一页 尾 页 "   End If   response.write "    第 " For i=1 To rs.pagecount response.write " End If response.write ">"&i&"" Next response.write " 页" response.write "

"
End Function
%>
这个文件是以page.asp文件保存的.