澳门二十一点游戏赌场 澳门二十一点游戏赌场
    您现在的位置:首页 >> 软件应用 >> ASP教程 >> 内容

    分页显示的例子(显示记录背景色替换变化)

    时间:2012/7/23 20:43:39 点击:

      核心提示:Code Title: Paging (modifiable)Description: Add paging to your record retrieval. But, do it with the...
    Code Title: Paging (modifiable)
    Description: Add paging to your record retrieval. But, do it with the good'ol form field that allows you
    to just type in directly what page ya wanna go to. This one is our fave! It even alternates the background
    color (bgcolor) of each row, to make viewing the recordset even easier.. We use different tweaked versions
    of this one all over our site! See an example of this code snippet on our International page.

    We have made it so that it will display a hyperlinked first item in one column, then a truncated
    description using the Left() function in the next column. The hyperlink will take you to the specific
    article or record, (whatever you're using it for).

    We use a javascript valid number checker on this one, just to make sure the person doesn't enter any weird
    characters into the page number field of the form. We don't normally do this, but if ya want the
    javascript for number checking, check out our jsNumberValidator.
    Copy and paste this snippet as-is into your editor:


    <%
    Const adUseClient = 3
    Const adOpenStatic = 3
    specific = Request.QueryString("specific")
    If specific = "" Then
    Set rs = Server.CreateObject("ADODB.RecordSet")
    rs.CursorLocation = adUseClient
    rs.CacheSize = 5
    mypage = Request.Form("pgNum")
    If mypage = "" Then mypage = 1
    rs.Open "SELECT * FROM TABLE ORDER BY FIELD ASC", cnDZ, adOpenStatic
    If Not rs.EOF Then
    rs.MoveFirst
    rs.PageSize = 20 'change this number to exactly how many records per page ya wanna show
    maxcount = cint(rs.PageCount)
    rs.AbsolutePage = mypage
    howmanyrecs = 0
    Response.Write""
    LinkCount = 0
    While Not rs.EOF And howmanyrecs < rs.pagesize
    If LinkCount Mod 2 = 0 Then bgColor = " bgcolor=#F0F0F0" Else bgColor = ""
    Response.Write""&_
    ""&rs("FIELD")&""&_
    ""&Left(rs("FIELD2"),40)&""
    LinkCount = LinkCount + 1
    rs.MoveNext
    howmanyrecs = howmanyrecs + 1
    Wend
    Response.Write""
    If maxcount > 1 Then
    If mypage + 1 > maxcount Then nextPg = 1 Else nextPg = mypage + 1
    Response.Write"
    "&_
    "Page "&mypage&" of "&maxcount&" Navigate to Page:type=text name=pgNum size=3 maxlength=3 value="""&nextPg&"""> value=GO>
    "
    End If
    Else Response.Write"Sorry, nothing is available at the moment."
    End If
    rs.Close
    Set rs = Nothing
    Else
    Set rs = cnDZ.Execute("SELECT * FROM TABLE WHERE ID = "&specific&"")
    Do Until rs.EOF
    Response.Write""&rs("FIELD")&"
    "&_
    ""&rs("FIELD2")&"
    "
    rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    End If
    %>

    作者:佚名 来源:不详

    共有评论 0相关评论
    发表我的评论
    • 大名:
    • 内容:
  • 澳门二十一点游戏赌场(www.0769online.com) © 2018 版权所有 All Rights Reserved. 邮箱:103150@qq.com 业务QQ:103150 手机:13549753683

    Power By Laoy8 SQL 3.0SP1 粤ICP备10098668号
  •