| 查看: 907 | 回复: 1 | ||||||||
| 【奖励】 本帖被评价1次，作者m57091003增加金币 0.8 个 | ||||||||
[资源]
【试题资源】asp模拟试卷
|
||||||||
|
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" (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) 新浪 (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。
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所示的数据表，利用插入一条记录：其中网站名称为“搜狐”，网站地址为“www.sohu.com”，网站简介为“门户网站”，提交日期为当天。 注意：只给出主要代码即可，程序的开头部分已经给出。 <% 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 %> 参考答案 一．选择题（每题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． 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("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")="www.sohu.com" 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=" Values('" & 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 %>[ Last edited by 深蓝淡蓝 on 2013-2-18 at 09:33 ] |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：libolin3@tal.com - 附件 1 : asp模拟试卷（二）.doc
- 附件 2 : ASP模拟试卷（三）.doc
- 附件 3 : ASP模拟试卷（四）.doc
- 附件 4 : ASP模拟试卷（五）.doc
- 附件 5 : ASP模拟试卷（一）.doc
2013-02-17 23:02:51, 254.5 K
2013-02-17 23:02:59, 206 K
2013-02-17 23:03:03, 66 K
2013-02-17 23:03:06, 62 K
2013-02-17 23:03:14, 260 K
» 猜你喜欢
青椒的未来在哪里？
已经有15人回复
-
普通高校有编制讲师与211高校无编制专职科研岗，应该怎么选
已经有25人回复
-
双非博士还是985科研助理，然后再读博
已经有9人回复
-
急求博导收留
已经有14人回复
-
博士去高校就是为了有寒暑假吗？
已经有23人回复
-
连续3年国社科青年本子都没中，今年最后一次青年了，写本子完全浪费时间
已经有23人回复
-
基金委也是打工的
已经有32人回复
-
博三一直没文章怎么办
已经有35人回复
-
被导师抓着一个褥羊毛该咋办
已经有24人回复
-
今天才知道硕士考进大专比博士进本科工资高得多
已经有11人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 大家能打开上外公派研究生英语寒假班考试样卷的链接吗
已经有5人回复
- 湖北省高校教师岗前培训高等教育学模拟试卷(8月8日考，同道中人进)
已经有16人回复
简单回复
hzldy882楼
2014-02-10 00:42
回复
五星好评 顶一下，感谢分享！
20