阅读下列说明，回答问题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, 1
Ifrs. （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
Page = （13）
End if
If page＜l Then
page = 1
ElseIf page>maxpage Then
page= （14）
End If
rs.AbsolutePage = Page
If page = maxpage Then
x = iCount - （maxpage -1） * iPageSize
Else
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
你可能感兴趣的试题
-
- A.V(S2)和P(S4)
- B.P(S2)和V(S4)
- C.P(S2)和P(S4)
- D.V(S2)和V(S4)
- 查看答案
-
- A.V（S1）P（S2）和V（S3）
- B.P（S1）V（S2）和V（S3）
- C.V（S1）V（S2）和V（S3）
- D.P（S1）P（S2）和V（S3）
- 查看答案
-
- A.P（S4）和V（S4）V（S5）
- B.V（S5）和P（S4）P（S5）
- C.V（S3）和V（S4）V（S5）
- D.P（S3）和P（S4）V（P5）
- 查看答案
-
- A.P(S3)和V(S4)V(S5)
- B.V(S3)和P(S4)P(S5)
- C.P(S3)和P(S4)P(S5)
- D.V(S3)和V(S4)V(S5)
- 查看答案
-
- A.P（S2）和P（S4）
- B.P（S2）和V（S4）
- C.V（S2）和P（S4）
- D.V（S2）和V（S4）
- 查看答案