网络程序设计 - ASP模拟试卷

网络程序设计——ASP模拟试卷

目 录

ASP模拟试卷（一） ...................................................................................................................... 2 ASP模拟试卷（一）参考答案 .................................................................................................... 10 ASP模拟试卷（二） .................................................................................................................... 13 ASP模拟试卷（二）参考答案 .................................................................................................... 18 ASP模拟试卷（三） .................................................................................................................... 22 ASP模拟试卷（三）参考答案 .................................................................................................... 26 ASP模拟试卷（四） .................................................................................................................... 28 ASP模拟试卷（四）参考答案 .................................................................................................... 31 ASP模拟试卷（五） .................................................................................................................... 35 ASP模拟试卷（五）参考答案 .................................................................................................... 39

ASP模拟试卷（一）

考试日期： 考试时间：

考生信息：

系 别___________学 号_____________姓 名_____________笔试成绩_____________

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

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

<%

a=\b=\c=\%>

(A) \ (B) 2,\ (C) \ (D) \

2．执行完语句a=\，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 a(I)=I

Sum=Sum+a(I) Next %>

(A) 0 (B) 5 (C) 15 (D) 20

5．执行完 a=5 Mod 3 语句后，a的值为：C B

(A) 0 (B) 2 (C) 3 (D) 5

2

6．执行完 a=5>3 And \ 语句后，a的值为：A

(A) True (B) False (C) 1 (D) 0

7．下面 a=Trim(\ vbscript\ & Rtrim(\ good\ 语句后，a的值：B

(A) \ vbscript good\ (B) \ good\ (C) \ vbscriptgood\(D) \

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

(A) Now (B) Date (C) Time (D) DateTime

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

(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 （C）Cookies、QueryString、Form、Server Variables、ClientCertificate （D）Form、QueryString、Cookies、Server Variables、ClientCertificate

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

(A) Request.ServerVariables(\(B) Request.ServerVariables(\

(C) Request.ClientCertificate(\(D) Request.ClientCertificate (\

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

<%

Response.Write \Response.End

Response.Write \%> C

(A) A (B) AB (C) AC (D) ABC

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

<%

Response.Write “新浪” %>

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

3

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

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

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

<%

Response.Write Server.HTMLEncode(“新浪”) %>

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

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

(A) BeginTrans (B) EndTrans (C) CommitTrans (D) RollBackTrans

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

(A) 1 (B) True (C) False (D) NULL

18．使用W3 Jmail组件发送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．对于如下的文件超链接组件中使用的超链接数据文件，文件路径和说明之间应该用（ C 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. 如果操作系统是Windows 2000，一般需要安装 IIS 组件才能运行ASP程序。 3. 执行完 a= Left(\& Mid(\& Right(\ 后，a的值

为 。

4. 语句 a=DateAdd(\ \将返回10天后是几号。 5. 语句 b=Int(10 * ) +1) 将返回1到10之间的随机整数。

6. 在文件开头添加 语句后，则所有的变量都必须先声明才能使用。 7. 在数据库的表中，纵的一行叫做一个 ，横的一行叫做一个 。

4

8. 原来用一个数组users保存学生名单，现在新转来一位同学“张峰”，需要将其名字添

加到该数组中，请填写下面程序段中的空格。 <%

Dim users() Redim users(40) users(0)=\王军%users(1)=\李俊\??

Redim users(41) users(41)=\张峰\%>

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

<%

Function Cube(a,b) Dim I,Sum

Sum= For I= a To b Sum= Next

=Sum End Function %>

10. 下面这段语句，将根据今天是星期几，分别在页面上显示一幅图片，星期一、二显示

p1.jpg，其它时间显示p2.jpg。请填写完整下面的程序。 <%

Dim theday

theday= (Date()) Select Case theday Case \Case Else \End Select %>

11. 很多网站要求客户必须登录后才能访问，如果客户没有登录，就直接访问网站的某个页

面，应该将其引导到首页。请据此填写下面的空格。 <%

If Session(\ Then \End If %>

12. 下面的程序段用来计算客户是第几次访问本站。请填写其中的空格。

<%

Dim varNumber

5

varNumber=Request.Cookies(\If Then varNumber=1 Else varNumber=varNumber+1 End If

. =varNumber . =#2030-1-1#

Response.Write \您是第\次访问本站\%>

13. 假如Application(\中保存了一个数组，该数组中保存了在线用户的名称，

下面的程序段从其中读取所有用户名，并显示在页面上，请填写其中的空格。 <%

Dim UserOnLine,Number

UserOnLine=Application(\

Number= (UserOnLine) '返回该数组的最大下标 For I=0 To Number Response.Write Next %>

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

图1

查询2003年1月1日到2004年1月1日之间的提交的网站，并按提交日期将序排列 strSql=\* From link Where submit_date #2003-1-1# And #2004-1-1# Order By submit_date \查询2004年1月1日以后提交的网站总数目

strSql=\ As Total From link Where submit_date > #2004-1-1#\15. 针对上面图1所示，下面要在页面上按提交日期降序排列所有的网站，请填写下面程序

段中的空格。假设数据库文件wwwlink.mdb和本文件存放在同一个文件夹下，数据表名为link。 网站名称网站地址提交日期 <% '以下连接数据库 Dim db Set db=Server.CreateObject(\

6

16.

db.Open '以下建立记录集 Dim strSql,rs strSql= set rs=db.execute(strsql) '以下显示数据库记录 Do While %> <%=rs(\ <%=rs(\ <% Loop %>

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

Dim db,rs,strSql

'建立Connection对象

Set db=Server.CreateObject(\

db.Open \ '这里利用数据源连接 '建立Recordset对象

Set rs=Server.CreateObject(\strSql =\

rs.Open '如果记录集不是空的，就执行分页显示 If Then '下面一段判断当前显示第几页，如是第一次打开，为1，否则由传回参数决定 Dim page_no If Request.QueryString(\ page_no=1 Else page_no= (Request.QueryString (\ End If '下面一段开始分页显示，指向要显示的页，然后逐条显示当前页的所有记录。 rs. =10 rs. =page_no Dim I I=10 Do While And

7

I=I-1 Response.Write rs(\ rs.MoveNext Loop

'下面一段在下方显示页数信息，从1到总页数循环 ...... Else Response.Write \该记录集为空\ End If %>

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

上，请填写其中的空格。 <% Dim fso Set fso=Server.CreateObject(\ Dim TextFile Set TextFile= fso. (Server.MapPath(\ Do While Not TextFile. Response.Write TextFile.ReadLine Response.Write \ Loop %>

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

1．请编写代码，在页面上显示如下图形。注意：只要写出主要代码即可 ********** ********* ******** ******* ****** ***** **** *** ** *

2．利用Recodset对象也可以插入记录，现在针对图1所示的数据表，利用插入一条记录：其中网站名称为“搜狐”，网站地址为“www.sohu.com”，网站简介为“门户网站”，提交日期为当天。

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

8

Dim db, strConn strConn=\& Server.Mappath(\& \Access Driver (*.mdb)}\ Set db=Server.CreateObject(\

3．针对图1，现在有两个文件add_form.asp和add.asp，这两个文件用来向表中添加记录，add_form.asp已经给出，请你完成add.asp。要求：（1）只要完成添加记录的主要代码；（2）网站简介（intro）可以省略，其它字段均不可以省略。

Add_form.asp

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

<% Option Explicit %> <%

If Request.Form(\ '以下连上数据库，建立一个Connection对象实例db Dim db Set db=Server.CreateObject(\ db.Open \(*.mdb)};\

End If %>

9

ASP模拟试卷（一）参考答案

一．选择题（每题2分，共40分）

BBDCB ABABB AACCB CCBAB

二．填空题（每题1分，共40分） 1． VBScript 2． IIS

3． “vbscript” 4． d

5． Rnd或Rnd()

6． <% Option Explicit %> 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(\& \Access (*.mdb)}\

\Not rs.Eof

<%=rs(\rs.MoveNext 16． strSql,db,1

Not rs.Bof And Not rs.Eof CInt PageSize

10

Driver

28. 对于W3 Jmail邮件发送组件，如果信箱是jjshang99@163.com，密码是123456，发信

服务器是smtp.163.dom。请写出执行发送邮件的语句

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

图1

查询提交日期大于2003-1-1的前三条数据记录，并按提交日期的降序排列

strSql=\ * From link Where submit_date #2003-1-1# Order By submit_date \查询网站名字中有“网”字的记录

strSql=\ “

30. 针对上面图1所示，下列程序将完成对link表中内容的更新，所需要更新的字段假设

已经从另外一个表单文件中取得，另假设数据库文件wwwlink.mdb和本文件存放在同一个文件夹下，请填写下面程序段中的空格。，数据表名为link。

网站名称网站地址提交日期 <%

?以下获得所要修改记录的link_id

Dim varLink_id

varLink _id =Request.QueryString(“link_id”)

'以下连接数据库 Dim db

Set db=Server.CreateObject(\ db.Open

?以下为获取修改字段

Dim varName,varUrl,varIntro,varSubmit_date varName=Request.Form(“name”)

varUrl =Request.Form(“url”) varIntro =Request.Form(“intro”)

varSubmit_date =Request.Form(“submit_date”)

?以下strSql为更新语句

Dim strSql,

strSql=” Where link_id=” & varLink_id

16

'以下是执行更新语句

Response.Redirect “index.asp” %>

?更新完数据后返回首页

14．下面是利用文件存取组件完成新建一个文本文件test.txt的过程，请填写其中的空格。

<%

Dim FileObject '声明一个FileSystemObject对象实例 FileObject=Server.CreateObject(\ Dim TextFile '声明一个TextStream对象实例 TextFile= FileObject.CreateTextFile(\ '向文件中写一行内容，内容为“欢迎您”

TextFile.Close '关闭TextStream对象 Response.Write \已经成功建立文件，请自己打开查看。\%>

三、编程题（（第一题8分，第二题8分，第三题12分）

1．有100个和尚吃100个馒头，大和尚1人吃4个，小和尚4人吃1个，问有多少个大和尚和多少个小和尚？

2．请使用ASP提供的计数器组件，在页面上显示“您是第”X “位访客”。（只要写出主要代码即可）

3．假设有数据库address,内有表link,该表中包含字段：姓名（name varchar(50)）,电话(tel varchar(20)),email(email varchar(50))，请分页将link表中的数据显示出来，且每页显示记录8条。

17

ASP模拟试卷（二）参考答案

一．选择题（每题2分，共40分） BBCCC DCBDA ABDBC

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

18． Const 19． isNumeric

20． Sub子程序 、Function 函数 21． 8 22． “d”

23． On Error Resume Next

24． Response 、Request、Session、Applicatio、Server 25． Response.Cookies(“user_name”).Expires 26． 20 、Timeout 27． ScriptTimeout

28． Jmail.send(\ 29． top 3 、 > 、desc

30． \Dbq=\& Server.Mappath(\& \Access Driver

(*.mdb)}\

Update link Set name=?”&varName& “?, url=?”&varUrl& “? , intro=?”&varIntro& “?,submit_date=#”&varName& “# Db.Execute(strSql) name like ?%网%? 31． Set Set

TextFile.WriteLine(\欢迎您\

三．编程题（第一题10分，第二题20分） 1．

<%

Dim I,J,ren,mantou

For I=1 To 100 '大和尚从1到100循环

For J=1 To 100 '小和尚从1到100循环

ren=I+J '计算总人数 mantou=I*4+J*0.25 '计算总馒头数

18

%>

If ren=100 And mantou=100 Then

Response.write\大人=\小孩=\End If

Next

Next 2．<% 3． <% %>

Dim count '声明一个组件实例变量 Set count=Server.CreateObject(\

count.PageHit() '将当前网页访问次数加1 Dim visit_number

visit_number=count.Hits() '获取当前网页访问次数 Response.Write \您是第\位访客\%>

<% Option Explicit %> Dim db, strCon

strCon =\Access Driver Set db=Server.CreateObject(\db.Open strCon

(*.mdb)}\

<%

'先输出表格的标题栏 %>

姓名

19

<%

电话 email

'建立Recordset对象 Dim rs,strSql

Set rs=Server.CreateObject(\

strSql =\ '以姓名为序排列

rs.Open strSql,db,1 '因为要分页显示，所以用键盘指针 '下面查询记录，如果非空就显示记录，如果是空的，给出提示信息 If rs.Bof Or rs.Eof Then

Response.Write \现在还没有数据\ '以下主要为了分页显示

Dim page_size '定义每页多少条记录变量 Dim page_no '定义当前是第几页变量 Dim page_total '定义总页数变量 page_size=8 '每页显示10条记录 '如果第一次打开，则page_no为1，否则由传回的参数决定 If Request.QueryString(\ Else

page_no=Cint(Request.QueryString (\ '用Cint将字符串变为整数 End If

rs.PageSize=page_size '设置每页多少条记录 page_total=rs.PageCount '返回总页数 rs.AbsolutePage=page_no '设置当前显示第几页 '下面一段利用表格显示当前页的所有记录 Dim I

I=page_size '该变量用来控制显示当前页记录 Do While Not rs.Eof And I>0 '循环直到当前页结束或文件结尾

I=I-1

'下面将利用表格输出名单

Response.Write \Response.Write \Response.Write \

Response.Write \href='mailto:\& rs(\& \& rs(\& Response.Write \rs.MoveNext page_no=1

Else

\

Loop

20

Function pingfanghe (a,b) 'a和b是形式参数 Dim sum

sum=a^2+b^2

pingfanghe=sum '赋值给函数名，很重要 End Function %>

<三>、

<%

Dim db,rs,strSql '建立Connection对象

Set db=Server.CreateObject(\

db.Open \连接

'建立Recordset对象

Set rs=Server.CreateObject(\ strSql =\

rs.Open strSql,db,0,2 '定类型为可以修改 '添加记录 rs.AddNew

rs(\李玫\ rs(\ rs(\ rs.Update

rs(\李梅\ rs(\ rs(\ rs.Update

rs.Close %>

====（全书完）====

41

这里利用数据源注意参数，锁

本文来源：https://www.bwwdw.com/article/1942.html