• λ我爱Aspx >> C#.Net >> 一个分页代码例子

    • 一个分页代码例子

  • :aspxer  Դ:internet  :2007-5-12 7:52:50  ؼ:

  • <%''本程序文件名为：Pages.ASP%>

    <%''包含ADO常量表文件adoVBs.inc，可从"\Program Files\Common Files\System\ADO"目录下拷贝%>

    <!--#Include File="adovbs.inc"-->

    <%''＊建立数据库连接，这里是Oracle8.05数据库

    Set conn=Server.CreateObject("ADODB.Connection")

    conn.Open "Provider=msdaora.1;Data Source=YourSrcName;User ID=YourUserID;Password=YourPassword;"

    Set rs=Server.CreateObject("ADODB.Recordset") ''创建Recordset对象

    rs.CursorLocation=adUseClient ''设定记录集指针属性

    ''＊设定一页内的记录总数，可根据需要进行调整

    rs.PageSize=10

    ''＊设置查询语句

    StrSQL="Select ID,姓名,住址,电话 from 通讯录 Order By ID"

    rs.Open StrSQL,conn,adOpenStatic,adLockReadOnly,adCmdText

    %>

    <HTML>

    <HEAD>

    <title>分页示例</title>

    <script language=JavaScript>

    //点击"[第一页]"时响应：

    function PageFirst()

    {

    document.MyForm.CurrentPage.selectedIndex=0;

    document.MyForm.CurrentPage.onchange();

    }

    //点击"[上一页]"时响应：

    function PagePrior()

    {

    document.MyForm.CurrentPage.selectedIndex--;

    document.MyForm.CurrentPage.onchange();

    }

    //点击"[下一页]"时响应：

    function PageNext()

    {

    document.MyForm.CurrentPage.selectedIndex++;

    document.MyForm.CurrentPage.onchange();

    }

    //点击"[最后一页]"时响应：

    function PageLast()

    {

    document.MyForm.CurrentPage.selectedIndex=document.MyForm.CurrentPage.length-1;

    document.MyForm.CurrentPage.onchange();

    Ҷƪл˵?
    第一页上一页123下一页尾页
  • һƪASP进阶教程：给留言簿润下色
    һƪAsp Object 之:Response