WEB习题

WEB习题
WEB习题

( )1. VBScript程序语言是Microsoft公司将VB(Visual Basic)程序语言加以简化,所衍生出来的程序语言。

( )2. HTML也有所谓如“IF…Then…”的判断语句。

( )3. VBScript的注释符号为“//”。

( )4. VBScript的程序代码很难保密,容易被偷窥。

( )5. 常量是一种不会改变的数,定义常量要使用“Dim常量名称”。

( )6. 运算符“+”也可以用来连接字符串。

( )7. 运算符“Mod”可以算出除法结果中的整数。

( )8. VBScript中次方的算法是使用“^”。

( )9. “30 < 1 OR 5 > 4”计算出的结果“False”。

( )10. 定义数组时要用“Const数组名”。

二、操作题

1. 设计一个VBScript程序,能计算出边长为5厘米的正方形面积,并显示出计算结果,如图2-8所示。<\Ch02\正方形面积.htm>

2. 设计一个VBScript程序,能比较边长为5厘米的正方形和半径为5厘米的圆形哪个面积比较大,如果圆形比较大,就显示“True”,若正方形比较大,就显示“False”,如图2-9所示。<\Ch02\比较大小.htm>

3. 设计一个VBScript程序,计算出边长为5厘米的正方形和半径为5厘米的圆形的面积差,并显示出来,如图2-10所示。<\Ch02\面积差.htm>

参考答案:

一、是非题

T F F T F T F T F F

二、操作题

1.

</p><p>正方形面积</p><p>

2.

</p><p>比较大小</p><p>

3.

</p><p>面积差</p><p>

( )1. 每一个If后面一定要有Else,否则会出现分页错误。

( )2. Select的后面一定要有End Select,否则会出现分页错误。( )3. 使用InputBox函数可以让用户输入数值,再让程序计算出结果。( )4. For…Next循环不一定要有一个变量作为初始值,但是有比较好。( )5. For…Next循环里不能再放另外一个循环,否则会出现分页错误。( )6. For…Next循环后可以用Step来设置间隔值,如果不设,默认值是1。

( )7. Do…Loop循环是用While或Until来判断循环是否执行的。

( )8. While是指条件为假就执行循环,Until是条件为真则执行循环。( )9. 除了使用While或Until来离开Do…Loop循环之外,也可以用Exit Do来离开。

( )10. 如果在使用Do…Loop循环时,没有使用Until或While来跳出循环,那么循环在执行一百次之后就会自动停止。

二、操作题

1. 设计一个VBScript程序,依用户在对话框内输入的身高判断是否要购买全票 (身高160cm以上需购买全票),效果如图3-18a、图3-18b所示。<\Ch03\买票1.htm>

2. 设计一个VBScript程序,依用户在对话框内输入的身高判断所需购买票的种类 (身高160cm以上需购买全票,140~159cm买半票,139cm以下儿童票),效果如图3-19a、图3-19b所示。<\Ch03\买票2.htm>

3. 设计一个VBScript程序,能显示出今天是星期几 (使用WeekDay(now) 函数),效果如图3-20a、图3-20b所示。<\Ch03\星期几.htm>

参考答案

一、是非题

F T F F F T T F T F

二、操作题

1.

2.

3.

( )1. 除非调用子程序,否则子程序不会自动执行。

( )2. 函数与子程序的不同之处在于子程序不能传入参数。

( )3. 函数执行后会返回值,子程序则不会。

( )4. 函数只能传入一个参数,传入两个以上的参数会发生分页错误。( )5. 除了用End Sub来结束子程序之外,也可以使用Exit Sub。

( )6. VBScript也提供了许多内置函数,以供设计师使用。

( )7. IsNumeric() 函数可以用来计算绝对值。

( )8. 用来计算平方的函数是Sqr()。

( )9. RndD() 函数会产生10 ~ 100之间的随机数。

( )10. 可以用Rnd() 函数得到随机数,但必须先用Randomize来声明使用随机数,否则每次得到的随机数都会一样。

二、操作题

1. 设计一个VBScript程序,如果是白天(6点至18点之间)进入网页就会显示“早安您好”,如果晚上就会显示“晚安”,如图4-39a、图4-39b所示。<\Ch04\早安.htm>

2. 设计一个网页,当上网者在输入框中输入姓名后,会显示含有用户姓名的欢迎信息对话框,如图4-40a、图4-40b所示。<\Ch04\欢迎.htm>

3. 设计一个网页,以显示出今天是星期几,如图4-41所示。<\Ch04\星期几.htm>

4. 设计一个程序,在用户离开网页时会显示“玩得愉快吗”的对话框,并且可让用户按下“是”、“否”按钮,如图4-42a、图4-42b所示。<\Ch04\离开.htm> 提示:离开的事件名为“Window_onUnload”。

参考答案:

一、是非题

T F T F T T F F F F

二、操作题

1.

早安

2.

欢迎

3.

星期几

4.

离开

( )1. 下面哪一个是ASP默认的对象?(复选)

A.Application

B.Cookie

C.Server

D.Response

( )2. 若要将数据由服务器传送至浏览器,可以使用哪个方法?

A.Flush

B.Redirect

C.Respon se

D.Write

( )3. “属性”是用来描述对象的特性,而“方法”则是一群放在一起的“值”。

A.是

B.否

( )4. 哪个ASP对象可用来决定何时或如何将输出由服务器端传送至浏览器?

A.Request

B.Session

C.Application

D.Response

( )5. 哪个ASP对象可用来记录个别浏览器端专用的变量?

A.Request

B.Session

C.Application

D.Response

( )6. 若要停止ASP程序的执行并将存放在缓冲区的输出传送至浏览器端,可以使用哪个方法?

A.Clear

B.Flush

C.End

D.Write

( )7. 若要将浏览器端导向至其他网页,可以使用哪个方法?

A.Redirect

B.End

C.Flush

D.Ap pendToLog

( )8. 下列有关Response.Write方法的语法哪一个正确?(复选)

A.若要显示的信息包含双引号,必须将双引号“""”改为单引号“'”。

B.若要显示的信息包含双引号,必须将双引号“""”改为两个双引号“""""”。

C.若要显示的信息包含 %>,必须改为 \%>。

D.若要显示的信息包含 %>,必须改为 %\>。

( )9. 我们可以使用哪个属性设置放进缓存区的网页逾期时间长短?A.CacheControl B.Buffer C.Status D.Expires

( )10. 下列哪一个是Cookie的缺点?(复选)

A.造成浏览器端有安全上的威胁

B.Cookie会自动消失

C.Cookie可以记录对象、数组等复杂的数据类型

D.Cookie可能被禁止写入浏览器端

二、操作题

1. 编写一个网页 侦测今天的日期,若为偶数,就重新导向到 网页,显示如图5-11a所示的浏览结果;若为奇数,就重新导向到 网页,显示如图5-11b所示的浏览结果。

2. 请编写一个ASP程序在浏览器显示如图5-12所示的信息,其中泡泡龙的图案为1.gif,请特别注意信息最后的字符串“<22∶02>”,这是根据系统目前的时间,取出小时及分钟之后的结果。

参考答案:

一、选择题

1-5 (ACD)D B D B

6-10 C A (ABD)D(AD)

二、操作题

1.<%@ Language=VBScript %>

<% Option Explicit %>

<% Response.Buffer = True %>

<%

Dim Tmp1, Tmp2, PageName

Tmp1 = DatePart(""d"",Date()) '取得今天是几号

Tmp2 = Tmp1 Mod 2

Select Case Tmp2

Case ""0""

PageName=""Even.asp""

Case ""1""

PageName=""Odd.asp""

END Select

Response.Redirect PageName

%>

2.<%

'取出目前时间的小时

strHour = Hour(Time())

If Len(strHour) = 1 then strHour = ""0"" & strHour

'取出目前时间的分钟

strMinute = Minute(Time())

If Len(strMinute) = 1 then strMinute = ""0"" & strMinute

'结合目前时间的小时及分钟,以 <00:00> 形式来显示

strTime = ""<"" & strHour & "":"" & strMinute & ""> ""

'插入图片、变换字体、显示文字与时间

strTmp = ""大家好,"" & _ ""我是宁夕,请多多指教!"" & strTime & """"

Response.Write strTmp

%>

请制作如图6-29a、图6-29b的窗体网页 <小档案.htm> 及 <确认网页.asp>。

【说明】

l 在 <小档案.htm> 中,背景颜色为 #D1FCE8,标题图片为

profile1.jpg,置中排放 (使用

...
标记)。

l 最高学历的下拉式菜单有“高中以下”、“大专院校”、“硕士”、“博士”、“其他” 等5个选项,高度为4,不允许复选。

l 多行文本框的高度为4,宽度为45。提交按钮上面的文字为“传送数据”,重新输入按钮上面的文字为“清除数据”。

l 在 <确认网页.asp> 中,背景颜色为 #D1EFFC,标题图片为

profile2.jpg,置中排放。

二、选择题

( )1. 下列哪种表单字段适合作为单一的选择题使用?

A.单行文本框

B.复选框

C.选择

钮 D.下拉式菜单

( )2. 下列哪种表单字段适合用来输入自我介绍?

A.复选框

B.多行文本框

C.单行文本框

D.下拉式菜单

( )3. 窗体处理程序可以使用哪种语言来编写?

A.CGI

B.VBscript

C.JavaScript

D.以上皆可

( )4. 下列有关单行文本框的语句哪个是错误的?

A.名称不限中英文字

B.TAB键顺序可以是1 ~ 999的数字

C. 标记的TYPE属性须设置为TEXT

D.若要显示默认的数据,可以设置VALUE属性

( )5. 下列有关选择按钮的语句哪个是错误的?

A.选择按钮适合用来询问只有一个答案的问题

B.同一组单选按钮的每个单选按钮的名称必需相同

C. 标记的TYPE属性需设置为CHECKBOX

D.同一组单选按钮的每个单选按钮是通过VALUE属性去区分

( )6. 下列语句哪个是错误的?

A.IIS为Internet Information Server的缩写

B.Windows 2000 Professional内置IIS 5.0

C.我们可以使用PWS 4.0将 Windows 98虚拟为Web服务器

D.PWS为Personal Web Server的缩写

( )7. 下列语句哪个是正确的?

A.我们可以在IE使用“文件\打开” 指令执行表单网页

B.我们可以使用

标记的METHOD属性指定表单处理程序

C.我们可以使用 标记的TARGET属性指定表单处理程序的目标框架名称

D.表单字段的名称限英文且唯一

( )8. 下列语句哪个是正确的?

A.密码字段是在表单上面看不见,但值仍会返回Web服务器的表单字段

B.若要设置文件下载,可以使用超级链接标记 ...

C.若要设置文件上传,只要在浏览器端插入文件上传字段即可

D.若要将指定的表单字段框起来,可以使用 ... 标记

( )9. 我们可以使用哪个 ASP 对象取得表单字段的值?

A.Response

B.Session

C.Request

D.Application

( )10. 若要将表单数据以E-Mail形式返回,必须利用 标记的哪个属性设置E-mail地址?

A.METHOD

B.ACTION

C.onClick

D.TARGET ( )11. 若要将表单数据以字符串的方式附加在网址的后面返回服务器端,必须将 标记的METHOD属性设置为下列哪一个?

A.POST

B.GOT

C.GET D .QUERY

( )12. 下列哪一个环境变量可以返回服务器端的IP地址?

A.Path_Info

B.Local_Addr

C.Remote_Addr

D.URL ( )13. 若要设置下拉式菜单的各个选项,可以使用哪个标记?

A.

B.

  • C. 标记的哪个属性?

    A.SIZE

    B.VALUE

    C.TABINDEX

    D.MAXL ENGTH

    ( )15. 若要设置当浏览者将焦点自表单字段上移开后所要执行的Script,可以使用哪个属性?

    A.onBlur

    B.onClick

    C.onFocus D .onSelect

    参考答案:

    一、操作题

    小档案.htm代码:

    ""https://www.360docs.net/doc/4017819109.html,/TR/html40/strict.dtd"">

    个人小档案

    个人信息

    姓    名:

    SIZE=""20"">

    性    别:

    VALUE=""Male"">男

    VALUE=""Female"">女

    最高学历:


    其他信息

    您喜欢下列哪些活动(可复选)?

    阅读

    打球

    逛街

    听音乐

    水上运动

    旅行

    您对于目前的“哈日风”有何看法?


    "">

  • 确认网页.asp代码:

    <%@ Language=VBScript %>

    <% Option Explicit %>

    <%

    Dim Name, Sex, School, Interest, Thought

    Name=Request(""UserName"")

    Select Case Request(""UserSex"")

    Case ""Male"":

    Sex=""女""

    Case ""Female"":

    Sex=""男""

    End Select

    School=Request(""UserSchool"")

    Interest=Request(""UserInterest"")

    Thought=Replace (Request(""UserThought""), vbCrLf, ""
    "")

    %>

    个人小档案确认网页

    <%=Name%>,您好!谢谢您填写个人资料表,您输入的资料如下:

    性别:<%=Sex%>

    最高学历:<%=School%>

    您感兴趣的活动:

    COLOR=""Blue""><%=Interest%>

    您对“哈日风”的看法:

    COLOR=""Blue"">

    <%=Thought%>

    二、选择题

    1-5 CB(BC)AC

    6-10 BDBCB

    11-15 CCADC

    ( )1. 若在ASP程序中使用Server.Execute(Path) 方法调用Path指定的ASP程序,待被调用的程序执行完毕之后便不会再返回原来的程序,对不对?A.是 B.否

    ( )2. 若要将网页重新导向,而且要保留所有内置对象的值,那么必须使用哪个方法?

    A.Execute

    B.Redirect

    C.Transfer

    D. MapPath

    ( )3. 若要将字符串进行编码,使它不会被浏览器解释为HTML语法,可以使用哪个方法?

    A.HTMLEncodeing

    B.URLEncode

    C.MapEncode

    D.ASPEncod e

    ( )4. 若要找出父目录的实际路径,可以使用下列哪种语法?

    A.Server.MapPath(""/"")

    B. Server.MapPath(""./"")

    C.Server.MapPath(""../"")

    D.Server.MapPath(""../"")

    ( )5. FileSystemObject服务器组件的DriveExists方法可以用来检查文件是否存在,对不对?

    A.

    B.否

    ( )6. 若要复制文件夹,可以使用下列哪个方法?(复选)

    A.FileSystemObject服务器组件的CopyFolder方法

    B.FileSystemObject服务器组件的Copy方法

    C.Folder服务器组件的CopyFolder方法

    D.Folder服务器组件的Copy方法

    ( )7. objFSO.OpenTextFile(""a.txt"", 1, True) 的第三个参数意义是什么?

    A.以只读的方式打开文本文件

    B.以附加到文件后面的方式打开文本文件

    C.若打开的文件不存在,就建立

    D.若打开的文件不存在,仍不建立( )8. objFile.OpenAsTextStream(3, 0) 的第一个参数意义是什么?

    A.以只读的方式打开文本文件

    B.以附加到文件后面的方式打开文本文件

    C.文本文件的格式为Unicode

    D.文本文件的格式为ASCII

    ( )9. 若要从文本文件读取字符,可以使用哪个方法?

    A.Read

    B.ReadChar

    C.ReadLine

    D.ReadAll ( )10. 若要在文本文件写入空行,可以使用哪个方法?

    A.Write

    B.WriteChar

    C.WriteLine

    D.WriteB lankLines

    二、操作题

    1. 编写一个ASP程序打开Sample

    2.txt文件,可自行建立文本文件,然后一次读取一行,写入另一个新的文本文件 Sample4.txt。

    2. 编写一个ASP程序打开Sample5.txt文件,可自行建立文本文件,然后一次读取一个字符,转换成大写字母再写入另一个新的文本文件 Sample6.txt。

    参考答案:

    一、选择题

    1-5 BCBCB

    6-10 (AD)CBDC

    二、操作题

    1.

    <%

    Dim objFSO, objTS1, objTS2, ALine

    Set objFSO =

    Server.CreateObject(""Scripting.FileSystemObject"")

    Set objTS1 =

    objFSO.OpenTextFile(Server.MapPath(""\Ch6\Sample2.txt""), 1) Set objTS2 =

    objFSO.CreateTextFile(Server.MapPath(""\Ch6\Sample4.txt""))

    Do While Not objTS1.AtEndOfStream

    ALine = objTS1.ReadLine

    objTS2.WriteLine(ALine)

    Loop

    objTS1.Close

    objTS2.Close

    Set objTS1 = Nothing

    Set objTS2 = Nothing

    Set objFSO = Nothing

    %>

    2.

    <%

    Dim objFSO, objTS1, objTS2, AChar

    Set objFSO =

    Server.CreateObject(""Scripting.FileSystemObject"")

    Set objTS1 =

    objFSO.OpenTextFile(Server.MapPath(""\Ch6\Sample5.txt""), 1) Set objTS2 =

    objFSO.CreateTextFile(Server.MapPath(""\Ch6\Sample6.txt""))

    Do While Not objTS1.AtEndOfStream

    AChar = UCase(objTS1.Read(1))

    objTS2.Write(AChar)

    Loop

    objTS1.Close

    objTS2.Close

    Set objTS1 = Nothing

    Set objTS2 = Nothing

    Set objFSO = Nothing

    %>

    ( )1. Application对象默认的生命周期起始于Web服务器开始执行时,终止于Web服务器结束执行时,或超过20分钟没有任何浏览器访问网页,对不对?

    A.是

    B.否( )2. Application对象只能记录变量、字符串、日期等简单的数据类型,对不对?

    A.是

    B.否( )3. 在建立Application对象的时候会产生哪个事件?

    A.Application_OnStart

    B.Applicatio n_OnEnd

    C.Application_Start

    D.Applica tion_End

    ( )4. Application对象的所有非对象变量是存放在哪个集合中?

    A.StaticObjects

    B.Objects

    C.Contents

    D.StaticContents

    ( )5. Session对象记录的是所有浏览器端共享的变量,而Application对象记录的则是个别浏览器端专用的变量,对不对?

    A.是

    B.否( )6. 下列语句哪一个是正确的?(复选)

    A.变量的生命周期起始于网页被执行时,终止于网页结束执行时。

    B.Cookie的生命周期起始于浏览器被执行时,终止于浏览器结束执行时,但可以使用Response.Cookies(name).Expires属性设置其生命周期。

    C.Session对象的生命周期起始于Web服务器开始执行时,终止于Web服务器结束执行时,或超过20分钟没有浏览器访问网页。

    D.Application对象的生命周期起始于浏览器第一次与服务器联机时,终止于浏览器结束联机时,或浏览器超过 20 分钟没有访问网页。

    ( )7. 若要在完成目前的网页之后便结束Session对象,可以使用哪个方法?

    A.Clear

    B.End

    C.Timeout

    D.Abandon

    ( )8. 下列语句哪一个是正确的?(复选)

    A.Session对象无法记录数组、对象等复杂的数据类型。

    B.Session对象存储在服务器的内存,一旦有很多浏览器进行联机,效率将会降低。

    C.无论在何种情况,SessionID绝对是唯一的。

    D.TimeOut属性的值越大,所占用的内存越多。

    ( )9. 下列语句哪一个是错误的?

    A.Application对象的OnStart事件发生于Web服务器开始执行时

    B.Session对象的的OnEnd事件发生于浏览器与服务器断线时,或浏览者在Session.TimeOut指定的时间之内没有访问网页时。

    C.若要设置Session对象的初始值,可以在Global.asa文件内进行设置。

    D.Glogal.asa文件应该放在和网页相同的文件夹内。

    ( )10. Session的OnEnd事件处理程序只能使用Session、Application和Server等3个ASP内置的对象,对不对?

    A.是

    B.否

    二、操作题

    1. 编写一个Glogal.asa文件,然后在此文件内编写Session对象的OnStart 事件处理程序,令Session变量“LogonTime”的值为浏览器与服务器联机当时的日期与时间。

    2. 编写两个ASP程序,其中图8-14a所示的 是提供一个表单让用户输入名称,待按下“登录”按钮之后,便去执行如图8-14b所示的

    ,这个程序不仅会以图形计数器的形式列出网页的访客人数,还会统计目前的在线人数与在线名单 (注:数字0~ 9的图形文件为digit0.jpg ~ digit9.jpg)。

    参考答案

    一、选择题

    1-5 ABACB

    6-10(AB)D(BD)AA

    二、操作题

    1.

    2.

    请输入您的名字:

    SIZE=""40"">

    <%

    Dim RefreshTime, IdleTime, TotalUsers, OnlineUser(), Tmp(), Num, I, NewUser, User, UserName

    RefreshTime = 10 '设置网页自动更新时间为10秒

    IdleTime = RefreshTime * 3 '设置闲置时间为自动更新时间的3倍

    NewUser = Request(""UserName"")

    Application.Lock

    'OnlineUser数组记录了所有连线到此网页的用户名称

    '清点所有连线到此网页的用户, 然后将目前的用户名称放入数组的最后面

    If Application(NewUser & ""LastAccessTime"") = Empty Then

    If Application(""TotalUsers"") = Empty Then

    Application(""TotalUsers"") = 0

    ReDim Tmp(Application(""TotalUsers"") + 1)

    Num = 0

    If Application(""TotalUsers"") > 0 Then

    For I = LBOUND(Application(""OnlineUser"")) To

    UBOUND(Application(""OnlineUser""))

    User = Application(""OnlineUser"")(I)

    If User <> NewUser AND User <> Session(""UserName"") Then

    Tmp(Num) = User

    Num = Num + 1

    Else

    Application(User & ""LastAccessTime"") = Empty

    End If

    Next

    End If

    Session(""UserName"") = NewUser

    Tmp(Num) = Session(""UserName"")

    Application(""TotalUsers"") = Num + 1

    ReDim Preserve Tmp(Application(""TotalUsers""))

    Application(""OnlineUser"") = Tmp

    End If

    '记录目前用户的最近存取时间

    Application(Session(""UserName"") & ""LastAccessTime"") = Timer

    '检查所有连线到此网页的用户的最近存取时间, 若与目前时间相差30秒以上, 表示结束连线

    ReDim Tmp(Application(""TotalUsers""))

    Num = 0

    For I = 0 To Application(""TotalUsers"") - 1

    User = Application(""OnlineUser"")(I)

    If (Timer - Application(User & ""LastAccessTime"")) < IdleTime Then Tmp(Num) = User

    Num = Num + 1

    Else

    Application(User & ""LastAccessTime"") = Empty

    End If

    Next

    'Num表示目前线上人数, 若与Application(""TotalUsers"")不同, 表示中间有人断线

    If Num <> Application(""TotalUsers"") Then

    ReDim Preserve Tmp(Num)

    Application(""OnlineUser"") = Tmp

    Application(""TotalUsers"") = Num

    End If

    Application.UnLock

    %>

    , URL=<%= Request.ServerVariables(""PATH_INFO"") %>?UserName=<%=

    Request(""UserName"") %>"">

    <%

    If Session(""Counter"") = Empty Then

    Session(""Counter"") = G_Counts(""Counter3.txt"")

    End If

    %>

    您是第<%= Session(""Counter"") %>位访客

    目前在线人数:<%= Application(""TotalUsers"") %>

    ( )1. 下列语句哪一个是错误的?(复选)

    A.Cookie的优点之一是存放在浏览器端,不会占用服务器端的空间。

    B.服务器端文件访问即使在数据量很大时,也不会影响到访问效率。

    C.数据库适合记录大量数据,可做读取、插入、删除、更新与查询。

    D.打开数据库连接所花费的时间比查询少。

    ( )2. ASP是通过一组统称为ADO的对象模块来访问数据库,对不对?

    A.是

    B.否

    ( )3. ADO对象模块只能访问Microsoft Access和SQL Server数据库,对不对?

    A.是

    B.否

    ( )4. 用来打开与关闭数据库连接的是哪个ADO对象?

    https://www.360docs.net/doc/4017819109.html,mand

    B.Recordset

    C.Connection

    D.Field

    ( )5. 用来读取、插入、删除或更新表记录的是哪个ADO对象?

    https://www.360docs.net/doc/4017819109.html,mand

    B.Recordset

    C.Connection .Field

    ( )6. 若要移动到表的最后一条记录,可以使用哪个方法?

    A.Move

    B.MoveNext

    C.MoveFirst

    D.MoveLast

    ( )7. 我们可以使用哪个方法筛选表的记录?

    A.Sort

    B.Filter

    C.Open

    D.Execute

    ( )8. Access数据库可能由一个或多个表所构成,对不对?

    A.是

    B.否

    ( )9. 下列哪一个代表表的第一条记录?

    A.EOF

    B.FOF

    C.BOF

    D.ROF

    ( )10. Recordset对象的CursorType属性设置为下列何者时会使用最少的系统资源?

    A.adOpenForwardOnly

    B.adOpenKeyse t

    C.adOpenDynamic

    D.adOpenSta tic

    二、操作题

    请制作一个Access数据库文件 ,表名称为“出货单”,字段名称与数据类型如表10-5所示,然后再依照图10-22所示输入12条记录。

    来。

    (b) 请编写一个ASP程序在此表新增两条记录,第一条记录的值为“快快乐乐学Excel 2000”、“3103123”、“400”、“50”、“0.85”、“何嘉仁”,

    第二条记录的值为“快快乐乐学Access 2000”、“3103125”、“420”、“100”、“0.8”、“金石堂”,如图10-24所示。

    (c) 请编写一个ASP程序读取表的所有记录,并依照数量由高至低排列显示出来,如图10-25所示。

    (d) 请编写一个ASP程序读取表的所有记录,并筛选出数量大于等于200且折扣大于等于0.7的记录,如图10-26所示。

    参考答案

    一、选择题

    1-5 (BD)ABCB

    6-10 DBACA

    二、操作题

    a.

    <%

    Dim objRS

    Set objRS = GetRecordset(""order.mdb"", ""出货单"")

    %>

    <%

    Do While Not objRS.EOF

    Response.Write ""

    ""

    Response.Write ""

    ""

    Response.Write ""

    ""

    Response.Write ""

    ""

    Response.Write ""

    ""

    Response.Write ""

    "" objRS.MoveNext

    Loop

    '关闭数据库连接并释放对象

    objRS.Close

    Set objRS = Nothing

    objConn.Close

    Set objConn = Nothing

    %>

    书名书号定价数量折扣客户
    "" & objRS(""书名"") & """" & objRS(""书号"") & """" & objRS(""定价"") & """" & objRS(""数量"") & """" & objRS(""折扣"") & """" & objRS(""客户"") & ""

    b.

    <%

    Dim objRS

    Set objRS = GetRecordset(""order.mdb"", ""出货单"")

    '新增两条记录

    objRS.AddNew Array(""书名"" ,""书号"", ""定价"", ""数量"", ""折扣"", ""客户""), _

    Array(""快快乐乐学Excel 2000"", ""3103123"", ""400"", ""50"", ""0.85"", ""何嘉仁"")

    objRS.AddNew Array(""书名"" ,""书号"", ""定价"", ""数量"", ""折扣"", ""客户""), _

    Array(""快快乐乐学Access 2000"", ""3103125"", ""420"", ""100"", ""0.8"", ""金石堂"")

    objRS.Update

    '关闭数据库连接并释放对象

    objRS.Close

    Set objRS = Nothing

    objConn.Close

    Set objConn = Nothing

    %>

    c.

    <%

    '使用Connection对象打开Access数据库

    Dim

    objConn

    Set objConn =

    Server.CreateObject(""ADODB.Connection"")

    web试题

    1、掌握html主要标签的含义,例如

    表格标签,决定表格的各项参数
    表格栏设定该表格的栏 段落标签为字,画,表格等之间留一空白行