网络程序设计模拟试卷（5份及答案）

ASP模拟试卷（一）

考试日期： 考试时间：

考生信息：

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

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

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

<%

a=\b=\

c=\%>

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

2．执行完语句a=\，a的类型为

(A) 数值型 (B) 字符串型 (C) 布尔型 (D) 日期型

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

<% Dim a a=3 a=a+1 %>

(A) 0 (B) 1 (C) 3 (D) 4

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

<%

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

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

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

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

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

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

(D) \

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

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

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

(A) 0 (B) 4 (C) 5 (D) 6

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

（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地址

(A) Request.ServerVariables(\(B) Request.ServerVariables(\(C) Request.ClientCertificate(\(D) Request.ClientCertificate (\

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

<%

Response.Write \Response.End Response.Write \%>

C

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

13．请问下面程序段执行完毕，页面上显示内容是什么： <% Response.Write “新浪” %>

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

2

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

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

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

Response.Write Server.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．使用W3 Jmail组件发送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分，共40分）

1. ASP文件就是在普通的HTML文件中插入 或JavaScript脚本语言。 2. 如果操作系统是Windows 2000，一般需要安装 组件才能运行ASP程序。 3. 执行完 a= Left(\& Mid(\& Right(\ 后，a的值为 。

4. 语句 a=DateAdd(\ \将返回10天后是几号。

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

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

3

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

4

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(\

5

db.Open '以下建立记录集

Dim strSql,rs

strSql= set rs=db.execute(strsql) '以下显示数据库记录

Do While %>

<%=rs(\

<%=rs(\

<%

Loop

%>

16. 针对上面图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

6

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”，网站简介为“门户网站”，提交日期为当天。

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

<%

7

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 %>

8

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．\& Server.Mappath(\& \Access (*.mdb)}\

\Not rs.Eof

<%=rs(\rs.MoveNext

16．strSql,db,1

Not rs.Bof And Not rs.Eof

CInt PageSize

9

Driver

AbsolutePage Not rs.Eof I>0

17．OpenTextFile

AtEndOfStream

三．编程题（每题10分，共30分） 1．

<%

Dim I,J

For I=10 To 1 Step -1 For J=1 To I

Response.Write \ Next

Response.Write \Next %> 2．

<%

Dim db, strConn strConn=\& Server.Mappath(\& \Access Driver (*.mdb)}\ Set db=Server.CreateObject(\ '建立Recordset对象 3．

Set rs=Server.CreateObject(\strSql =\rs.Open strSql,db,0,2 '添加记录 rs.AddNew

rs(\搜狐\rs(\rs(\门户网站\rs(\rs.Update %>

<%

If Request.Form(\ '以下连上数据库，建立一个Connection对象实例db

Dim db

Set db=Server.CreateObject(\

10

db.Open \& Server.Mappath(\& \Access

Driver (*.mdb)};\ Dim sqla,sqlb,strSql sqla=\ sqlb=\Values('\& Request.Form(\& \& Request.Form(\& \& Date() & \ If Request.Form(\

sqla=sqla & \

sqlb=sqlb & \

End If

strSql=sqla & \

db.Execute(strSql)

End If

%>

11

ASP模拟试卷（二）

考试日期： 考试时间：

考生信息：

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

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

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

(A)

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

2．某同学开发了一个显示来访时间的ASP文件，存放在C:\\inetpub\\wwwroot下，请问此时如果在资源管理器中双击该文件，该文件可以正常显示吗？

(A) 可以 (B) 不可以

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

(A) 111 (B) _sum (C) ab_1 (D)a?b

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

<%

Dim a

a=FormatNumber(10.223344,3)

%>

(A) 10.223344 (B) 10.2 (C) 10.223 (D) 10.000

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

(A) Cdate (B)Cint (C) CStr (D) CDbl

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

(A) 4、-4 (B)3、-4 (C) 3、3 (D) 3、-3

7． 执行完如下语句后，sum的值为? <% Dim sum,I Sum=0 I=1

Do While I<=10

12

<%

Sum=sum+I I=I+1

If (I Mod 5=0) then Exit do End if

Loop

(A) 55 (B) 15 (C) 10 (D) 45

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

(A) BinaryRead (B) BinaryWrite (C) Flush (D) Write

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

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

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

<%

Dim strTemp StrTemp=”user_name” Session(“strTemp”)=”王刚” Session(strTemp)=”张红”

Response.Write Session(“user_name”)

%>

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

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

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

(A). strSql=\Into table(name,grade,intro) Values('\varName & \\& varGrade & \

(B). strSql=\alues('\\

(C). strSql=\alues('\\

(D).strSql=\alues('varName', varGrade,# var Birthday#)\

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

<%

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

13

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

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

(A) BeginTrans (B) EndTrans

(C) CommitTrans (D) RollBackTrans

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

(A) rs.Open strSql,db (B)rs.Open strSql,db,1,3

(C)rs.Open strSql,db,,3 (D)rs.Open strSql,db,1

15．在使用下载组件时，若下载组件是dll文件形式（test.dll），并且我们将该文件存放到C:\\temp\\test.dll下，则注册时还要在运行窗口输入（ ）

(A) Run C:\\temp\\test.dll (B) Run test.dll (C) Regsvr32 C:\\temp\\test.dll (D) Regsvr32 test.dll

二、填空题（每空3分，共42分）

18. VBScript 中用关键字 来声明常量。

19. 在VBScript中，我们用检验函数 来判断变量是数字类型。

20. 在VBScript 中，过程有两种，一种是Sub子程序，一种是Function 函数，两者的区别

在于 只执行程序而不返回值，而 可以将执行代码后的结果返回给请求程序。

21. 执行完 a= InStr(“ jjshang@263.net”,”@”)后，a的值为 。

22. 语句 a=DateDiff( ,Date(),#1/1/2006#) 将返回离2006年元旦还有多少天。 23. 在执行程序时，有时我们不希望因为程序发生错误而导致程序终止，也不希望将错误暴

露在访问者的面前，这时我们就要用到容错语句 ,这条语句

表示，如果碰到错误，就跳过去继续执行下一句。

24. ASP的五大内部对象包括 、 、 、 、 25. 下面的程序段用Cookies来完成设置关键字user_name的值和有效期，请填写其中的空

格。

<%

Response.Cookies(“user_name”)=“高航”

=#2005-10-1# ?设置关键字user_name的有效期 %>

26. Session对象有它的有效期，默认为 分钟，另外，我们可以利用Session的一个

属性 可以修改Session对象的有效期时长。

27. Server对象有一个属性 ，可以用来设定脚本文件的最长执行时间，其

默认值为90秒。

14

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

15

'以下是执行更新语句

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条。

16

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．\& 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 '计算总馒头数

17

If ren=100 And mantou=100 Then

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

Next Next %>

2．<% Dim count '声明一个组件实例变量 3． <%

Dim db, strCon

strCon =\Access Driver <% Option Explicit %>

Set count=Server.CreateObject(\

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

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

(*.mdb)}\ Set db=Server.CreateObject(\

db.Open strCon %>

<%

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

姓名

18

电话 email

<%

'建立Recordset对象 Dim rs,strSql

Set rs=Server.CreateObject(\

strSql =\ '以姓名为序排列

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

'以下主要为了分页显示

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

\

Loop

19

Response.Write \ '表格结束 Response.Write \请选择数据页: \

'输出有关页数信息，从1到总页数循环，如不是当前页，就加上超链接 For I=1 To page_total If I=page_no Then

Else

Response.Write \href='index.asp?page_no=\& I & \& I & Response.Write I & \

\

End If

Next End If '关闭对象 rs.Close Set rs=nothing db.Close Set db=nothing %>

20

ASP模拟试卷（三）

考试日期： 考试时间：

考生信息：

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

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

（1）left(“asp.net”,4)的值为（ ）

A,”asp” B,”.net” C,”asp.” D,”aspn” （2）Instr(“abc@263.net”,”@”)的值是（ ）

A,4 B,3 C,5 D,6

（3）对于request对象，如果省略获取方法，如request(“username”), 将按什么顺序依次检

查是否有信息传入（ ）

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、ClientCertificate、 Server Variables （4）下面程序执行完毕，页面上显示的是什么内容（ ）

<%

Reponse.write server.HTMLEncode(“搜狐”) %>

A,搜狐 B,搜狐

C,搜狐 D,该句有误，无法输出 （5）下面程序执行完毕，页面上显示什么内容（ ）

<%

=”祖国” =”您好”

%>

A,祖国 B,祖国您好 C,祖国（换行）您好 D,以上都不对 （6）<%

session(\session(\

c=session(\ response.Write c %>则c的值为( )

A,3 B,12 C,ab D,”12” （7）如果在示例6-3.asp中添加Server.ScriptTimeout=300,如果在示例6-4.asp中添加

c=Server.ScriptTimeout,请问c等于多少秒（ ）

A,60 B,90 C,300 D,以上都不对

21

（8）查询用户表中最新的5条记录，请问用哪条语句（ ） A,select top 5 * from user order by id desc B, select * from user order by id desc C, select top 5 * from user

D, select * from user top 5 order by id desc

（9）执行完Delete From users语句后，共删除多少条记录（ ）

A,0 B,1 C,全部 D,若干条

（10）进行模糊查询时所使用的通配符是（ ）

A,* B,? C,& D,% （11）如果指针指向第1条记录，则rs.bof和rs.eof的值分别为（ ）

A,True、False B,False、True C, True、True D, False、False

（12）如果某服务器比较慢，执行查询操作时可能无法正常执行，应该设置下面哪个属性

（ ）

A,Connection对象.CommandTimeout B,Connection对象.ConnectionTimeout C,Command对象.CommandTimeout D,Session对象.Timeout （13）获取客户端的IP用下列哪条语句（ ）

A,request.servervariables(“REMOTE_ADDR”) A,request.servervariables(“REMOTE_HOST”) A,request.servervariables(“LOCAL_ADDR”)

A,request.servervariables(“SERVER_PORT”)

（14）下面程序段执行完毕，页面上显示的内容是（ ）

<% dim a

a=\

session(\张红\session(a)=\王刚\

response.Write session(\%>

A,王刚 B,张红 C,张红王刚 D,无法正常输出

（15）如果希望打开的记录集可以前后移动指针，并且可读可写，则应该为下面哪一句（ ）

A,rs.open sql,conn B,rs.open sql,conn,1,3 C,rs.open sql,conn,,3 D,rs.open sql,conn,1

二、填空题及简答题（其中（1）、（2）、（8）、（15）每题三分其它题每题2分，共34分）

（1），Sub 子程序和Function函数的区别在于：_________________________________ （2），请简述Execute、Transfer、Redirect方法的区别

（3），如果在asp文件中任意地方用到redirect方法重定向页面，则必须在文件开头加：___________________ （4），请问如下Global.asa文件程序段有何错误？ Sub session_onstart

22

Dim a,b,c a=2 b=3 c=a+b

response.write c

End sub

（5）Mid(“asp网络程序设计”,4,6)的返回值是：__________

（6）表单中有2个按钮，其中一个用来提交表单(type=”submit”)，另一个用来在原来页面的基础上，再打开一个新页面，请问该按钮的type为：____________ （7）以下程序段执行的结果为：___________________ <%

Response.write”网络” Response.end

Response.write”编程”%>

（8）， session和Application的区别主要在 ：_______________________________ （9），浏览器是解释执行的，它将所有的HTML标记逐一解释执行，而有时希望在屏幕上输出完整的HTML语句，则要用到哪种方法：_________ （10），在删除页面中，利用Request对象的____________方法获取当前记录的id值 （11），创建没有ODBC数据源的连接：______________________________(数据库为data.mdb) （12），Server对象的ScriptTimeout的默认最长时间为________秒 （13），Application对象的默认有效期为________分钟 （14），执行完a=”6”语句后，a 是_______类型 （15），简述Querystring和Form的区别：

三、编程题：

（1） 使用asp 控制显示字体的大小，程序运行的结果如下图：（11分）

23

（2） 创建一个网站计数器，程序运行效果如下图：（10分）

（3） 假设数据库data.mdb中有个admin（username,password）表，用于存放管理员

的信息,且数据库已连接成功。请开发一个管理员登录验证模块admin.asp，要求：

只有当输入正确的口令才进入管理页面manage.asp, 否则弹出对话框“用户名或密码不对，请重新输入！”（15）

24

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

选择题：1-5 CABCD 6-10 BBACD 11-15 ACAAB 填空题：

（1）sub无返回值，function有返回值 （2）execute:执行完以后返回继续执行 transfer:执行完以后返回停止执行 redirect:执行完以后不返回

（3）<%response.buffer=true%>

（4）在Global.asa中不允许任何输出response.write c有误 （5）“网络程序设计” （6）button （7）网络

（8）session用于存储特定客户信息 application用于存储所以客户信息 （9）server.htmlencode （10）Querystring （11） <%

dim db

set db=server.createobject(\

db.open\（12）90

（13）20

（14）字符串

（15）Querystring从查询字符串读取用户提交的数据

Form取得客户端在form表单中所输入的信息 编程题：

（1）<%

for i=1 to 6%>

（2）<% application.Lock

application(\application.UnLock

response.Write(\此页面被访问过\次\

（3）<%

user=request.form(\

pass=request.form(\

sql=\set rs=conn.execute(sql) if rs.eof or rs.bof then

25

response.write \

response.write \用户名或密码不对，请重新输入！');\ response.write \ response.write \else

session(\response.redirect \%> <% end if %>

26

ASP模拟试卷（四）

考试日期： 考试时间：

考生信息：

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

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

1． 在默认WWW主目录C:\\intpupb\\wwwroot下建一个temp.asp文件通过Internet访问你的ASP文件时，下列说法正确的是（ ）。 A． http://localhost/temp.asp B． http://127.0.0.1/temp.asp

C． http://你的计算机名字/temp.asp

D． http://你的计算机的IP地址/temp.asp

2. 下列标记中，（ ）可以在网页中插入图片。

A． 标记 B。
表记 C．

标记 D。标记

3．程序继续执行调用Sub过程的语句之后的语句，可以立即从Sub过程中退出的语句是（ ）。 A． B。Exit C。Exit Sub D. Loop

4．下列那个函数可以计算两个日期或时间的间隔的函数是（ ）。 A．WeekDey B。DataDiff C。DateAdd D。FormatDateTime

5．下列不属于Request.ServerVariables 集合可以读取服务器环境变量的是（A ）。 A．客户端的网速

B．客户端所提交内容的数据类型 C．发送请求的端口号

D．发出请求的远程主机IP

6. 下列关于ASP程序说法不正确的是（ ）。 A． 在ASP程序中，字母不分大小写 B． 使用REM或 ? 符号来标记注释语句

C． <%和%>符号必须和ASP语句放在一行

D． ASP语句必须分行，不能把多条ASP语句写在一行

7. 下面（ ）不是Global.asa文件可用来存放是事件。

A. Application_OnEnd B. Application_OnStart C. Session_OnEnd D. Sever_OnStart

27

8. 下列那种方法不能实现页面跳转的效果（ ）。 A． Response.Redirect方法 B． HTMLEncode方法 C． Server.Execue方法 D． Server.Transfer方法

9. 在ASP中，服务器响应用户请求，向客户端浏览输出信息，要使用（ ）对象实现。 A．Request B。 Response C．Server D。 Session

10. 执行完Delete From Users语句后，共删除多少条记录（ ）

A．0 B。1 C。若干条（0条或多条） D。全部

11. 以下连接对象的创建方法中，正确的是（ ）。 A． Conn=CreateObjet(“ADODB.Connection”) B． Conn=Server.CreateObjet(“ADODB.Connection”)

C． Set Conn=Server.CreateObjet(“ADODB.Connection”) D． Set Conn=Server.CreateObjet(ADODB.Connection)

12. 表单提交后数据指定的处理的文件由（ ）属性指定。

A．Get B。Post C. Action D. Name

13. 以下对Gloabal.asa的说法中，错误的是（ ）。 A． 该文件夹对于一贯ASP运用程序而言，是可选的 B． 该文件可以放在站点的任何位置

C． Session和Applcation对象的事件处理过程，必须放在该文件中，以便相应事件的运用 D． 该文件可以用