ASP试题及答案

......
Else
Response.Write "该记录集为空"
End If
%>
18. 下面这段程序，打开本文件夹下的文本文件 test.txt，并读取其中所有的内容
显示在页面上，请填写其中的空格。
（A）Form、QueryString、Cookies、Server Variables、ClientCertificate
（B）QueryString、Form、Cookies、Server Variables、ClientCertificate
（C）Cookies、QueryString、Form、Server Variables、ClientCertificate
db.Open
'以下建立记录集
Dim strSql,rs
strSql=
set rs=db.execute(strsql)
'以下显示数据库记录
Do While
%>
<tr>
<td><%=rs("name")%></td>
<td><a href="
"
target="_blank"><%=rs("URL")%></a> </td>
'下面一段开始分页显示，指向要显示的页，然后逐条显示当前页的所有
记录。
rs.
=10
rs.
=page_no
Dim I
I=10
Do While
And
I=I-1
Response.Write rs("name") & "<br>"
rs.MoveNext
Loop
'下面一段在下方显示页数信息，从 1 到总页数循环
(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”)，将按什么
顺序依次检查是否有信息传入：
Next %> 14. 对于如下图的数据表 link，请填写下面的 SQL 语句中的空格： 15.
图1
查询 2003 年 1 月 1 日到 2004 年 1 月 1 日之间的提交的网站，并按提交日期
将序排列
strSql="Select * From link Where submit_date
#2003-1-1# And
%>
9. 下面是一个函数，用来返回从 a 到 b 的立方和，请填写其中的空格。
<%
Function Cube(a,b)
Dim I,Sum
Sum=
For I= a To b
Sum=
Next
=Sum
End Function
%>
10. 下面这段语句，将根据今天是星期几，分别在页面上显示一幅图片，星期一、
<td><%=rs("submit_date")%></td>
</tr> <%
Loop
%>
</table>
17. 针对上面图 1 所示，下面是分页显示所有网站的名称的语句，每页显示 10
条记录，请填写其中的空格。
<%
Dim db,rs,strSql
'建立 Connection 对象
Set db=Server.CreateObject("ADODB.Connection")
%>
C
(A) A
(B) AB
(C) AC
(D) ABC
13．请问下面程序段执行完毕，页面上显示内容是什么：
<%
Response.Write “<a href='http://www.sina.com.cn'>新浪</a>”
%>
(A) 新浪
(B) <a href='http://www.sina.com.cn'>新浪</a>
（D）Form、QueryString、Cookies、Server Variables、ClientCertificate
11．下面哪条语句可以返回访问者的 IP 地址
(A) Request.ServerVariables("REMOTE_ADDR")
(B) Request.ServerVariables("REMOTE_IP")
(D) RollBackTrans
17．如果刚打开了一个含有 1 条记录的记录集，那么 Bof 的值为
(A) 1
(B) True
(C) False
(D) NULL
18．使用 W3 Jmail 组件发送 E-mail 时，附件必须位于
(A) 客户端
(B) 服务器端
(C) 服务器端和客户端
(D) 服务器端或客户端
站的某个页面，应该将其引导到首页。请据此填写下面的空格。
<%
If Session("UserName")=
Then
"index.asp"
End If
%>
12. 下面的程序段用来计算客户是第几次访问本站。请填写其中的空格。
<%
Dim varNumber
varNumber=Request.Cookies("number")
(C) 新浪（超链接） (D) 该句有错，无法正常输出
14．Session 对象的默认有效期为多少分钟？
(A) 10
(B) 15
(C) 20
(D) 应用程序从
启动到结束
15．请问下面程序段执行完毕，页面上显示内容是什么：
<%
Response.Write Server.HTMLEncode(“<a href='http://www.sina.com.cn'> 新 浪
20．对于如下的文件超链接组件中使用的超链接数据文件，文件路径和说明之间
应该用（ ）隔开。
webcourse/www_1.htm 第一讲利用工具软件制作网页
webcourse/www_2.htm 第二讲网页制作高级功能
webcourse/www_3.htm 第三讲利用源代码开发网页
(A) 空格
(B) Tab
</a>”)
%>
(A) 新浪
(B) <a href='http://www.sina.com.cn'>新浪</a>
(C) 新浪（超链接） (D) 该句有错，无法正常输出
16．当使用事务处理时，假如要提交事务处理，应该利用如下方法：
(A) BeginTrans
(B) EndTrans
(C) CommitTrans
二显示 p1.jpg，其它时间显示 p2.jpg。请填写完整下面的程序。
<%
Dim theday
theday=
(Date())
Select Case theday
Case
"<img src='p1.jpg'>"
Case Else
"<img src='p2.jpg'>"
End Select
%>
11. 很多网站要求客户必须登录后才能访问，如果客户没有登录，就直接访问网
后，a 的值为
。
4. 语句 a=DateAdd("
",10,Date()) 将返回 10 天后是几号。
5. 语句 b=Int(10 *
) +1) 将返回 1 到 10 之间的随机整数。
6. 在文件开头添加
语句后，则所有的变量都必须先声明才能
使用。
7. 在 数 据 库 的 表 中， 纵的 一 行 叫 做 一 个
户的名称，下面的程序段从其中读取所有用户名，并显示在页面上，请填写
其中的空格。
<%
Dim UserOnLine,Number
UserOnLine=Application("UserOnLine")
Number=
(UserOnLine)
'返回该数组的最
大下标
For I=0 To Number Response.Write
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"<"c" 语句后，a 的值为：
(A) True
(B) False
(C) 1
(D) 0
19．对于文件上传组件，如果希望获取上传文件的大小，应该怎样用？
(A) Upload.Files("upfile").Size
(B) Upload.Form("upfile").Size
(C) Request.Files("upfile").Size
(D) Request.Form("upfile").Size
，横的一行叫做一
个
。
8. 原来用一个数组 users 保存学生名单，现在新转来一位同学“张峰”，需要将
其名字添加到该数组中，请填写下面程序段中的空格。
<%
Dim users()
RedLeabharlann Baidum users(40)
users(0)="王军"
users(1)="李俊"
……
Redim
users(41)
users(41)="张峰"
db.Open "Dsn=addr"
'这里利用数据源连接
'建立 Recordset 对象
Set rs=Server.CreateObject("ADODB.Recordset")
strSql ="Select * From users order by name Asc"
rs.Open
'如果记录集不是空的，就执行分页显示
(C) &nbsp;
(D) Space
二、填空题（每空 1 分，共 40 分）
1. ASP 文件就是在普通的 HTML 文件中插入
或 JavaScript 脚本语
言。
2. 如果操作系统是 Windows 2000，一般需要安装
组件才能运行 ASP
程序。
3. 执 行 完 a= Left("vbscript",2) & Mid("vbscript",3,4) & Right("vbscript",2)
#2004-1-1# Order By submit_date
"
查询 2004 年 1 月 1 日以后提交的网站总数目
strSql="Select
As Total From link Where submit_date >
#2004-1-1#"
16. 针对上面图 1 所示，下面要在页面上按提交日期降序排列所有的网站，请填
If
Then
varNumber=1
Else
varNumber=varNumber+1
End If
.
=varNumber
.
=#2030-1-1#
Response.Write "您是第" & varNumber & "次访问本站"
%>
13. 假如 Application("UserOnLine")中保存了一个数组，该数组中保存了在线用
If
Then
'下面一段判断当前显示第几页，如是第一次打开，为 1，否则由传回参
数决定
Dim page_no
If Request.QueryString("page_no")="" Then
page_no=1
Else
page_no=
(Request.QueryString ("page_no"))
End If
2．执行完语句 a="2"，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
7．下面 a=Trim(" vbscript") & Rtrim(" good") 语句后，a 的值：
(A) " vbscript good"
(B) "vbscript good"
(C) " vbscriptgood"
(D) "vbscriptgood"
8．下面哪个函数可以返回当前的日期和时间：
(A) Now
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" (D) "11","11",2
写下面程序段中的空格。假设数据库文件 wwwlink.mdb 和本文件存放在同一
个文件夹下，数据表名为 link。
<table>
<tr>
<td>网站名称</td><td>网站地址</td><td>提交日期</td>
</tr>
<%
'以下连接数据库
Dim db
Set db=Server.CreateObject("ADODB.Connection")
(C) Request.ClientCertificate("REMOTE_ADDR ")
(D) Request.ClientCertificate ("REMOTE_IP ")
12．执行完如下语句后，页面上显示的内容为：
<%
Response.Write "A"
Response.End
Response.Write "B"