( )12. 下列哪一个环境变量可以返回服务器端的IP地址?
D.URL ( )13. 若要设置下拉式菜单的各个选项,可以使用哪个标记?
A.
B.
C.
D.< OL>
( )14. 若要限制用户在单行文本框中所能输入的最多字符数,可以使用
标记的哪个属性?
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"">
个人小档案![]()
确认网页.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.
Sub Session_OnStart()
Session(""LogonTime"") = Now()
End Sub
2.
Sub Transfer()
Window.open ""Ex7-2.asp?UserName="" & https://www.360docs.net/doc/4017819109.html,erName.Value, ""_self""
End Sub
<%
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"") %>
<% For I = 0 To (Application(""TotalUsers"") - 1) %>
<% Next %>
( )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 ""
"" & objRS(""书名"") & "" | ""Response.Write ""
"" & objRS(""书号"") & "" | ""Response.Write ""
"" & objRS(""定价"") & "" | ""Response.Write ""
"" & objRS(""数量"") & "" | ""Response.Write ""
"" & objRS(""折扣"") & "" | ""Response.Write ""
"" & objRS(""客户"") & "" |
"" objRS.MoveNextLoop
'关闭数据库连接并释放对象
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
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主要标签的含义,例如
等。。。。 表格标签,决定表格的各项参数 表格栏设定该表格的栏 段落标签为字,画,表格等之间留一空白行 |