ASP试题及答案

ASP模拟试卷（一）

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

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"

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

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

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

<%

Dim a

a=3

a=a+1

%>

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

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

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

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

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

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

7．下面 a=Trim(" vbscript") & Rtrim(" good")

(A) " vbscript good"

(B) "vbscript good"

(C) " vbscriptgood"

(D) "vbscriptgood"

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

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

(D) "11","11",2

(D) 日期型

(D) 4

(D) 20

(D) 5

(D) 0

语句后，a的值： (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) Variables("REMOTE_ADDR")

(B) Variables("REMOTE_IP")

(C) Certificate("REMOTE_ADDR ")

(D) Certificate ("REMOTE_IP ")

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

<%

"A"

"B"

%>

C

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

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

<%

“新浪”

%>

(A) 新浪 (B) 新浪

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

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

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

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

<%

code(“新浪”)

%>

(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) ("upfile").Size

(B) ("upfile").Size

(C) ("upfile").Size

(D) ("upfile").Size

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

webcourse/www_ 第一讲利用工具软件制作网页

webcourse/www_ 第二讲网页制作高级功能

webcourse/www_ 第三讲利用源代码开发网页

(A) 空格 (B) Tab (C)   (D) Space

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

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

2. 如果操作系统是Windows 2000，一般需要安装 组件才能运行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保存学生名单，现在新转来一位同学“张峰”，需要将其名字添加到该数组中，请填写下面程序段中的空格。

<%

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. 下面这段语句，将根据今天是星期几，分别在页面上显示一幅图片，星期一、二显示，其它时间显示。请填写完整下面的程序。

<%

Dim theday

theday= (Date())

Select Case theday

Case

""

Case Else

""

End Select

%>

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

<%

If Session("UserName")= Then

""

End If

%>

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

<%

Dim varNumber

varNumber=s("number")

If Then

varNumber=1

Else

varNumber=varNumber+1

End If

. =varNumber

. =#2030-1-1#

"您是第" & varNumber & "次访问本站"

%>

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

<%

Dim UserOnLine,Number

UserOnLine=Application("UserOnLine")

Number= (UserOnLine) '返回该数组的最大下标

For I=0 To Number

Next

%>

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

15.

图1

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

strSql="Select * From link Where submit_date #2003-1-1# And

#2004-1-1# Order By submit_date "

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

strSql="Select As Total From link Where submit_date >

#2004-1-1#"

16. 针对上面图1所示，下面要在页面上按提交日期降序排列所有的网站，请填写下面程序段中的空格。假设数据库文件和本文件存放在同一个文件夹下，数据表名为link。

<%

'以下连接数据库

Dim db

Set db=Object("tion")

'以下建立记录集

Dim strSql,rs

strSql=

set rs=e(strsql)

'以下显示数据库记录

Do While

%>

<%

Loop

%>

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

<%

Dim db,rs,strSql

'建立Connection对象

Set db=Object("tion")

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

'建立Recordset对象

Set rs=Object("set")

strSql ="Select * From users order by name Asc"

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

If Then

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

Dim page_no

If tring("page_no")="" Then

page_no=1

Else

page_no= (tring ("page_no"))

End If

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

rs. =10

rs. =page_no

Dim I

I=10

Do While And

I=I-1

rs("name") & "

"

xt

Loop

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

......

Else

"该记录集为空"

End If

%>

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

<%

Dim fso

Set fso=Object("stemObject")

Dim TextFile

Set TextFile= fso. (h("")

Do While Not TextFile.

ne

"

"

Loop

%>

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

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

**********

*********

********

*******

******

*****

****

***

**

*

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

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

<%

Dim db, strConn

strConn="Dbq=" & h("") & ";Driver={Microsoft

Access Driver (*.mdb)}"

Set db=Object("tion")

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

Add_

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

<% Option Explicit %>

<%

If ("name")<>"" And ("URL")<>"" Then

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

Dim db

Set db=Object("tion")

"Dbq=" & h("") & ";Driver={Microsoft

Access Driver (*.mdb)};"

End If

%>

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

11． “”

ct

12． VarNumber=””

s(“number”)

s(“number”).Expires

13． Ubound

UserOnLine(I)

14． Between

Desc

Count(*)

15． "Dbq=" & h("") & ";Driver={Microsoft Access

Driver (*.mdb)}"

"Select * From link Order By Submit_date Desc"

Not

<%=rs("URL")%>

xt

16． strSql,db,1

Not And Not

CInt

PageSize

AbsolutePage

Not

I>0

17． OpenTextFile

AtEndOfStream

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

1．

<%

Dim I,J

For I=10 To 1 Step -1

For J=1 To I

"*"

Next

"

"

Next

%>

2．

<%

Dim db, strConn

strConn="Dbq=" & h("") & ";Driver={Microsoft

Access Driver (*.mdb)}"

Set db=Object("tion")

'建立Recordset对象

Set rs=Object("set")

strSql ="Select * From link"

strSql,db,0,2

'添加记录

rs("name")= "搜狐"

rs("url")=""

rs("intro")="门户网站"

rs("submit_date")=Date()

%>

3．

<%

If ("name")<>"" And ("URL")<>"" Then

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

Dim db

Set db=Object("tion")

"Dbq=" & h("") &

";Driver={Microsoft Access Driver (*.mdb)};"

Dim sqla,sqlb,strSql

sqla="Insert Into link(name,url,submit_date"

sqlb=" Values('" & ("name") & "','" & ("url") &

"',#" & Date() & "#"

If ("intro")<>"" Then

sqla=sqla & ",intro"

sqlb=sqlb & ",'" & ("intro") & "'"

End If

strSql=sqla & ")" & sqlb & ")"

e(strSql)

End If

%>