动态网页制作作业(含答案)
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
(A)客户端(B)服务器端
(C)服务器端和客户端(D)服务器端或客户端
19．对于文件上传组件，如果希望获取上传文件的大小，应该怎样用？（A）
(A)Upload.Files("upfile").Size
(B)Upload.Form("upfile").Size
(C)Request.Files("upfile").Size
<%
Dim theda
theday=Weekday(Date())
Select Case theday
Case2,3
Response.Write"<img src='p1.jpg'>"
Case Else
Response.Write"<img src='p2.jpg'>"
End Select
%>
11.很多网站要求客户必须登录后才能访问，如果客户没有登录，就直接访问网站的某个页面，应该将其引导到首页。请据此填写下面的空格。
(A)空格(B)Tab(C) (D)Space
二、填空题（每空1分，共40分）
1.ASP文件就是在普通的HTML文件中插入VBScript或JavaScript脚本语言。
2.如果操作系统是Windows 2000，一般需要安装IIS组件才能运行ASP程序。
3.执行完a= Left("vbscript",2) & Mid("vbscript",3,4) & Right("vbscript",2)后，a的值为vbscript。
strSql ="Select * From users order by name Asc"
rs.OpenstrSql,db,1
'如果记录集不是空的，就执行分页显示
IfNot rs.Bof And Not rs.EofThen
'下面一段判断当前显示第几页，如是第一次打开，为1，否则由传回参数决定
(A)" vbscript good"
(B) "vbscript good"
(C) " vbscriptgood"
(D) "vbscriptgood"
8．下面哪个函数可以返回当前的日期和时间：（A）
(A) Now(B)Date(C)Time(D)DateTime
9．对于利用Dim a(4,5)语句定义的二维数组，Ubound(a,1)将返回（B）
16．当使用事务处理时，假如要提交事务处理，应该利用如下方法：（C）
(A) BeginTrans(B)EndTrans
(C)CommitTrans(D)RollBackTrans
17．如果刚打开了一个含有1条记录的记录集，那么Bof的值为（C）
(A) 1(B)True(C)False(D)NULL
18．使用W3 Jmail组件发送E-mail时，附件必须位于（B）
8.原来用一个数组users保存学生名单，现在新转来一位同学“张峰”，需要将其名字添加到该数组中，请填写下面程序段中的空格。
<%
Dim users()
Redim users(40)
users(0)="王军"
users(1)="李俊"
……
RedimPreserveusers(41)
users(41)="张峰"
varNumber=1
Else
varNumber=varNumber+1
End If
.Response.Cookies(“number”)=varNumber
Response.Cookies(“number”).Expires=#2030-1-1#
Response.Write "您是第" & varNumber & "次访问本站"
a(I)=I
Sum=Sum+a(I)
Next
%>
(A) 0(B)5(C)15(D)20
5．执行完a=5 Mod 3语句后，a的值为：（B）
(A) 0(B)2(C)3(D)5
6．执行完a=5>3 And "a"<"c"语句后，a的值为：（A）
(A) True(B)Falseபைடு நூலகம்C)1(D)0
7．下面a=Trim(" vbscript")&Rtrim(" good")语句后，a的值：（B）
%>
13.假如Application("UserOnLine")中保存了一个数组，该数组中保存了在线用户的名称，下面的程序段从其中读取所有用户名，并显示在页面上，请填写其中的空格。
<%
Dim UserOnLine,Number
UserOnLine=Application("UserOnLine")
Number=Ubound(UserOnLine)'返回该数组的最大下标
2．执行完语句a="2"，a的类型为（B）
(A)数值型(B)字符串型(C)布尔型(D)日期型
3．执行完如下语句后，a的值为：（D）
<%
Dim a
a=3
a=a+1
%>
(A) 0(B)1(C)3(D)4
4．执行完如下语句后，Sum的值为：（C）
<%
Dim a(5),Sum
Sum=0
For I=0 To 5
<table>
<tr>
<td>网站名称</td><td>网站地址</td><td>提交日期</td>
</tr>
<%
'以下连接数据库
Dim db
Set db=Server.CreateObject("ADODB.Connection")
1．db.Open"Dbq=" & Server.Mappath("wwwlink.mdb") & ";Driver={Microsoft AccessDriver"Dbq=" & Server.Mappath("wwwlink.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
(*.mdb)}"
'以下建立记录集
Dim strSql,rs
strSql="Select * From link Order By Submit_date Desc"
set rs=db.execute(strsql)
'以下显示数据库记录
Do WhileNot rs.Eof
%>
<tr>
<td><%=rs("name")%></td>
<%
Dim db,rs,strSql
'建立Connection对象
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dsn=addr" '这里利用数据源连接
'建立Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
(D)Request.Form("upfile").Size
20．对于如下的文件超链接组件中使用的超链接数据文件，文件路径和说明之间应该用（B）隔开。
webcourse/www_1.htm第一讲利用工具软件制作网页
webcourse/www_2.htm第二讲网页制作高级功能
webcourse/www_3.htm第三讲利用源代码开发网页
<%
If Session("UserName")=Response.RedirectThen"index.asp"
End If
%>
12.下面的程序段用来计算客户是第几次访问本站。请填写其中的空格。
<%
Dim varNumber
varNumber=Request.Cookies("number")
IfVarNumber=””Then
For I=0 To Number
Response.WriteUserOnLine(I)
Next
%>
14.对于如下图的数据表link，请填写下面的SQL语句中的空格：
图1
查询2003年1月1日到2004年1月1日之间的提交的网站，并按提交日期将序排列
strSql="Select * From link Where submit_dateBetween#2003-1-1# And #2004-1-1# Order By submit_dateDesc"
<td><a href="<%=rs("URL")%>" target="_blank"><%=rs("URL")%></a> </td>
<td><%=rs("submit_date")%></td>
</tr>
<%
rs.MoveNext
Loop
%>
</table>
16.针对上面图1所示，下面是分页显示所有网站的名称的语句，每页显示10条记录，请填写其中的空格。
%>
(A)新浪(B) <a href='http://www.sina.com.cn'>新浪</a>
(C)新浪（超链接）(D)该句有错，无法正常输出
14．Session对象的默认有效期为多少分钟？（C）
(A) 10(B)15(C)20(D)应用程序从启动到结束
15．请问下面程序段执行完毕，页面上显示内容是什么：（B）
4.语句a=DateAdd("d",10,Date())将返回10天后是几号。
5.语句b=Int(10 *Rnd或Rndc) +1)将返回1到10之间的随机整数。
6.在文件开头添加<%Option Explicit%语句后，则所有的变量都必须先声明才能使用。
7.在数据库的表中，纵的一行叫做一个字段，横的一行叫做一个记录。
(B)Request.ServerVariables("REMOTE_IP")
(C)Request.ClientCertificate("REMOTE_ADDR")
(D)Request.ClientCertificate ("REMOTE_IP")
12．执行完如下语句后，页面上显示的内容为：（A）
<%
查询2004年1月1日以后提交的网站总数目
strSql="SelectCount(*)AsTotal From link Where submit_date > #2004-1-1#"
15.针对上面图1所示，下面要在页面上按提交日期降序排列所有的网站，请填写下面程序段中的空格。假设数据库文件wwwlink.mdb和本文件存放在同一个文件夹下，数据表名为link。
%>
9.下面是一个函数，用来返回从a到b的立方和，请填写其中的空格。
<%
Function Cube(a,b)
Dim I,Sum
Sum=0
For I= a To b
Sum=Sum+I^3
Next
Cube=Sum
End Function
%>
10.下面这段语句，将根据今天是星期几，分别在页面上显示一幅图片，星期一、二显示p1.jpg，其它时间显示p2.jpg。请填写完整下面的程序。
动态网页制作作业
姓名：常小梅
动态网页制作作业
一、选择题（每小题2分，共40分）
1．请判断下列语句执行完毕后，a、b、c的值（B）
<%
a="1" + 1
b="1" + "1"
c="1" & "1"
%>
(A)"11","11","11" (B) 2,"11","11" (C) "11",2,"11" (D) "11","11",2
(A) 0(B)4(C)5(D)6
10．对于Request对象，如果省略获取方法，如Request(“user_name”)，将按什么顺序依次检查是否有信息传入：（B）
（A）Form、QueryString、Cookies、Server Variables、ClientCertificate
（B）QueryString、Form、Cookies、Server Variables、ClientCertificate
<%
Response.Write Server.HTMLEncode(“<a href='http://www.sina.com.cn'>新浪</a>”)
%>
(A)新浪(B) <a href='http://www.sina.com.cn'>新浪</a>
(C)新浪（超链接）(D)该句有错，无法正常输出
Response.Write "A"
Response.End
Response.Write "B"
%>
C
(A) A(B)AB(C)AC(D)ABC
13．请问下面程序段执行完毕，页面上显示内容是什么：（C）
<%
Response.Write“<a href='http://www.sina.com.cn'>新浪</a>”
（C）Cookies、QueryString、Form、Server Variables、ClientCertificate
（D）Form、QueryString、Cookies、Server Variables、ClientCertificate
11．下面哪条语句可以返回访问者的IP地址（A）
(A) Request.ServerVariables("REMOTE_ADDR")
(C)服务器端和客户端(D)服务器端或客户端
19．对于文件上传组件，如果希望获取上传文件的大小，应该怎样用？（A）
(A)Upload.Files("upfile").Size
(B)Upload.Form("upfile").Size
(C)Request.Files("upfile").Size
<%
Dim theda
theday=Weekday(Date())
Select Case theday
Case2,3
Response.Write"<img src='p1.jpg'>"
Case Else
Response.Write"<img src='p2.jpg'>"
End Select
%>
11.很多网站要求客户必须登录后才能访问，如果客户没有登录，就直接访问网站的某个页面，应该将其引导到首页。请据此填写下面的空格。
(A)空格(B)Tab(C) (D)Space
二、填空题（每空1分，共40分）
1.ASP文件就是在普通的HTML文件中插入VBScript或JavaScript脚本语言。
2.如果操作系统是Windows 2000，一般需要安装IIS组件才能运行ASP程序。
3.执行完a= Left("vbscript",2) & Mid("vbscript",3,4) & Right("vbscript",2)后，a的值为vbscript。
strSql ="Select * From users order by name Asc"
rs.OpenstrSql,db,1
'如果记录集不是空的，就执行分页显示
IfNot rs.Bof And Not rs.EofThen
'下面一段判断当前显示第几页，如是第一次打开，为1，否则由传回参数决定
(A)" vbscript good"
(B) "vbscript good"
(C) " vbscriptgood"
(D) "vbscriptgood"
8．下面哪个函数可以返回当前的日期和时间：（A）
(A) Now(B)Date(C)Time(D)DateTime
9．对于利用Dim a(4,5)语句定义的二维数组，Ubound(a,1)将返回（B）
16．当使用事务处理时，假如要提交事务处理，应该利用如下方法：（C）
(A) BeginTrans(B)EndTrans
(C)CommitTrans(D)RollBackTrans
17．如果刚打开了一个含有1条记录的记录集，那么Bof的值为（C）
(A) 1(B)True(C)False(D)NULL
18．使用W3 Jmail组件发送E-mail时，附件必须位于（B）
8.原来用一个数组users保存学生名单，现在新转来一位同学“张峰”，需要将其名字添加到该数组中，请填写下面程序段中的空格。
<%
Dim users()
Redim users(40)
users(0)="王军"
users(1)="李俊"
……
RedimPreserveusers(41)
users(41)="张峰"
varNumber=1
Else
varNumber=varNumber+1
End If
.Response.Cookies(“number”)=varNumber
Response.Cookies(“number”).Expires=#2030-1-1#
Response.Write "您是第" & varNumber & "次访问本站"
a(I)=I
Sum=Sum+a(I)
Next
%>
(A) 0(B)5(C)15(D)20
5．执行完a=5 Mod 3语句后，a的值为：（B）
(A) 0(B)2(C)3(D)5
6．执行完a=5>3 And "a"<"c"语句后，a的值为：（A）
(A) True(B)Falseபைடு நூலகம்C)1(D)0
7．下面a=Trim(" vbscript")&Rtrim(" good")语句后，a的值：（B）
%>
13.假如Application("UserOnLine")中保存了一个数组，该数组中保存了在线用户的名称，下面的程序段从其中读取所有用户名，并显示在页面上，请填写其中的空格。
<%
Dim UserOnLine,Number
UserOnLine=Application("UserOnLine")
Number=Ubound(UserOnLine)'返回该数组的最大下标
2．执行完语句a="2"，a的类型为（B）
(A)数值型(B)字符串型(C)布尔型(D)日期型
3．执行完如下语句后，a的值为：（D）
<%
Dim a
a=3
a=a+1
%>
(A) 0(B)1(C)3(D)4
4．执行完如下语句后，Sum的值为：（C）
<%
Dim a(5),Sum
Sum=0
For I=0 To 5
<table>
<tr>
<td>网站名称</td><td>网站地址</td><td>提交日期</td>
</tr>
<%
'以下连接数据库
Dim db
Set db=Server.CreateObject("ADODB.Connection")
1．db.Open"Dbq=" & Server.Mappath("wwwlink.mdb") & ";Driver={Microsoft AccessDriver"Dbq=" & Server.Mappath("wwwlink.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
(*.mdb)}"
'以下建立记录集
Dim strSql,rs
strSql="Select * From link Order By Submit_date Desc"
set rs=db.execute(strsql)
'以下显示数据库记录
Do WhileNot rs.Eof
%>
<tr>
<td><%=rs("name")%></td>
<%
Dim db,rs,strSql
'建立Connection对象
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dsn=addr" '这里利用数据源连接
'建立Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
(D)Request.Form("upfile").Size
20．对于如下的文件超链接组件中使用的超链接数据文件，文件路径和说明之间应该用（B）隔开。
webcourse/www_1.htm第一讲利用工具软件制作网页
webcourse/www_2.htm第二讲网页制作高级功能
webcourse/www_3.htm第三讲利用源代码开发网页
<%
If Session("UserName")=Response.RedirectThen"index.asp"
End If
%>
12.下面的程序段用来计算客户是第几次访问本站。请填写其中的空格。
<%
Dim varNumber
varNumber=Request.Cookies("number")
IfVarNumber=””Then
For I=0 To Number
Response.WriteUserOnLine(I)
Next
%>
14.对于如下图的数据表link，请填写下面的SQL语句中的空格：
图1
查询2003年1月1日到2004年1月1日之间的提交的网站，并按提交日期将序排列
strSql="Select * From link Where submit_dateBetween#2003-1-1# And #2004-1-1# Order By submit_dateDesc"
<td><a href="<%=rs("URL")%>" target="_blank"><%=rs("URL")%></a> </td>
<td><%=rs("submit_date")%></td>
</tr>
<%
rs.MoveNext
Loop
%>
</table>
16.针对上面图1所示，下面是分页显示所有网站的名称的语句，每页显示10条记录，请填写其中的空格。
%>
(A)新浪(B) <a href='http://www.sina.com.cn'>新浪</a>
(C)新浪（超链接）(D)该句有错，无法正常输出
14．Session对象的默认有效期为多少分钟？（C）
(A) 10(B)15(C)20(D)应用程序从启动到结束
15．请问下面程序段执行完毕，页面上显示内容是什么：（B）
4.语句a=DateAdd("d",10,Date())将返回10天后是几号。
5.语句b=Int(10 *Rnd或Rndc) +1)将返回1到10之间的随机整数。
6.在文件开头添加<%Option Explicit%语句后，则所有的变量都必须先声明才能使用。
7.在数据库的表中，纵的一行叫做一个字段，横的一行叫做一个记录。
(B)Request.ServerVariables("REMOTE_IP")
(C)Request.ClientCertificate("REMOTE_ADDR")
(D)Request.ClientCertificate ("REMOTE_IP")
12．执行完如下语句后，页面上显示的内容为：（A）
<%
查询2004年1月1日以后提交的网站总数目
strSql="SelectCount(*)AsTotal From link Where submit_date > #2004-1-1#"
15.针对上面图1所示，下面要在页面上按提交日期降序排列所有的网站，请填写下面程序段中的空格。假设数据库文件wwwlink.mdb和本文件存放在同一个文件夹下，数据表名为link。
%>
9.下面是一个函数，用来返回从a到b的立方和，请填写其中的空格。
<%
Function Cube(a,b)
Dim I,Sum
Sum=0
For I= a To b
Sum=Sum+I^3
Next
Cube=Sum
End Function
%>
10.下面这段语句，将根据今天是星期几，分别在页面上显示一幅图片，星期一、二显示p1.jpg，其它时间显示p2.jpg。请填写完整下面的程序。
动态网页制作作业
姓名：常小梅
动态网页制作作业
一、选择题（每小题2分，共40分）
1．请判断下列语句执行完毕后，a、b、c的值（B）
<%
a="1" + 1
b="1" + "1"
c="1" & "1"
%>
(A)"11","11","11" (B) 2,"11","11" (C) "11",2,"11" (D) "11","11",2
(A) 0(B)4(C)5(D)6
10．对于Request对象，如果省略获取方法，如Request(“user_name”)，将按什么顺序依次检查是否有信息传入：（B）
（A）Form、QueryString、Cookies、Server Variables、ClientCertificate
（B）QueryString、Form、Cookies、Server Variables、ClientCertificate
<%
Response.Write Server.HTMLEncode(“<a href='http://www.sina.com.cn'>新浪</a>”)
%>
(A)新浪(B) <a href='http://www.sina.com.cn'>新浪</a>
(C)新浪（超链接）(D)该句有错，无法正常输出
Response.Write "A"
Response.End
Response.Write "B"
%>
C
(A) A(B)AB(C)AC(D)ABC
13．请问下面程序段执行完毕，页面上显示内容是什么：（C）
<%
Response.Write“<a href='http://www.sina.com.cn'>新浪</a>”
（C）Cookies、QueryString、Form、Server Variables、ClientCertificate
（D）Form、QueryString、Cookies、Server Variables、ClientCertificate
11．下面哪条语句可以返回访问者的IP地址（A）
(A) Request.ServerVariables("REMOTE_ADDR")