ASP模拟试卷(五套).doc

网络程序设计—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

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

7．下面 a=Trim(" vbscript") & Rtrim(" good") 语句后，a的值：
(A) " vbscript good"
(B) "vbscript good"
(C) " vbscriptgood"
(D) "vbscriptgood"

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("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 href=''>新浪</a>”
%>
(A) 新浪 (B) <a href=''>新浪</a>
(C) 新浪（超链接） (D) 该句有错，无法正常输出

14．Session对象的默认有效期为多少分钟？
(A) 10 (B) 15 (C) 20 (D) 应用程序从启动到结束

15．请问下面程序段执行完毕，页面上显示内容是什么：
<%
Response.Write Server.HTMLEncode(“<a href=''>新浪</a>”)
%>
(A) 新浪 (B) <a href=''>新浪</a>
(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) &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) 后，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. 下面这段语句，将根据今天是星期几，分别在页面上显示一幅图片，星期一、二显示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. 很多网站要求客户必须登录后才能访问，如果客户没有登录，就直接访问网站的某个页面，应该将其引导到首页。请据此填写下面的空格。
<%
If Session("UserName")= Then
"index.asp"
End If
%>
12. 下面的程序段用来计算客户是第几次访问本站。请填写其中的空格。
<%
Dim varNumber
varNumber=Request.Cookies("number")
If Then
varNumber=1
Else
varNumber=varNumber+1
End If
. =varNumber
. =#2030-1-1#
Response.Write "您是第" & varNumber & "次访问本站"
%>
13. 假如Application("UserOnLine")中保存了一个数组，该数组中保存了在线用户的名称，下面的程序段从其中读取所有用户名，并显示在页面上，请填写其中的空格。
<%
Dim UserOnLine,Number
UserOnLine=Application("UserOnLine")
Number= (UserOnLine) '返回该数组的最大下标
For I=0 To Number
Response.Write
Next
%>
14. 对于如下图的数据表link，请填写下面的SQL语句中的空格：

图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#"
15. 针对上面图1所示，下面要在页面上按提交日期降序排列所有的网站，请填写下面程序段中的空格。假设数据库文件wwwlink.mdb和本文件存放在同一个文件夹下，数据表名为link。
<table>
<tr>
<td>网站名称</td><td>网站地址</td><td>提交日期</td>
</tr>
<%
'以下连接数据库
Dim db
Set db=Server.CreateObject("ADODB.Connection")
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>
<td><%=rs("submit_date")%></td>
</tr>
<%

Loop
%>
</table>
16. 针对上面图1所示，下面是分页显示所有网站的名称的语句，每页显示10条记录，请填写其中的空格。
<%
Dim db,rs,strSql
'建立Connection对象
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dsn=addr" '这里利用数据源连接
'建立Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
strSql ="Select * From users order by name Asc"
rs.Open
'如果记录集不是空的，就执行分页显示
If Then
'下面一段判断当前显示第几页，如是第一次打开，为1，否则由传回参数决定
Dim page_no
If Request.QueryString("page_no")="" Then
page_no=1
Else
page_no= (Request.QueryString ("page_no"))
End If
'下面一段开始分页显示，指向要显示的页，然后逐条显示当前页的所有记录。
rs. =10
rs. =page_no
Dim I
I=10
Do While And
I=I-1
Response.Write rs("name") & "<br>"
rs.MoveNext
Loop
'下面一段在下方显示页数信息，从1到总页数循环
......
Else
Response.Write "该记录集为空"
End If
%>
17. 下面这段程序，打开本文件夹下的文本文件test.txt，并读取其中所有的内容显示在页面上，请填写其中的空格。
<%
Dim fso
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Dim TextFile
Set TextFile= fso. (Server.MapPath("test.txt")
Do While Not TextFile.
Response.Write TextFile.ReadLine
Response.Write "<br>"
Loop
%>

三、编程题（每空10分，共30分）
1．请编写代码，在页面上显示如下图形。注意：只要写出主要代码即可
**********
*********
********
*******
******
*****
****
***
**

2．利用Recodset对象也可以插入记录，现在针对图1所示的数据表，利用插入一条记录：其中网站名称为“搜狐”，网站地址为“”，网站简介为“门户网站”，提交日期为当天。
注意：只给出主要代码即可，程序的开头部分已经给出。
<%
Dim db, strConn
strConn="Dbq=" & Server.Mappath("address.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Set db=Server.CreateObject("ADODB.Connection")

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

Add_form.asp
<form name="form1" method="post" action="add.asp">
<tr>
<td>网站名称</td><td><input type="text" name="name" size=20></td>
</tr><tr>
<td>网站地址</td><td><input type="text" name="URL" size=40></td>
</tr><tr>
<td>网站简介</td><td>
<textarea name="intro" rows="2" cols="40" wrap="soft"></textarea></td>
</tr><tr>
<td></td><td><input type="submit" value=" 确 定 "></td>
</tr>
</form>
add.asp（请在下面完成add.asp，开头部分语句和最后一条语句已经给出，只要在中间添加语句即可）
<% Option Explicit %>
<%
If Request.Form("name")<>"" And Request.Form("URL")<>"" Then
'以下连上数据库，建立一个Connection对象实例db
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dbq=" & Server.Mappath("wwwlink.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

End If
%>
网络程序设计—ASP模拟试卷（二）
一、选择题（每小题2分，共30分）
1．小王正在家里通过拨号上网访问搜狐网站，此时谁是服务器端，谁是客户端？
(A) 小王的机器是服务器端，搜狐网站是客户端 (B) 搜狐网站是服务器端，小王的机器是客户端 (C)小王的机器既是服务器端，又是客户端 （D）以上说法全不对

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

3．下列哪个变量名称是正确的？
(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
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="Insert Into table(name,grade,intro) Values('"& varName & "', " & varGrade & ",#" & varBirthday & "#)"
(B). strSql="Insert Into table(name,grade,intro) Values('" & varName & "', '" & varGrade & "',# " & varBirthday & "#)"
(C). strSql="Insert Into table(name,grade,intro) Values('" & varName & "', " & varGrade & "," & varBirthday & ")"
(D).strSql="Insert Into table(name,grade,intro) Values('varName', varGrade,# var Birthday#)"

12．问下面程序段执行完毕，页面上显示内容是什么：
<%
Response.Write Server.HTMLEncode(“<a href=''>新浪</a>”)
%>
(A) 新浪 (B) <a href=''>新浪</a>
(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
0 仅向前游标，只能向前浏览记录，不支持分页、Recordset、BookMark
1 键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMark
2 动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览。
3 静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动
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
DLLSelfRegister 函数

二、填空题（每空3分，共42分）
1. VBScript 中用关键字 来声明常量。
2. 在VBScript中，我们用检验函数 来判断变量是数字类型。
3. 在VBScript 中，过程有两种，一种是Sub子程序，一种是Function 函数，两者的区别在于 只执行程序而不返回值，而 可以将执行代码后的结果返回给请求程序。
4. 执行完 a= InStr(“ jjshang@”,”@”)后，a的值为 。
5. 语句 a=DateDiff( ,Date(),#1/1/2006#) 将返回离2006年元旦还有多少天。
6. 在执行程序时，有时我们不希望因为程序发生错误而导致程序终止，也不希望将错误暴露在访问者的面前，这时我们就要用到容错语句 ,这条语句表示，如果碰到错误，就跳过去继续执行下一句。

7. ASP的五大内部对象包括 、 、 、 、
8. 下面的程序段用Cookies来完成设置关键字user_name的值和有效期，请填写其中的空格。
<%
Response.Cookies(“user_name”)=“高航”
=#2005-10-1# ‘设置关键字user_name的有效期
%>
9. Session对象有它的有效期，默认为 分钟，另外，我们可以利用Session的一个属性 可以修改Session对象的有效期时长。

10. Server对象有一个属性 ，可以用来设定脚本文件的最长执行时间，其默认值为90秒。

11. 对于W3 Jmail邮件发送组件，如果信箱是jjshang99@，密码是123456，发信服务器是smtp.163.dom。请写出执行发送邮件的语句

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

图1
查询提交日期大于2003-1-1的前三条数据记录，并按提交日期的降序排列
strSql="Select * From link Where submit_date #2003-1-1# Order By submit_date "
查询网站名字中有“网”字的记录
strSql="Select * From link Where “

13. 针对上面图1所示，下列程序将完成对link表中内容的更新，所需要更新的字段假设已经从另外一个表单文件中取得，另假设数据库文件wwwlink.mdb和本文件存放在同一个文件夹下，请填写下面程序段中的空格。，数据表名为link。
<table>
<tr>
<td>网站名称</td><td>网站地址</td><td>提交日期</td>
</tr>
<%
‘以下获得所要修改记录的link_id
Dim varLink_id
varLink _id =Request.QueryString(“link_id”)

'以下连接数据库
Dim db
Set db=Server.CreateObject("ADODB.Connection")
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
'以下是执行更新语句

‘更新完数据后返回首页
Response.Redirect “index.asp”
%>
</table>

14． 下面是利用文件存取组件完成新建一个文本文件test.txt的过程，请填写其中的空格。
<%
Dim FileObject '声明一个FileSystemObject对象实例
FileObject=Server.CreateObject("Scripting.FileSystemObject")
Dim TextFile '声明一个TextStream对象实例
TextFile= FileObject.CreateTextFile("C:\inetpub\wwwroot\asptemp\chapter10\test.txt")
'向文件中写一行内容，内容为“欢迎您”
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条。

ASP模拟试卷（三）
一、 选择题（每题2分，共30分）：
（1）left(“”,4)的值为（ ）
A,”asp” B,”.net” C,”asp.” D,”aspn”
（2）Instr(“abc@”,”@”)的值是（ ）
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 href=’’>搜狐</a>”)
%