分页代码函数

<%

function pagination(pagecount,pagesize,page,resultcount)

    Dim query, a, x, temp    

action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")    

query = Split(Request.ServerVariables("QUERY_STRING"), "&")    

For Each x In query    

a = Split(x, "=")    

If StrComp(a(0), "page", vbTextCompare) <> 0 Then

     temp = temp & a(0) & "=" & a(1) & "&"    

End If

   Next      

  Response.Write("

")          

  if page<=1 then

        Response.Write ("[首页] [上一页] ")  
else    

            Response.Write("[首页] ")        Response.Write("[上一页] ")

   end if  

if page>=pagecount then  

      Response.Write ("[下一页] [尾页]")    

       else        Response.Write("[下一页] ")        Response.Write("[尾页]")        

        end if    Response.Write("[页次:" & page & "/" & pageCount)        Response.Write("] [共" & resultcount & "条 "& pagesize & "条/页]")    Response.Write(" 转到" & "" & "页")

End function %>

<% call pagination(rs.PageCount,rs.pagesize,page,rs.RecordCount)  %>

上一篇: 表单用图片做按钮
下一篇: 用onclick事件实现文章可用大字体/中字体/小字体显示
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: