[资源] 【试题资源】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 ]

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。                                                                         <%                 '以下连接数据库                 Dim db                 Set db=Server.CreateObject("ADODB.Connection")                 db.Open                                   '以下建立记录集                 Dim strSql,rs                 strSql=                                  set rs=db.execute(strsql)                 '以下显示数据库记录                 Do While                                                             %>                                                                                                                                         <%                                                                                      Loop                 %>         网站名称 网站地址 提交日期 <%=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所示的数据表，利用插入一条记录：其中网站名称为“搜狐”，网站地址为“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
网站名称
网站地址
网站简介