阅读下列网站建设的技术说明,结合网页显示的效果图,根据要求回答问题1~问题5。
【说明】
以下是用ASP实现了一个网络收藏夹网页,用于保存用户感兴趣的Web网页地址。用IE打开网页文件“index.asp”后的效果如图4-14所示。程序中使用的Access数据表结构见表4-8。
表4-8 Access数据表结构表
字段名 | 类 型 | 备 注 |
no | 自动编号 | 序号 |
name | 文本 | 主页名称 |
url | 文本 | 超链接 |
category | 文本 | 网站类别 |
<% @language="VBscript" %>
<%
set conn=server. (1) ("Adodb.Cormection")
provider="Provider=Microsoft.Jet.OLEDB.4.0;"
path="Data Source="& Server.MapPath("main.mdb")
connstR=provider & path
conn.open connstr
%>
<html>
<head><title>网络收藏夹</title></head>
(2)
<center>
<%
set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from address"
rs.open() sql,conn,1,3
if Request("name")="" or Request("url")="" then
Response.write("内容填写不完整")
else
rs.addnew
rs(1)=request("name")
rs(2)=request("URL")
rs(3)=request("category")
rs.update
end If
%>
<table width="500" border=-"1" cellpadding="0" cellspacing="0" bordercolor="#00FCFF">
<tr><td>序 号</td><td>名 称</td><td>类 别</td></tr>
<% rs.movefirst
for j=1 to ts. (3) %>
<tr>
<td><%=j%></td>
<td><a href="<%=rs("url")%>" target="blank"><%=rs("name")%></a></td>
<td><%=rs("category")%></td>
</tr>
<% rs.movenext
(4) %>
</table><br>
<form method="post" name="new" id="new" action="index.asp">
<table width="300" border="1" cellpadding="0" cellspacing="0" bordercolor="#FF00CC">
<tr>
<td width="61">名 称:</td>
<td width="223" align="left"><input name="name" type="text" id="name">*</td>
</tr>
<tr>
<td>超链接:</td>
<td align="left"><input name="URL" type="text" id="URL">*</td>
</tr>
<tr>
<td colspan="2">类别:</td>
</tr>
<tr>
<td colspan="2"><textarea name="category" rows="5" id="disc"></textarea></td>
</tr>
<td colspan="2">*为必填项目</td>
</table><br>
(5)
</form>
<%
rs.close
conn.close
%>
</center>
</body>
</html>
【问题1】 请从以下供选择的答案中为index.asp文档程序中(1)~(5)处空缺部分选择正确答案。(1) A.CreateObject B.Connect C.ExecuteSQL D.Open ()(2) A.<body> B.<html> C.<head> D.<table>(3) A.number B.recordnumber C.count D.recordcount(4) A.skip B.end for C.next D.loop(5)
参考答案:
解析:(1) A,或CteateObject (2) A,或<body>(3) D,或rceordcount (4) C,或next(5) A,或<input type="submit" name="add" value="添加">空缺处的语句:set conn=server. (1) ("Adodb.Connection")中,Adodb组件库的Connection类组件需使用Server.CreatObject方法来创建一个名为conn的对象,即(1)空缺处所填写的内容是选项A的“CreatObject”。对于该空缺处所填写的内容也可从index.asp文档代码中“set rs=Server.CreateObject ("Adodb.RecordSet")”语句得到启发。 HTML文档以<html>标签开始,以</html>结束,由文档头和文档体等两部分构成。其中,文档头由元素<head>…</head>标签,文档体由元素<bdy>…</body>标签。由于文档体开始元素标签<body>和结束元素标签</body>必须成对出现,缺一不可,而本试题在文档体结束处(即index.asp文档代码的倒数第2行)已给出</body>标签。因此在文档头结束标签之后,必须有文档体开始元素标签,即(2)空缺处所填写的内容是选项A的“<body>”。 index.asp文档的第一行代码已声明该文档使用VBScript语言,而该语言的流程控制语句中"For…Next”语句可指定循环次数,利用计数器控制重复执行语句的次数。其语法为: for 计数变量=初值 to 终值 [step 步长值] /* 语句组 */ next 可见,(3)空缺处应填写rs记录集的记录总数,即应选择选项D的“recordcoum”:(4)空缺处应填写与“for”配对的“next”。对于(4)空缺处选项D的“loop”通常与流程控制语句“do”配对使用,即“do… loop”或“do while/until…loop”。在VBScript流程控制语句中未涉及选项A的“skip”和选项B的“end for”。另外,提醒注意的是“while…end”循环语句的配对使用。 由(5)空缺处的4个选项内容以及图4-14中“添加”按钮的显示效果可知,该空缺处所填写的语句应为选项A的“<input type="submit" name="add" value="添加">”。如果填写选项C的“<input type="submit" name="添加" value="add">”语句,则该按钮上所显示的文字将变为“add”。如果填写选项B的“<input type="post" name="add" value="添加">”语句,则在该按钮位置上将显示一个带“添加”文字的文本输入框。如果填写选项D的“<input type="post" name="添加" value="add">”语句,则将显示一个带“add”文字的文本输入框。