目录 ASP颅烈试卷（一） 2 ASP核试卷（一）参考答案 10 ASP模拟试卷（二） 13 ASP颅双试卷（二）参考答案 18 ASP模数试卷（三） 22 ASP模飘试卷（三）参考答案 6 ASP棱飘试卷（四》. 湖 ASP颅烈试卷（四）参考答室 3引 ASP模拟试卷（五） 35 ASP核叔试卷（五）参考答案 39
目 录 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,e的值 % a1"+1 b-1P+19 1”&"1日 %> (A)11,1111"(B)2,11“.11C11“2,11(D)11,11“2 2.执行完语句2”，a的类型为 (A)数值型 (B剧字符串型 (C)布尔型 (D)日期型 3。执行完如下语句后。a的值为： % Dima 3 atl %> (A)0 (B1 (C3 (D月4 4.执行完如下语句后，Sum的值为： % Dim a(5).Sum Sum-0 For 1=0 To 5 0 Sum=Sum+a(1) Next %> ()0 5 (C)15 (D20 5.执行完5Mod3语句后，a的值为： (A)0 )2 (C3 D)5 2
2 ASP 模拟试卷（一） 考试日期： 考试时间： 考生信息： 系 别___________学 号_____________姓 名_____________笔试成绩_____________ 一、选择题（每小题 2 分，共 40 分） 1．请判断下列语句执行完毕后，a、b、c 的值 (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 的值为： (A) 0 (B) 1 (C) 3 (D) 4 4．执行完如下语句后，Sum 的值为： (A) 0 (B) 5 (C) 15 (D) 20 5．执行完 a=5 Mod 3 语句后，a 的值为： (A) 0 (B) 2 (C) 3 (D) 5
6.执行完F5>3And"a (A)A (B)AB (C)AC (D)ABC 13,请问下面程序段执行光毕，页面上显示内容是什么： % Resporse.Write "ca href-http://www.sina.com.cn'/" %> (A)新浪 (B)新浪<> (C)新流（超髓接） (D)该句有错，无法正常输出
3 6．执行完 a=5>3 And "a" C (A) A (B) AB (C) AC (D) ABC 13．请问下面程序段执行完毕，页面上显示内容是什么： 新浪” %> (A) 新浪 (B) 新浪 (C) 新浪（超链接） (D) 该句有错，无法正常输出
14,Session对象的默认有效期为多少分钟t (A)10 (13 (C)20 D)应用程序从启动到束 15,请问下面程序授执行完毕，页面上最示内容是什么 站 Respoese.Write Server.HTMIEncode"新浪"” %> (A)新浪 (B) (C)新透（超战接） D)该句有铺，无法正常输出 16.当使用事务处理时，假如要提交事务处理，应该利用如下方法： (A)BeginTrans (B)EndTrans (C)CommitTrans (D)RollBackTrans 17。如果刚打开了一个含有1条记录的记录集。那么B的值为 ()I (B)True (C)False (D)NULL 18。使用W3Jmal组件发送E-mal时，附件必须位于 (A)客户端 (B)服务端 C)服务器端和客户端 (D)服务器端或客户璃 19。对于文件上传组件，如果希望获取上传文件的大小，应该怎样用？ (A)Upload Files"upfile").Stze (B)Upload.Form("upfile").Size (C)Request Files("upfile")Size (D)Request.Form("upfile")Size 20,对于如下的文件超硅接组件中使用的超链接数据文件，文件路径和说明之问应该用() 隔开。 webcoursc/www_1.htm第一佛利用工具软件制作网页 webcourse/www.2.hlm第二牌网页制作高级功能 eboourse/www_3.htm第三讲利用源代码开发网页 (A)空格 (B)TE动 (C&ns单， (D)Space 二、填空题（每空1分，共40分） 1,ASP文件就是在普通的ML文件中插入 或JavaScript脚本语言. 2. 如果操作系饶是Windows2000,一般需要安装 组件才能运行ASP程序， 3.执行完eft("vbscript"2)&Mid"vbscript34)&Right"vbscript'2后，a的值 为 ",10DaeO)将返回10天后是儿号. 5. 语句b-lnt10· )+1)将返日1到10之间的随机整数， 6. 在文件开头态加 语句后。则所有的变量都必领先声明才旋使用： 7. 在数据库的表中，纵的一行叫做一个 ,横的一行叫做一个
4 14．Session 对象的默认有效期为多少分钟？ (A) 10 (B) 15 (C) 20 (D) 应用程序从启动到结束 15．请问下面程序段执行完毕，页面上显示内容是什么： 新浪”) %> (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.原来用一个数组s保存学生名单，现在新转来一位同学“张峰”，需要将其名字添 加到该数组中，请填写下面程序段中的空格。 % Dim users() Redim users(40) u5er0-王军 u5r以1李俊 44 Redim ue41) user41户张峰 %> 9,下而是一个函数，用米返回从。到b的立方和，请填写其中的空格。 % Function Cube(a.b) Dim I,Sum Sum= Forl-aTo b Sum= Next "Sum End Function %3 10.下面这段语句，将根据今天是星期几，分别在页面上最示畅图片，星期一，二显示 p1j昭。其它时间显示p2jg。请填写完整下面的程序， % Dim theday theday-」 (Date()) Select Case theday Case ” Case Else *cimg sre=p2.jpg>" End Select %63 11,很多网站要求客户必领登录日才能访问，如果客户没有登录，就直接访问网站的某个页 面。应该将其引导到首页。请据此填写下面的空格。 % If Session("User Name") _Then "index.asp" End If %> 12.下而的程序段用来计算客户是第儿次访问本站。请填写其中的空格。 % Dim var Number
5 8. 原来用一个数组 users 保存学生名单，现在新转来一位同学“张峰”，需要将其名字添 加到该数组中，请填写下面程序段中的空格。 9. 下面是一个函数，用来返回从 a 到 b 的立方和，请填写其中的空格。 10. 下面这段语句，将根据今天是星期几，分别在页面上显示一幅图片，星期一、二显示 p1.jpg，其它时间显示 p2.jpg。请填写完整下面的程序。 " Case Else "" End Select %> 11. 很多网站要求客户必须登录后才能访问，如果客户没有登录，就直接访问网站的某个页 面，应该将其引导到首页。请据此填写下面的空格。 12. 下面的程序段用来计算客户是第几次访问本站。请填写其中的空格。 <% Dim varNumber
varNumber=Request Cookies("number") If Then varNumberl Else varNumber"varNumber+l End If varNumber -42030-1-10 Response.Mile“您是第”&varNumber&次访问本站 %3 13.假如Application"UserOnLine)中保存了一个数组。该数组中保存了在线用户的名称， 下面的程序段从其中读取所有用户名，并显示在页面上，请填写其中的空格。 % Dim UserOnLine.Number UscrOnLine-Application("UserOnLine") Numberm (UserOnLine） 返国该数组的最大下标 For 1=0 To Number Response Write Next %> 14.对于如下图的数据表1ik,请填写下面的SQL语句中的空格： ■短表 口图 半伊名院 数据士型 lirk_id 自编号 可站得 包4 文本 站名事（掌大小50） L 基同址（字大小10的】 备注 站福介 gubait_date 目期时间 提文日用 图 查询2003年1月1日到2004年1月1日之间的提交的网站，并按提交日期将序排列 strSgl-"Select From link Where submit_date #2003.1-1#nd82004.1.1m Order By submit date 查询2004年1月1日以后提交的网站总数目 strSgl="Sclect As Total From link Where submit date 82004-1-1# 15.针对上面图1所示，下面要在页面上按提交日期降序排列所有的网站，请填写下面程序 段中的空格。假设数据岸文件www止.mdb和本文件存放在同一个文件突下，数据表 名为ik, ctable> 2 d料站地址<hd心提交日期<h p % 以下连接数据库 Dim db Set db-Server CreateObject("ADODB Connection')
6 varNumber=Request.Cookies("number") If Then varNumber=1 Else varNumber=varNumber+1 End If . =varNumber . =#2030-1-1# Response.Write "您是第" & varNumber & "次访问本站" %> 13. 假如 Application("UserOnLine")中保存了一个数组，该数组中保存了在线用户的名称， 下面的程序段从其中读取所有用户名，并显示在页面上，请填写其中的空格。 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。 网站名称网站地址提交日期 <% '以下连接数据库 Dim db Set db=Server.CreateObject("ADODB.Connection")
db.Open 以下建立记录集 Dim strSql,rs r5ql=」 set rs-db.execute(strsql) 以下显示数据库记录 Do While %> ct%r"nsme"%d> a href” _”target-”_blank">%TURL'%>hh table 16.针对上面图1所示，下面是分页显示所有网站的名称的语句，每页显示10条记录。请 填写其中的空格。 % Dim db.rs.strSql '建立Connection对象 Set db=Server.CreateObjec"ADODB Connection") db.Open"Dsn=addr" 这里利用数据源连接 '建立Recordset对象 Set rs-Server.CremeObject("ADODB.Recordset") strSgl="Select*From users order by name Asc" rs.Open 如果记录集不是空的，就执行分页显示 If Then 下面一段判断当前显示第几页，如是第一次打开，为1，否测由传回参数决定 Dim page_no If Request QueryStringl"page_no")="Then page_no=1 Else page no- (Request QucryString ('page_no")) End If 下面一段开始分页显示，指向要最示的页。然后逐条显示当前页的所有记录 =10 s "page_no Dim I 1=10 Do While And 7
7 db.Open '以下建立记录集 Dim strSql,rs strSql= set rs=db.execute(strsql) '以下显示数据库记录 Do While %> 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
-l.1 Resporese.Write rs("name")&".cbr> rs MoveNext Loop 下面一段在下方显示页数信息，从1到总页数循环 Else Response Write“该记录集为空 End If > 17.下面这段程序，打开本文件夹下的文本文件1，并读取其中所有的内容显示在页面 上。请填写其中的空格。 % 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 "cbr>" Loop %> 三、编程题（每空10分，共30分） 1。请偏写代码。在莫面上曼示如下图形。注意：只要写出主要代码即可 车卡4车车8非年中中 华中中中中年中华中 中中中中中华华 中中中中中中 车中中中中年 车中市市 中中中中 年中中 2.利用Rds对象也可以插入记录，现在针对图I所不的数据表，利用插入一条记录： 其中网站名称为“瘦红”，网站地址为“wWou0m”,网站简介为“门户网站”，提交日 期为当天· 注意：只给出主要代码即可，程序的开头部分已经给出。 %
8 I=I-1 Response.Write rs("name") & "" rs.MoveNext Loop '下面一段在下方显示页数信息，从 1 到总页数循环 ...... Else Response.Write "该记录集为空" End If %> 17. 下面这段程序，打开本文件夹下的文本文件 test.txt，并读取其中所有的内容显示在页面 上，请填写其中的空格。 " Loop %> 三、编程题（每空 10 分，共 30 分） 1．请编写代码，在页面上显示如下图形。注意：只要写出主要代码即可 ********** ********* ******** ******* ****** ***** **** *** ** * 2．利用 Recodset 对象也可以插入记录，现在针对图 1 所示的数据表，利用插入一条记录： 其中网站名称为“搜狐”，网站地址为“www.sohu.com”，网站简介为“门户网站”，提交日 期为当天。 注意：只给出主要代码即可，程序的开头部分已经给出。 <%
Dim db.strConn strConn='Dbq="&Server.Mappath("address.mdb")&"Driver=(Microsoft Access Driver (.mdb)1" Set db-Server.CreateObjec'ADODB.Conrection") 3。针对图1，现在有两个文件afm单和aMp,这两个文件用米向表中添加记录， 3dfrm.p已经给出，请你完成d1p:要求：(1)只要完成添如记录的主要代码：(2) 国站荷介(0》可以着略，其它字段均不可以省略。 Add_form.asp ctr> d>网站名称/td>td>cd c它 ad网站地址ctd小dcinput type-1et”me-URL”iax-40ochd qtpcr q>网站简介c exctarea name-'intro°rows2”cals"40°wTap-"sot>ehd str-str qd>dctdcinput type-'"submit”ue-”确定"hd c2 ad印（请在下面完成ad1即，开头都分语句和最后一条语句已经给出，具要在中何添如 语句即可) %Option Explicit%> % If Request Form("name")And Roquest.Form"URL")*Then 以下连上数据岸，建立一个Connection对象实例db Dim db Set db=Server.CreateObject"ADODB.Commection") db.Open "Dbg="&Server Mappath("wwwlink mdb")&".Driver=Microsoft Access Driver (.mdb)1" End If %>
9 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，开头部分语句和最后一条语句已经给出，只要在中间添加 语句即可） "" 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分，共0分） 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+1*3 Cube 10.Weekday 2.3 Response.Write Response.Write 11. Resporse.Redirect 12.VarNumber=" Response.Cookies("number Response.Cookies("number).Expires 13.Ubound UscrOnLind(1) 14.Between De家 Count*) 15."Dhq="&Server.Mappath("wwwlink.mdb")&"Driver-(Microsoft Access Driver (.mdb月 "Select*From link Order By Submit_date Dese" Not rs Eof %T"URL"%空 rs MoveNext 16.strSgl,db.1 Not rs Bof And Not rs Fof CInt PageSiz证 0
10 ASP 模拟试卷（一）参考答案 一．选择题（每题 2 分，共 40 分） BBDCB ABABB AACCB CCBAB 二．填空题（每题 1 分，共 40 分） 1． VBScript 2． IIS 3． “vbscript” 4． d 5． Rnd 或 Rnd() 6． 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．"Dbq=" & Server.Mappath("wwwlink.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" "Select * From link Order By Submit_date Desc" Not rs.Eof rs.MoveNext 16．strSql,db,1 Not rs.Bof And Not rs.Eof CInt PageSize