网络程序设计——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的值
<%
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 V ariables、ClientCertificate
(B)QueryString、Form、Cookies、Server V ariables、ClientCertificate
(C)Cookies、QueryString、Form、Server V ariables、ClientCertificate
(D)Form、QueryString、Cookies、Server V ariables、ClientCertificate
11.下面哪条语句可以返回访问者的IP地址
(A) Request.ServerV ariables("REMOTE_ADDR")
(B) Request.ServerV ariables("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) 新浪(B) 新浪
(C) 新浪(超链接)(D) 该句有错,无法正常输出
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("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
""
Case Else
""
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。
网站名称 | 网站地址 | 提交日期 |
<%=rs("name")%> | <%=rs("URL")%> | <%=rs("submit_date")%> |
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") & "
"
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 "
"
Loop
%>
三、编程题(每空10分,共30分)
1.请编写代码,在页面上显示如下图形。注意:只要写出主要代码即可
**********
*********
********
*******
******
*****
****
***
**
*
2.利用Recodset对象也可以插入记录,现在针对图1所示的数据表,利用插入一条记录:其中网站名称为“搜狐”,网站地址为“https://www.360docs.net/doc/ff6254686.html,”,网站简介为“门户网站”,提交日期为当天。
注意:只给出主要代码即可,程序的开头部分已经给出。
<%
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
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分,共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.V arNumber=””
Response.Cookies(“number”)
Response.Cookies(“number”).Expires
13.Ubound
UserOnLine(I)
14.Between
Desc
Count(*)
15."Dbq=" & Server.Mappath("wwwlink.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
"Select * From link Order By Submit_date Desc"
Not rs.Eof
<%=rs("URL")%>
rs.MoveNext
16.strSql,db,1
Not rs.Bof And Not rs.Eof
CInt
PageSize
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="Dbq=" & Server.Mappath("address.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Set db=Server.CreateObject("ADODB.Connection")
'建立Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
strSql ="Select * From link"
rs.Open strSql,db,0,2
'添加记录
rs.AddNew
rs("name")= "搜狐"
rs("url")="https://www.360docs.net/doc/ff6254686.html,"
rs("intro")="门户网站"
rs("submit_date")=Date()
rs.Update
%>
3.
<%
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)};"
Dim sqla,sqlb,strSql
sqla="Insert Into link(name,url,submit_date"
sqlb=" V alues('" & Request.Form("name") & "','" & Request.Form("url") & "',#" & Date() & "#"
If Request.Form("intro")<>"" Then
sqla=sqla & ",intro"
sqlb=sqlb & ",'" & Request.Form("intro") & "'"
End If
strSql=sqla & ")" & sqlb & ")"
db.Execute(strSql)
End If
%>
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
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) V alues('"& varName & "', " & varGrade & ",#" & varBirthday & "#)"
(B). strSql="Insert Into table(name,grade,intro) V alues('" & varName & "', '" & varGrade & "',# " & varBirthday & "#)"
(C). strSql="Insert Into table(name,grade,intro) V alues('" & varName & "', " & varGrade & "," & varBirthday & ")"
(D).strSql="Insert Into table(name,grade,intro) V alues('varName', varGrade,# var Birthday#)"
12.问下面程序段执行完毕,页面上显示内容是什么:
<%
Response.Write Server.HTMLEncode(“新浪”)
%>
(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@https://www.360docs.net/doc/ff6254686.html,”,”@”)后,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秒。
28.对于W3 Jmail邮件发送组件,如果信箱是jjshang99@https://www.360docs.net/doc/ff6254686.html,,密码是123456,发信
服务器是smtp.163.dom。请写出执行发送邮件的语句
29.对于如下图的数据表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 “
30.针对上面图1所示,下列程序将完成对link表中内容的更新,所需要更新的字段假设
已经从另外一个表单文件中取得,另假设数据库文件wwwlink.mdb和本文件存放在同一个文件夹下,请填写下面程序段中的空格。,数据表名为link。
网站名称 | 网站地址 | 提交日期 |
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分,共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("jjshang99:123456@https://www.360docs.net/doc/ff6254686.html,")
29.top 3 、> 、desc
30."Dbq=" & Server.Mappath("wwwlink.mdb") & ";Driver={Microsoft 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 '计算总馒头数
If ren=100 And mantou=100 Then
Response.write"
大人=" & I & " 小孩=" & J
End If
Next
Next
%>
2.<%
Dim count '声明一个组件实例变量
Set count=Server.CreateObject("MSWC.pagecounter")
count.PageHit() '将当前网页访问次数加1
Dim visit_number
visit_number=count.Hits() '获取当前网页访问次数
Response.Write "您是第" & cStr(visit_number) & "位访客"
%>
3.
<% Option Explicit %>
<%
Dim db, strCon
strCon ="Dbq="&Server.Mappath("address.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
Set db=Server.CreateObject("ADODB.Connection")
db.Open strCon
%>
成员列表
<%
'先输出表格的标题栏
%>
姓名 | 电话 | |
" & rs("name") & " | "" & rs("tel") & " | "" & rs("email") & " | "中添加 border属性 B 在 |