试题四 阅读以下说明,回答【问题1】至【问题2】,将解答填入答题纸对应的解答栏内。 【说明】 某系统在线讨论区采用ASP+Access开发,其主页如图4-1所示。 【问题2】 该网站在主页上设置了分页显示,每页显示10条留言

admin2015-11-30  20

问题 试题四
    阅读以下说明,回答【问题1】至【问题2】,将解答填入答题纸对应的解答栏内。
    【说明】
    某系统在线讨论区采用ASP+Access开发,其主页如图4-1所示。

【问题2】
  该网站在主页上设置了分页显示,每页显示10条留言,以下是该网站页面分页显示部分代码,请阅读程序代码,并将(9)~(15)的空缺代码补齐。
    <%
    Setrs=server.CreateObj ect(“adodb.recordset”)
      (9)  =“select*from cont  (10)  by id desc”
    rs.Open exect conn,1,1
    If rs.  (11)  Then
response.Write“ ;暂无留言!”
Else
rs.PageSize=  (12)  每页记录条数
iCount=rs.RecordCount  记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request(“page”)
If NotIsNumeric(page)Or page=“”Then
    page=1
Else
    page=  (13)  
End if
If page<1 Then
    page=1
Else If page>maxpage Then
    paqe=   (14)  
EndIf
rs.AbsolutePage=Page
If page=maxpage Then
    X=iCount-(maxpage-1)*iPageSize
Else
    X=  (15)  
End If
%>
......
</div>
(9)~(15)的备选答奏:
A.CInt(page)    B.exec    C.maxpage D.10
E.EOF    F.iPageSize    G.order

选项

答案(9)B (10)G (11)E (12)A (13)F (14)D (15)C

解析 首先调用Server对象的CreateObject方法,创建一个“connection对象”,把查询语句赋给exec,使用Recordset对象的Open方法用来打开数据库中的表。查询语句中使用order by id desc表示将查询结果降序排列。
    Setrs=server.Createobject(“adodb.recordset”)
    (9)exec=“select*from cont(10)order by id desc”
    rs.Open exec conn,1,1
    再查询记录集,如果记录集为空,则输出“暂无留言!”,否则用rs.PageSize=CInt(page)保存每页记录条数。CInt函数用于将字符型转为数值。
    Ifrs.(11)EOF Then
    response.Write“ ;暂无留言!”
    Else
    rs.PageSize=(12)CInt(page)  每页记录条数
    iCount=rs.RecordCount 记录总数
    下面的代码用于设置分页显示,每页显示10条留言。
    iCount=rs.RecordCount  记录总数
    iPageSize=rs.PageSize
    maxpage=rs.PageCount
    page=request(“page”)
    If NotIsNumeric(page)Or page=“”Then
    page=1
    Else
    page=(13)iPageSize
    End if
    If page<l Then
    page=1
    Else If page>maxpage Then
    paqe=(14)10
    Endlf
    rs.AbsolutePage=Page
    If page=maxpage Then
    x=iCount.(maxpage-1)*iPageSize
    Else
    x=(15)maxpage
    End If
转载请注明原文地址:https://jikaoti.com/ti/e5z7FFFM
0

相关试题推荐
最新回复(0)