应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 资源共享区 » 试题资源 » 计算机类 » 【试题资源】asp模拟试卷
21/1返回列表
查看: 909  |  回复: 1
查看全部回帖@他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
【奖励】 本帖被评价1次，作者m57091003增加金币 0.8 个
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

m57091003

木虫 (著名写手)

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

                       
网站名称
网站地址
网站简介
                               
回复此楼

» 本帖附件资源列表

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼2013-02-17 23:03:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 m57091003 的主题更新
21/1返回列表
☆ 无星级 ★ 一星级 ★★★ 三星级 ★★★★★ 五星级
普通表情 龙 兔 虎 猫 高级回复(可上传附件) 论文翻译-EnPapers美助理教授团队-SCI英文润色
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[教师之家] 我们学院常年位居 各学院 倒数第二。专业撤销的话，在编者有什么补偿？ +9 河西夜郎 2024-06-09 10/500 2024-06-11 18:29 by 起个新名字好难
[有机交流] 旋蒸请教 +5 办公室摸鱼 2024-06-09 8/400 2024-06-11 18:14 by 办公室摸鱼
[基金申请] 连续两年医学口青年项目初审体会 +7 进击的荣耀 2024-06-09 12/600 2024-06-11 18:01 by 进击的荣耀
[基金申请] 函评意见：既然你有中科院****人才项目了，就不要申请面上了。 +33 zcp521 2024-06-06 36/1800 2024-06-11 16:20 by panyuanxing
[硕博家园] 交友 +4 xkkl 2024-06-08 4/200 2024-06-11 16:02 by hxzx123
[考博] 还能读上博士吗 +9 小伙走起 2024-06-09 16/800 2024-06-11 15:36 by 小伙走起
[硕博家园] 博士找工作真难 +17 sdsk47 2024-06-05 22/1100 2024-06-11 13:36 by 心宁
[教师之家] 副教授跳槽 +23 �徐凤年 2024-06-07 24/1200 2024-06-11 13:14 by 心宁
[基金申请] 看到大家一直在说代表作NC，不明觉厉 +24 翰海2022 2024-06-07 24/1200 2024-06-11 13:04 by arthas_007
[论文投稿] water research状态咨询 5+3 Flyyawa 2024-06-10 6/300 2024-06-11 09:45 by bobvan
[教师之家] 公办双非，学生论文升学就业都不行。一本大学的论文升学就业没问题吧？ +5 河西夜郎 2024-06-09 5/250 2024-06-10 17:59 by yyallen2003
[基金申请] 什么时候会评呢？ +7 qq632458 2024-06-07 9/450 2024-06-10 10:07 by Howard28
[硕博家园] 这样的课题组值得去吗 +8 hyeooon 2024-06-07 8/400 2024-06-09 22:29 by ffffjjjj
[基金申请] C口食品 +4 好好不过分 2024-06-09 16/800 2024-06-09 22:08 by Pickfoot
[基金申请] B01化学口的，近几年要什么样的评价才能上会呀？ +4 salmon95 2024-06-06 5/250 2024-06-09 09:45 by chem-cai
[论文投稿] Analytica Chimica Acta 投稿系统中 abstract 字符数限制600什么意思？ 3+3 3921 2024-06-05 5/250 2024-06-09 09:45 by bobvan
[论文投稿] 毕业后发文章 +5 Prome_Epime 2024-06-06 5/250 2024-06-08 07:11 by therotyonth
[论文投稿] 电化学投稿 +4 爱安沐梅梅 2024-06-06 14/700 2024-06-06 21:51 by 爱安沐梅梅
[论文投稿] 博士学的是健康教育，需要自己找课题，哪位大神帮忙指导一下，选什么健康教育课题呢？ 30+3 lepeau 2024-06-05 5/250 2024-06-06 11:38 by nono2009
[论文投稿] Industrial lurication and tribology初次投稿被退回求助 5+3 lmjz66 2024-06-05 3/150 2024-06-05 16:32 by wjykycg
信息提示
关闭
请填处理意见
关闭