动态网页制作作业含答案.docx

动态网页制作作业含答案.docx

《动态网页制作作业含答案.docx》由会员分享，可在线阅读，更多相关《动态网页制作作业含答案.docx（26页珍藏版）》请在冰豆网上搜索。

动态网页制作作业含答案

动态网页制作作业

姓名：

常小梅

动态网页制作作业

一、选择题（每小题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

2．执行完语句a="2"，a的类型为（B）

（A）数值型（B）字符串型（C）布尔型（D）日期型

3．执行完如下语句后，a的值为：

（D）

<%

Dima

a=3

a=a+1

%>

（A）0（B）1（C）3（D）4

4．执行完如下语句后，Sum的值为：

（C）

<%

Dima（5）,Sum

Sum=0

ForI=0To5

a（I）=I

Sum=Sum+a（I）

Next

%>

（A）0（B）5（C）15（D）20

5．执行完a=5Mod3语句后，a的值为：

（B）

（A）0（B）2（C）3（D）5

6．执行完a=5>3And"a"<"c"语句后，a的值为：

（A）

（A）True（B）False（C）1（D）0

7．下面a=Trim（"vbscript"）&Rtrim（"good"）语句后，a的值：

（B）

（A）"vbscriptgood"

（B）"vbscriptgood"

（C）"vbscriptgood"

（D）"vbscriptgood"

8．下面哪个函数可以返回当前的日期和时间：

（A）

（A）Now（B）Date（C）Time（D）DateTime

9．对于利用Dima（4,5）语句定义的二维数组，Ubound（a,1）将返回（B）

（A）0（B）4（C）5（D）6

10．对于Request对象，如果省略获取方法，如Request（“user_name”），将按什么顺序依次检查是否有信息传入：

（B）

（A）Form、QueryString、Cookies、ServerVariables、ClientCertificate

（B）QueryString、Form、Cookies、ServerVariables、ClientCertificate

（C）Cookies、QueryString、Form、ServerVariables、ClientCertificate

（D）Form、QueryString、Cookies、ServerVariables、ClientCertificate

11．下面哪条语句可以返回访问者的IP地址（A）

（A）Request.ServerVariables（"REMOTE_ADDR"）

（B）Request.ServerVariables（"REMOTE_IP"）

（C）Request.ClientCertificate（"REMOTE_ADDR"）

（D）Request.ClientCertificate（"REMOTE_IP"）

12．执行完如下语句后，页面上显示的内容为：

（A）

<%

Response.Write"A"

Response.End

Response.Write"B"

%>

C

（A）A（B）AB（C）AC（D）ABC

13．请问下面程序段执行完毕，页面上显示内容是什么：

（C）

<%

Response.Write“新浪”

%>

（A）新浪（B）新浪

（C）新浪（超链接）（D）该句有错，无法正常输出

14．Session对象的默认有效期为多少分钟？

（C）

（A）10（B）15（C）20（D）应用程序从启动到结束

15．请问下面程序段执行完毕，页面上显示内容是什么：

（B）

<%

Response.WriteServer.HTMLEncode（“新浪”）

%>

（A）新浪（B）新浪

（C）新浪（超链接）（D）该句有错，无法正常输出

16．当使用事务处理时，假如要提交事务处理，应该利用如下方法：

（C）

（A）BeginTrans（B）EndTrans

（C）CommitTrans（D）RollBackTrans

17．如果刚打开了一个含有1条记录的记录集，那么Bof的值为（C）

（A）1（B）True（C）False（D）NULL

18．使用W3Jmail组件发送E-mail时，附件必须位于（B）

（A）客户端（B）服务器端

（C）服务器端和客户端（D）服务器端或客户端

19．对于文件上传组件，如果希望获取上传文件的大小，应该怎样用？

（A）

（A）Upload.Files（"upfile"）.Size

（B）Upload.Form（"upfile"）.Size

（C）Request.Files（"upfile"）.Size

（D）Request.Form（"upfile"）.Size

20．对于如下的文件超链接组件中使用的超链接数据文件，文件路径和说明之间应该用（B）隔开。

webcourse/www_1.htm第一讲利用工具软件制作网页

webcourse/www_2.htm第二讲网页制作高级功能

webcourse/www_3.htm第三讲利用源代码开发网页

（A）空格（B）Tab（C） （D）Space

二、填空题（每空1分，共40分）

1.ASP文件就是在普通的HTML文件中插入VBScript或JavaScript脚本语言。

2.如果操作系统是Windows2000，一般需要安装IIS组件才能运行ASP程序。

3.执行完a=Left（"vbscript",2）&Mid（"vbscript",3,4）&Right（"vbscript",2）后，a的值为vbscript。

4.语句a=DateAdd（"d",10,Date（））将返回10天后是几号。

5.语句b=Int（10*Rnd或Rndc）+1）将返回1到10之间的随机整数。

6.在文件开头添加<%OptionExplicit%语句后，则所有的变量都必须先声明才能使用。

7.在数据库的表中，纵的一行叫做一个字段，横的一行叫做一个记录。

8.原来用一个数组users保存学生名单，现在新转来一位同学“张峰”，需要将其名字添加到该数组中，请填写下面程序段中的空格。

<%

Dimusers（）

Redimusers（40）

users（0）="王军"

users

（1）="李俊"

……

RedimPreserveusers（41）

users（41）="张峰"

%>

9.下面是一个函数，用来返回从a到b的立方和，请填写其中的空格。

<%

FunctionCube（a,b）

DimI,Sum

Sum=0

ForI=aTob

Sum=Sum+I^3

Next

Cube=Sum

EndFunction

%>

10.下面这段语句，将根据今天是星期几，分别在页面上显示一幅图片，星期一、二显示p1.jpg，其它时间显示p2.jpg。

请填写完整下面的程序。

<%

Dimtheda

theday=Weekday（Date（））

SelectCasetheday

Case2,3

Response.Write""

CaseElse

Response.Write""

EndSelect

%>

11.很多网站要求客户必须登录后才能访问，如果客户没有登录，就直接访问网站的某个页面，应该将其引导到首页。

请据此填写下面的空格。

<%

IfSession（"UserName"）=Response.RedirectThen"index.asp"

EndIf

%>

12.下面的程序段用来计算客户是第几次访问本站。

请填写其中的空格。

<%

DimvarNumber

varNumber=Request.Cookies（"number"）

IfVarNumber=””Then

varNumber=1

Else

varNumber=varNumber+1

EndIf

.Response.Cookies（“number”）=varNumber

Response.Cookies（“number”）.Expires=#2030-1-1#

Response.Write"您是第"&varNumber&"次访问本站"

%>

13.假如Application（"UserOnLine"）中保存了一个数组，该数组中保存了在线用户的名称，下面的程序段从其中读取所有用户名，并显示在页面上，请填写其中的空格。

<%

DimUserOnLine,Number

UserOnLine=Application（"UserOnLine"）

Number=Ubound（UserOnLine）'返回该数组的最大下标

ForI=0ToNumber

Response.WriteUserOnLine（I）

Next

%>

14.对于如下图的数据表link，请填写下面的SQL语句中的空格：

图1

查询2003年1月1日到2004年1月1日之间的提交的网站，并按提交日期将序排列

strSql="Select*FromlinkWheresubmit_dateBetween#2003-1-1#And#2004-1-1#OrderBysubmit_dateDesc"

查询2004年1月1日以后提交的网站总数目

strSql="SelectCount（*）AsTotalFromlinkWheresubmit_date>#2004-1-1#"

15.针对上面图1所示，下面要在页面上按提交日期降序排列所有的网站，请填写下面程序段中的空格。

假设数据库文件wwwlink.mdb和本文件存放在同一个文件夹下，数据表名为link。

<%

'以下连接数据库

Dimdb

Setdb=Server.CreateObject（"ADODB.Connection"）

1．db.Open"Dbq="&Server.Mappath（"wwwlink.mdb"）&";Driver={MicrosoftAccessDriver"Dbq="&Server.Mappath（"wwwlink.mdb"）&";Driver={MicrosoftAccessDriver（*.mdb）}"

（*.mdb）}"

'以下建立记录集

DimstrSql,rs

strSql="Select*FromlinkOrderBySubmit_dateDesc"

setrs=db.execute（strsql）

'以下显示数据库记录

DoWhileNotrs.Eof

%>

<%

rs.MoveNext

Loop

%>

16.针对上面图1所示，下面是分页显示所有网站的名称的语句，每页显示10条记录，请填写其中的空格。

<%

Dimdb,rs,strSql

'建立Connection对象

Setdb=Server.CreateObject（"ADODB.Connection"）

db.Open"Dsn=addr"'这里利用数据源连接

'建立Recordset对象

Setrs=Server.CreateObject（"ADODB.Recordset"）

strSql="Select*FromusersorderbynameAsc"

rs.OpenstrSql,db,1

'如果记录集不是空的，就执行分页显示

IfNotrs.BofAndNotrs.EofThen

'下面一段判断当前显示第几页，如是第一次打开，为1，否则由传回参数决定

Dimpage_no

IfRequest.QueryString（"page_no"）=""Then

page_no=1

Else

page_no=CInt（Request.QueryString（"page_no"））

EndIf

'下面一段开始分页显示，指向要显示的页，然后逐条显示当前页的所有记录。

rs.PageSize=10

rs.AbsolutePage=page_no

DimI

I=10

DoWhileAnd

I=I-1

Response.Writers（"name"）&"
"

rs.MoveNext

Loop

'下面一段在下方显示页数信息，从1到总页数循环

......

Else

Response.Write"该记录集为空"

EndIf

%>

17.下面这段程序，打开本文件夹下的文本文件test.txt，并读取其中所有的内容显示在页面上，请填写其中的空格。

<%

Dimfso

Setfso=Server.CreateObject（"Scripting.FileSystemObject"）

DimTextFile

SetTextFile=fso.（Server.MapPath（"test.txt"）

DoWhileNotTextFile.

Response.WriteTextFile.ReadLine

Response.Write"
"

Loop

%>

三、编程题（每空10分，共30分）

1．请编写代码，在页面上显示如下图形。

注意：

只要写出主要代码即可

**********

*********

********

*******

******

*****

****

***

**

*

2．利用Recodset对象也可以插入记录，现在针对图1所示的数据表，利用插入一条记录：

其中网站名称为“搜狐”，网站地址为“”，网站简介为“门户网站”，提交日期为当天。

注意：

只给出主要代码即可，程序的开头部分已经给出。

<%

Dimdb,strConn

strConn="Dbq="&Server.Mappath（"address.mdb"）&";Driver={MicrosoftAccessDriver（*.mdb）}"

Setdb=Server.CreateObject（"ADODB.Connection"）

3．针对图1，现在有两个文件add_form.asp和add.asp，这两个文件用来向表中添加记录，add_form.asp已经给出，请你完成add.asp。

要求：

（1）只要完成添加记录的主要代码；

（2）网站简介（intro）可以省略，其它字段均不可以省略。

Add_form.asp

网站名称

网站地址

网站简介

add.asp（请在下面完成add.asp，开头部分语句和最后一条语句已经给出，只要在中间添加语句即可）

<%OptionExplicit%>

<%

IfRequest.Form（"name"）<>""AndRequest.Form（"URL"）<>""Then

'以下连上数据库，建立一个Connection对象实例db

Dimdb

Setdb=Server.CreateObject（"ADODB.Connection"）

db.Open"Dbq="&Server.Mappath（"wwwlink.mdb"）&";Driver={MicrosoftAccessDriver（*.mdb）};"

EndIf

%>

一、选择题（每小题2分，共30分）

1．小王正在家里通过拨号上网访问搜狐网站，此时谁是服务器端，谁是客户端？

（B）

（A）小王的机器是服务器端，搜狐网站是客户端（B）搜狐网站是服务器端，小王的机器是客户端（C）小王的机器既是服务器端，又是客户端（D）以上说法全不对

2．某同学开发了一个显示来访时间的ASP文件，存放在C:

\inetpub\wwwroot下，请问此时如果在资源管理器中双击该文件，该文件可以正常显示吗？

（B）

（A）可以（B）不可以

3．下列哪个变量名称是正确的？

（C）

（A）111（B）_sum（C）ab_1（D）a?

b

4．执行完如下语句后，a的值为：

（C）

<%

Dima

a=FormatNumber（10.223344,3）

%>

（A）10.223344（B）10.2（C）10.223（D）10.000

5．下列哪个函数可以将数值转换为字符串？

（C）

（A）Cdate（B）Cint（C）CStr（D）CDbl

6．请问Int（3.45）和Int（-3.45）的值分别是什么？

（D）

（A）4、-4（B）3、-4（C）3、3（D）3、-3

7．执行完如下语句后，sum的值为?

（C）

<%

Dimsum,I

Sum=0

I=1

DoWhileI<=10

Sum=sum+I

I=I+1

If（IMod5=0）then

Exitdo

Endif

Loop

<%

（A）55（B）15（C）10（D）45

8．下列几个是Response对象的方法，哪个是用来输出二进制信息的。

（B）

（A）BinaryRead（B）BinaryWrite（C）Flush（D）Write

9．Aplication对象的默认有效期为多少分钟？

（D）

（A）10（B）15（C）20（D）应用程序从启动到结束

10．问下面程序段执行完毕，页面上显示的内容是什么？

（A）

<%

DimstrTemp

StrTemp=”user_name”

Session（“strTemp”）=”王刚”

Session（strTemp）=”张红”

Response.WriteSession（“user_name”）

%>

（A）张红（B）王刚（C）王刚张红（D）语法有错，无法正常输出

11．如有一个数据库，其中有表table，包括3个字段name（文本型）、grade（数字型）、birthday（日期/时间型），请问下面哪句能正确执行？

（A）

（其中varName=”林亚”varGrade=98varBirthday=#1983-1-1#）

（A）.strSql="InsertIntotable（name,grade,intro）Values（'"&varName&"',"&varGrade&",#"&varBirthday&"#）"

（B）.strSql="InsertIntotable（name,grade,intro）Values（'"&varName&"','"&varGrade&"',#"&varBirthday&"#）"

（C）.strSql="InsertIntotable（name,grade,intro）Values（'"&varName&"',"&varGrade&","&varBirthday&"）"

（D）.strSql="InsertIntotable（name,grade,intro）Values（'varName',varGrade,#varBirthday#）"

12．问下面程序段执行完毕，页面上显示内容是什么：

（B）

<%

Response.WriteServer.HTMLEncode（“新浪”）

%>

（A）新浪（B）新浪

（C）新浪（超链接）（D）该句有错，无法正常输出

13．使用事务处理时，假如要回滚事务处理，应该利用如下方法：

（D）

（A）BeginTrans（B）EndTrans

（C）CommitTrans（D）RollBackTrans

14．设定义了记录集rs,如果希望打开的记录集可以前后移动指针，并且可读可写，则应该为下面哪一句？

（B）

（A）rs.OpenstrSql,db（