动态网页复习题3.docx

动态网页复习题3.docx

《动态网页复习题3.docx》由会员分享，可在线阅读，更多相关《动态网页复习题3.docx（13页珍藏版）》请在冰豆网上搜索。

动态网页复习题3

动态网页制作期末复习题三

一、选择题

1．请判断下列语句执行完毕后，a、b、c的值

<%

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的类型为

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

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

<%

Dima

a=3

a=a+1

%>

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

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

<%

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的值为：

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

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

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

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

（A）"vbscriptgood"

（B）"vbscriptgood"

（C）"vbscriptgood"

（D）"vbscriptgood"

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

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

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

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

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

（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）Request.ServerVariables（"REMOTE_ADDR"）

（B）Request.ServerVariables（"REMOTE_IP"）

（C）Request.ClientCertificate（"REMOTE_ADDR"）

（D）Request.ClientCertificate（"REMOTE_IP"）

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

<%

Response.Write"A"

Response.End

Response.Write"B"

%>

C

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

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

<%

Response.Write“新浪”

%>

（A）新浪（B）新浪

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

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

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

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

<%

Response.WriteServer.HTMLEncode（“新浪”）

%>

（A）新浪（B）新浪

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

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

（A）BeginTrans（B）EndTrans

（C）CommitTrans（D）RollBackTrans

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

二、填空题

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

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

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

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

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

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

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

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

<%

Dimusers（）

Redimusers（40）

users（0）="王军"

users

（1）="李俊"

……

Redimusers（41）

users（41）="张峰"

%>

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

<%

FunctionCube（a,b）

DimI,Sum

Sum=

ForI=aTob

Sum=

Next

=Sum

EndFunction

%>

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

请填写完整下面的程序。

<%

Dimtheday

theday=（Date（））

SelectCasetheday

Case

""

CaseElse

""

EndSelect

%>

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

请据此填写下面的空格。

<%

IfSession（"UserName"）=Then

"index.asp"

EndIf

%>

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

请填写其中的空格。

<%

DimvarNumber

varNumber=Request.Cookies（"number"）

IfThen

varNumber=1

Else

varNumber=varNumber+1

EndIf

.=varNumber

.=#2030-1-1#

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

%>

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

<%

DimUserOnLine,Number

UserOnLine=Application（"UserOnLine"）

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

ForI=0ToNumber

Response.Write

Next

%>

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

网站名

网站地址

网站简介

提交日期

Baidu

门户网站

2009-1-2

图1

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

strSql="Select*FromlinkWheresubmit_date#2003-1-1#And#2004-1-1#OrderBysubmit_date"

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

strSql="SelectAsTotalFromlinkWheresubmit_date>#2004-1-1#"

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

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

<%

'以下连接数据库

Dimdb

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

db.Open

'以下建立记录集

DimstrSql,rs

strSql=

setrs=db.execute（strsql）

'以下显示数据库记录

DoWhile

%>

<%

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.Open

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

IfThen

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

Dimpage_no

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

page_no=1

Else

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

EndIf

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

rs.=10

rs.=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

%>

三、编程题

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

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

注意：

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

<%

Dimdb,strConn

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

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

2．针对图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

%>

参考答案

一．选择题

BBDCBABABBAACCBCCBAB

二．填空题

1． VBScript

2． IIS

3． “vbscript”

4． d

5． Rnd或Rnd（）

6． <%OptionExplicit%>

7． 字段

记录

8． Preserve（说明：

这样就可以保留原有数据，否则就不能保留）

9． 0

Sum+I^3

Cube

10．             Weekday

2,3

Response.Write

Response.Write

11．             “”

Response.Redirect

12．             VarNumber=””

Response.Cookies（“number”）

Response.Cookies（“number”）.Expires

13．             Ubound

UserOnLine（I）

14．             Between

Desc

Count（*）

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

"Select*FromlinkOrderBySubmit_dateDesc"

Notrs.Eof

<%=rs（"URL"）%>

rs.MoveNext

16．             strSql,db,1

Notrs.BofAndNotrs.Eof

CInt

PageSize

AbsolutePage

Notrs.Eof

I>0

17．             OpenTextFile

AtEndOfStream

三．编程题

1．

<%

Dimdb,strConn

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

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

'建立Recordset对象

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

strSql="Select*Fromlink"

rs.OpenstrSql,db,0,2

'添加记录

rs.AddNew

rs（"name"）="搜狐"

rs（"url"）=""

rs（"intro"）="门户网站"

rs（"submit_date"）=Date（）

rs.Update

%>

2．

<%

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）};"

Dimsqla,sqlb,strSql

sqla="InsertIntolink（name,url,submit_date"

sqlb="Values（'"&Request.Form（"name"）&"','"&Request.Form（"url"）&"',#"&Date（）&"#"

IfRequest.Form（"intro"）<>""Then

sqla=sqla&",intro"

sqlb=sqlb&",'"&Request.Form（"intro"）&"'"

EndIf

strSql=sqla&"）"&sqlb&"）"

db.Execute（strSql）

EndIf

%