阅读下列说明，回答问题1和问题2，将解答填入答题纸的对应栏内。【说明】某系统在线讨论区采用ASP+Access开发，其主页如图4-1所示【问题2】（7分）该网站在主页上设置了分页显示，每页显示10条留言，以下是该网站页面分页显示部分代码，请阅读程序代码，并将（9）～（15）的空缺代码补齐。＜%Set rs = server.CreateObject（“adodb.recordset”）（9） = “select * from cont （10） by id desc ”rs.Open exec, conn, 1, 1If rs. （11） Then response.Write “ 暂无留言！"Else rs.PageSize= （12） ’每页记录条数 iCount= rs.RecordCount’记录总数 iPageSize= rs.PageSize maxpage= rs.PageCount page= request（"page"） If Not IsNumeric（page） Or page=""Then page = 1 Else lPage = （13）End ifIf page＜1 Then page = 1ElseIf page>maxpage Then page= （14）End Ifrs.AbsolutePage = PageIf page = maxpage Then x = iCount - （maxpage -1） * iPageSizeElse x= （15）End If%>......＜/div>（9）～（15）的备选答案：A．Clnt（page） B．exec C．maxpage D．10 E．EOF F．iPageSize G. order

问答题

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

【问题2】（7分）
该网站在主页上设置了分页显示，每页显示10条留言，以下是该网站页面分页显示部分代码，请阅读程序代码，并将（9）～（15）的空缺代码补齐。

＜%Set rs = server.CreateObject（“adodb.recordset”）（9） = “select * from cont （10） by id desc ”rs.Open exec, conn, 1, 1If rs. （11） Then    response.Write “ 暂无留言！"Else  rs.PageSize=  （12）  ’每页记录条数  iCount= rs.RecordCount’记录总数  iPageSize= rs.PageSize  maxpage= rs.PageCount  page= request（"page"）  If Not IsNumeric（page） Or page=""Then    page = 1  Else  lPage = （13）End ifIf page＜1 Then    page = 1ElseIf page>maxpage Then    page= （14）End Ifrs.AbsolutePage = PageIf page = maxpage Then       x = iCount - （maxpage -1） * iPageSizeElse       x=  （15）End If%>......＜/div>（9）～（15）的备选答案：A．Clnt（page）    B．exec     C．maxpage        D．10       E．EOF       F．iPageSize    G. order

查看答案

最新更新

热门题库