阅读下列说明,回答问题1和问题2,将解答填入答题纸的对应栏内。 【说明】 某

最全题库2022-08-02  43

问题 阅读下列说明,回答问题1和问题2,将解答填入答题纸的对应栏内。【说明】某系统在线讨论区采用ASP+Access开发,其主页如图4-1所示。【问题1】(8分)以下是该网站主页部分的html代码,请根据图4-1将(1)~(8)的空缺代码补齐。<!--#  (l)  file="conn.asp" --><html>......<div id="content" class="layout">  <div class="right_body">    <  (2)   name="guestbook" (3) ="post" (4) ="guestbook_adD.asp">          <table class="table">             <tr>                 <th width="60"> </th>                <td><label></label></td>             </tr>             <tr>             <th width="60"> </th>           <td><input name="title" type=" (5) " size="50"  /></td>           </tr>           <tr>             <th> </th>             <td>< (6) name="body" cols="60" rows="5"></textarea></td>           </tr>           <tr>             <td colspan="2"><p class="tj ">               <input name="tj" type=" (7) "" (8) " ="提交吧!" />             </p></td>          </tr>       </table>     </form>  </div>......</html>       (1)~(8)的备选答案:    A.submit    B.form    C.text    D.textarea    E. include    F.action    G method    H.value【问题2】(7分)该网站在主页上设置了分页显示,每页显示10条留言,以下是该网站页面分页显示部分代码,请阅读程序代码,并将(9)~(15)的空缺代码补齐。......<%Set rs = server.CreateObject("adodB.recordset")(9) = "select * from cont (10) by id desc "rs.Open exec, conn, 1, 1Ifrs. (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  ElsePage = (13)End ifIf page<l 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】(8分)
(1)E   (2)B  (3)G  (4)F  (5)C    (6)D      (7)A  (8)H
【问题2】(7分)
(9)B  (10)G  (11)E  (12)D   (13)A  (14)C (15)F

本题考查网页设计的基本知识及应用。
【问题 1】
本问题考查 html代码的基础知识。根据图示网页及提供的程序代码,该网站主页面中的(1)是引用文件,(2)~(4)空属于HTML中表单的基础属性标记,(5)~(8)空可以在图中判断其表单类型值。所以代码应如下:
<! --# include file="conn.asp"-->
<html   >
......
<div id="content"  class="layout">
<div  class="right_body">
< form   name="guestbook"    method="post"   action="guestbook_add.asp">
<table class="table">
<tr>
<th width="60"> </th>
<td><label></label></td>
</tr>
<tr>
<th width="60">& nbsp;</th>
<td><input  name="title"  type="text" size="50"           /></td>
</tr>
<tr>
<th> </th>
<td><  textarea   name="body"  cols="60"  rows="5"></textarea></td>
</tr>
<tr>
<td  colspan="2"><p  class="tj">
<input name="tj"  type="submit "value="提交吧! " />
</p></td>
</tr>
</table>
</form>
</div>
......
</html>
【问题 2】
本问题考查 ASP编程。依照 ASP程序的基本语法和 rs.Open exec,conn,1,1 可以判断(9)空应填写取得 sql语句的变量名 exec,(10)空按照 SQL语句规则应填写 order,(11)是判断从数据库中读取留言是否为空,应填写 EOF,(12)空根据题目描述可知每页显示 10条留言,故此处应填写10,(13)~(15)空中是分页显示基本代码,根据上下程序关系分别应填写 Cint(page)、maxpage 、iPageSize。所以该程序代码如下:
<%
Set   rs   =   server.CreateObject("adodb.recordset")
exec= "select * from cont order by  id desc   "
rs.Open    exec,conn ,1,1
If rs. EOF  Then
response.Write  " 暂无留言!
Else
rs.PageSize = 10'每页记录条数
iCount  =  rs.RecordCount '记录总数
iPageSize  =  rs.PageSize
maxpage = rs.PageCount
page = request ("page")
If Not  IsNumeric(page)  Or page = "" Then
page = 1
Else
page = CInt(page)
End  If
If page<1 Then
page = 1
Elself page>maxpage Then
page  = maxpage
End  If
rs .AbsolutePage  =  page
If page = maxpage Then
x = iCount  -  (maxpage -1)  * iPageSize
Else
x  =   iPageSize
End If
%>
......
</div>
(9)~(15)的备选答案:
A. CInt(page)  B.exec     C. maxpage  D.10       E. EOF      F.iPageSize       G. order
转载请注明原文地址:https://tihaiku.com/congyezige/2431209.html

最新回复(0)