| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 565 人关注过本帖
标题:asp 聊天室
只看楼主 加入收藏
周想想
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2010-6-8
结帖率:33.33%
收藏
已结贴  问题点数:10 回复次数:2 
asp 聊天室
    在获取信息的时候显示的是详细列表,我要分页那么的搞啊?高手帮帮忙啊?
搜索更多相关主题的帖子: 聊天室 asp 
2010-06-11 15:13
hams
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:18
帖 子:912
专家分:3670
注 册:2008-7-30
收藏
得分:5 
不明白你说的什么

俺不高手,俺也是来学习的。
俺的意见不一定就对,当你不认同时请点忽视按钮。
当走到十字路口不知该如何走时,可在论坛问下路,但你若希望别人能一路把你送到目的地,显然是不现实的,因为别人也有自己要走的路。
2010-06-11 17:37
魏兴耀
Rank: 8Rank: 8
来 自:江西
等 级:蝙蝠侠
威 望:3
帖 子:246
专家分:840
注 册:2009-11-9
收藏
得分:5 
<% Option Explicit %>
<!--#Include file="odbc_connection.asp"-->
<!--#Include file="config.asp"-->
<html>
<head>
    <title>我的通讯录</title>
</head>
<body>
    <h1 align="center">通讯录</h1>

    <!--下面首先给添加记录和查找记录的超链接 -->
    <a href="insert.asp">添加记录</a>&nbsp;&nbsp;<a href="search.asp">查找记录</a><p>

    <%
    '下面首先获取传递过来的排序字段名称-------------------------------------------------------------
    Dim strField
    If Request.QueryString("varField")="" Then
        strField="ID"                                        '如果为空,就默认按编号字段排序
    Else
        strField=Request.QueryString("varField")            '如果不为空,就按相应字段排序
    End If
    '下面一段判断当前显示第几页,如是第一次打开,为1,否则由传回参数决定
    Dim intPage                           
    If Request.QueryString("varPage")="" Then   
        intPage=1
    Else
        intPage=CInt(Request.QueryString("varPage"))        '用CInt转换为整数
    End If
   
    '以下建立Recordset对象实例rs,注意SQL语句中要用到上面获取的排序字段-----------------------------
    Dim rs,strSql
    Set rs=Server.CreateObject("ADODB.Recordset")
    strSql ="Select ID,strName,strTel,strEmail,dtmSubmit From tbAddress Order By " & strField & " DESC"
    rs.Open strSql,conn,1                                    '注意参数设置为键盘指针

    '如果记录集不是空的,就执行分页显示
    If Not rs.Bof And Not rs.Eof Then
        '-------------------------------------------------------------------------------------------
        '下面一段开始分页显示,指向要显示的页,然后逐条显示当前页的所有记录
        rs.PageSize=conPageSize                                '这里调用config.asp中的常数设置每页显示多少条记录
        rs.AbsolutePage=intPage                                '设置当前显示第几页

        '下面首先输出表格的标题栏
        Response.Write "<table width='100%' border='1' bordercolorlight='#B0B0B0' bordercolordark='#FFFFFF' cellspacing='0' cellpadding='0' align='center'>"
        Response.Write "<tr bgcolor='#E0E0E0' height='25'>"
        Response.Write "<th width='10%'><a href='index.asp?varField=ID'>编号</a></th>"
        Response.Write "<th width='10%'><a href='index.asp?varField=strName'>姓名</a></th>"
        Response.Write "<th width='20%'><a href='index.asp?varField=strTel'>电话</a></th>"
        Response.Write "<th width='20%'><a href='index.asp?varField=strEmail'>E-mail</a></th>"
        Response.Write "<th width='20%'><a href='index.asp?varField=dtmSubmit'>添加日期</a></th>"
        Response.Write "<th width='10%'>更新</th>"
        Response.Write "<th width='10%'>删除</th>"
        Response.Write "</tr>"

        '下面利用循环显示当前页的所有记录
        Dim I
        For I=1 To rs.PageSize
            If rs.Eof Then Exit For                            '如果到了记录集结尾,就跳出循环
            Response.Write "<tr align='center' height='25'>"                                
            Response.Write "<td>" & rs("ID") & "</td>"
            Response.Write "<td><a href='particular.asp?ID=" & rs("ID") & "' target='_blank'>" & rs("strName") & "</td>"
            Response.Write "<td>" & rs("strTel") & "</td>"
            Response.Write "<td><a href='mailto:" & rs("strEmail") & "'>" & rs("strEmail") & "</td>"
            Response.Write "<td>" & rs("dtmSubmit") & "</td>"
            Response.Write "<td><a href='update.asp?ID=" & rs("ID") & "'>更新</td>"
            Response.Write "<td><a href='delete.asp?ID=" & rs("ID") & "'>删除</td>"
            Response.Write "</tr>"
            rs.MoveNext
        Next
        '下面输出表格的结束标记,表格到此结束
        Response.Write "</table>"

        '-------------------------------------------------------------------------------
        '下面首先输出当前页和总页数
        Response.Write "<p align='right'>当前显示第" & intPage & "页/共" & rs.PageCount & "页"

        '下面一段依次输出第1页、上一页、下一页和最后页的超链接
        Response.Write "&nbsp;&nbsp;<a href='index.asp?varPage=1&varField=" & strField & "'>第1页</a>&nbsp;"
        If intPage>1 Then
            Response.Write "<a href='index.asp?varPage=" & (intPage-1) & "&varField=" & strField & "'>上一页</a>&nbsp;"
        Else
            Response.Write "上一页&nbsp;"
        End If
        If intPage<rs.PageCount Then
            Response.Write "<a href='index.asp?varPage=" & (intPage+1) & "&varField=" & strField & "'>下一页</a>&nbsp;"
        Else
            Response.Write "下一页&nbsp;"
        End If
        Response.Write "<a href='index.asp?varPage=" & rs.PageCount  & "&varField=" & strField & "'>最后页</a>&nbsp;"
        '-------------------------------------------------------------------------------
    End If
    '现在关闭有关对象
    rs.Close
    Set rs=Nothing
    conn.Close
    Set conn=Nothing
    %>
</body>
</html>

只有大胆尝试,才有机会得到想要的成功
2010-06-11 17:38
快速回复:asp 聊天室
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016585 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved