阅读下列说明,回答问题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