网络数据库4上课讲义.doc

精品文档

2、传统文化对大学生饰品消费的影响
尽管售价不菲，但仍没挡住喜欢它的人来来往往。这里有营业员们向顾客们示范着制作各种风格迥异的饰品，许多顾客也是学得不亦乐乎。在现场，有上班族在里面精挑细选成品，有细心的小女孩在仔细盘算着用料和价钱，准备自己制作的原料。可以想见，用本来稀奇的原料，加上别具匠心的制作，每一款成品都必是独一无二的。而这也许正是自己制造所能带来最大的快乐吧。
调研要解决的问题：
（3） 年龄优势
合计 50 100%
§8-2购物环境与消费行为 2004年3月20日
自制性手工艺品。自制饰品其实很简单，工艺一点也不复杂。近两年来，由于手机的普及，自制的手机挂坠特别受欢迎。
而手工艺制品是一种价格适中，不仅能锻炼同学们的动手能力，同时在制作过程中也能体会一下我国传统工艺的文化。无论是送给朋友还是亲人都能让人体会到一份浓厚的情谊。它的价值是不用金钱去估价而是用你一颗真诚而又温暖的心去体会的。更能让学生家长所接受。
市场环境所提供的创业机会是客观的，但还必须具备自身的创业优势，才能使我们的创业项目成为可行。作为大学生的我们所具有的优势在于：
（四）大学生对手工艺制品消费的要求一、选择题（每题2分，共30分）
1．小王正在家里通过拨号上网访问搜狐网站，此时谁是服务器端，谁是客户端？
(A) 小王的机器是服务器端，搜狐网站是客户端
(B) 搜狐网站是服务器端，小王的机器是客户端
(C) 小王的机器既是服务器端，又是客户端 （D）以上说法全不对
2．某同学开发了一个显示来访时间的ASP文件，存放在C:\inetpub\wwwroot下，此时如果在资源管理器中双击该文件，该文件可以正常显示吗？(A) 可以(B) 不可以
3．下列哪个变量名称是正确的？(A) 111 (B) _sum (C) ab_1 (D)a?b
4．执行完如下语句后，a的值为：
<% Dim a, a=FormatNumber(10.223344,3), %>
(A) 10.223344 (B) 10.2 (C) 10.223 (D) 10.000
5．哪个函数可以将数值转换为字符串？(A) Cdate (B)Cint (C) CStr (D) CDbl
6． 请问Int(3.45)和Int(-3.45)的值分别是什么？
(A) 4、-4 (B)3、-4 (C) 3、3 (D) 3、-3
7． 执行完如下语句后，sum的值为?
<% Dim sum,I
Sum=0, I=1
Do While I<=10 Sum=sum+I, I=I+1
If (I Mod 5=0) then Exit do End if
Loop %>
(A) 55 (B) 15 (C) 10 (D) 45
8．下列几个是Response对象的方法，哪个是用来输出二进制信息的。
(A) BinaryRead (B) BinaryWrite (C) Flush (D) Write
9． Aplication对象的默认有效期为多少分钟？
(A) 10 (B) 15 (C) 20 (D) 应用程序从启动到结束
10．问下面程序段执行完毕，页面上显示的内容是什么？
<% Dim strTemp, StrTemp=”user_name”
Session(“strTemp”)=”王刚”, Session(strTemp)=”张红”
Response.Write Session(“user_name”) %>
(A) 张红 (B)王刚 (C) 王刚张红 (D) 语法有错，无法正常输出
11．如有一个数据库，其中有表table，包括3个字段name（文本型）、grade（数字型）、birthday（日期/时间型），请问下面哪句能正确执行？
（其中 varName=”林亚” varGrade=98 varBirthday=#1983-1-1#）
(A) strSql="Insert Into table(name,grade,intro) Values('"& varName & "', " & varGrade & ",#" & varBirthday & "#)"
(B) strSql="Insert Into table(name,grade,intro) Values('" & varName & "', '" & varGrade & "',# " & varBirthday & "#)"
(C) strSql="Insert Into table(name,grade,intro) Values('" & varName & "', " & varGrade & "," & varBirthday & ")"
(D) strSql="Insert Into table(name,grade,intro) Values('varName', varGrade,# var Birthday#)"
12．问下面程序段执行完毕，页面上显示内容是什么：
<%
Response.Write Server.HTMLEncode(“<a href=''>新浪</a>”)
%>
(A) 新浪 (B) <a href=''>新浪</a>
(C) 新浪（超链接） (D) 该句有错，无法正常输出
13．使用事务处理时，假如要回滚事务处理，应该利用如下方法：
(A) BeginTrans (B) EndTrans (C) CommitTrans (D) RollBackTrans
14．设定义了记录集rs, 如果希望打开的记录集可以前后移动指针，并且可读可写，则应该为下面哪一句？
(A) rs.Open strSql,db (B)rs.Open strSql,db,1,3 (C)rs.Open strSql,db,,3 (D)rs.Open strSql,db,1
15．在使用下载组件时，若下载组件是dll文件形式（test.dll），并且我们将该文件存放到C:\temp\test.dll下，则注册时还要在运行窗口输入（ ）
(A) Run C:\temp\test.dll (B) Run test.dll (C) Regsvr32 C:\temp\test.dll (D) Regsvr32 test.dll
二、填空题（每空3分，共42分）
1. VBScript 中用关键字 来声明常量。
2. 在VBScript中，我们用检验函数 来判断变量是数字类型。
3. 在VBScript 中，过程有两种，一种是Sub子程序，一种是Function 函数，两者的区别在于 只执行程序而不返回值，而 可以将执行代码后的结果返回给请求程序。
4. 执行完 a= InStr(“ jjshang@”,”@”)后，a的值为 。
5. 语句 a=DateDiff( ,Date(),#1/1/2006#) 将返回离2006年元旦还有多少天。
6. 在执行程序时，有时我们不希望因为程序发生错误而导致程序终止，也不希望将错误暴露在访问者的面前，这时我们就要用到容错语句 ,这条语句表示，如果碰到错误，就跳过去继续执行下一句。
7. ASP的五大内部对象包括 、 、 、 、
8. 下面的程序段用Cookies来完成设置关键字user_name的值和有效期，请填写其中的空格。<% Response.Cookies(“user_name”)=“高航”
=#2005-10-1# ‘设置关键字user_name的有效期 %>
9. Session对象有它的有效期，默认为 分钟，另外，我们可以利用Session的一个属性 可以修改Session对象的有效期时长。
10. Server对象有一个属性 ，设定脚本文件的最长执行时间，默认90秒。
11. 对于W3 Jmail邮件发送组件，如果信箱是jjshang99@，密码是123456，发信服务器是smtp.163.dom。请写出执行发送邮件的语句
对于如下图的数据表link，请填写下面的SQL语句中的空格：(图1)

查询提交日期大于2003-1-1的前三条数据记录，并按提交日期的降序排列
strSql="Select * From link Where submit_date #2003-1-1# Order By submit_date "
查询网站名字中有“网”字的记录
strSql="Select * From link Where “
12. 针对上面图1所示，下列程序将完成对link表中内容的更新，所需要更新的字段假设已经从另外一个表单文件中取得，另假设数据库文件wwwlink.mdb和本文件存放在同一个文件夹下，请填写下面程序段中的空格。，数据表名为link。
<table><tr><td>网站名称</td><td>网站地址</td><td>提交日期</td></tr>
<% ‘以下获得所要修改记录的link_id
Dim varLink_id
varLink _id =Request.QueryString(“link_id”)
'以下连接数据库
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open
‘以下为获取修改字段
Dim varName,varUrl,varIntro,varSubmit_date
varName=Request.Form(“name”)
varUrl =Request.Form(“url”)
varIntro =Request.Form(“intro”)
varSubmit_date =Request.Form(“submit_date”) ‘以下strSql为更新语句
Dim strSql,
strSql=” Where link_id=” & varLink_id
'以下是执行更新语句
‘更新完数据后返回首页
Response.Redirect “index.asp” %> </table>
14． 下面是利用文件存取组件完成新建一个文本文件test.txt的过程，请填写其中的空格。 <% Dim FileObject '声明一个FileSystemObject对象实例
FileObject=Server.CreateObject("Scripting.FileSystemObject")
Dim TextFile '声明一个TextStream对象实例
TextFile= FileObject.CreateTextFile("C:\inetpub\wwwroot\asptemp\chapter10\test.txt")
'向文件中写一行内容，内容为“欢迎您”
TextFile.Close '关闭TextStream对象
Response.Write "已经成功建立文件，请自己打开查看。" %>
三、编程题（第一题8分，第二题8分，第三题12分）
1．有100个和尚吃100个馒头，大和尚1人吃4个，小和尚4人吃1个，问有多少个大和尚和多少个小和尚？
2．请使用ASP提供的计数器组件，在页面上显示“您是第”X “位访客”。（只要写出主要代码即可）
3．假设有数据库address,内有表link,该表中包含字段：姓名（name varchar(50)）,电话(tel varchar(20)),email(email varchar(50))，请分页将link表中的数据显示出来，且每页显示记录8条。
参考答案z
一．选择题（每题2分，共40分）
BBCCC DCBDA ABDBC
二．填空题（每题1分，共40分）

精品文档
1． Const
2． isNumeric
3． Sub子程序 、Function 函数
4． 8
5． “d”
6． On Error Resume Next
7． Response 、Request、Session、Applicatio、Server
8． Response.Cookies(“user_name”).Expires
9． 20 、Timeout
10． ScriptTimeout
11． Jmail.send("jjshang99:123456@")
12． top 3 、 > 、desc

13． "Dbq=" & Server.Mappath("wwwlink.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Update link Set name=’”&varName& “’, url=’”&varUrl& “’ , intro=’”&varIntro& “’,submit_date=#”&varName& “#
Db.Execute(strSql)
name like ‘%网%’
14． Set
Set
TextFile.WriteLine("欢迎您")

三．编程题（第一题10分，第二题20分）

1．<html>
<head>
<title>大小和尚吃馒头问题</title>
</head>
<body>
<%
Dim I,J,ren,mantou
For I=1 To 100 '大和尚从1到100循环
For J=1 To 100 '小和尚从1到100循环
ren=I+J '计算总人数
mantou=I*4+J*0.25 '计算总馒头数
If ren=100 And mantou=100 Then
Response.write"<br>大人=" & I & "&nbsp;小孩=" & J
End If
Next
Next
%>
</body>
</html>

2
．<%
Dim count '声明一个组件实例变量
Set count=Server.CreateObject("MSWC.pagecounter")
count.PageHit() '将当前网页访问次数加1
Dim visit_number
visit_number=count.Hits() 获取当前网页访问次数
Response.Write "您是第" & cStr(visit_number) & "位访客"
%>

3．
<% Option Explicit %>
<%
Dim db, strCon
strCon ="Dbq="&Server.Mappath("address.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
Set db=Server.CreateObject("ADODB.Connection")
db.Open strCon
%>
<html>
<head>
<title>查询全部成员</title>
</head>
<body>
<h2 align="center">成员列表</h2>
<%
'先输出表格的标题栏
%>
<center>
<table border="0" width="95%">
<tr bgcolor="#B7B7B7" align="center">
<td width=10%>姓名</td>
<td width=15%>电话</td>
<td width=25%>email</td> </tr>
<% '建立Recordset对象
Dim rs,strSql
Set rs=Server.CreateObject("ADODB.Recordset")
strSql ="Select * From link Order By name " '以姓名为序排列
rs.Open strSql,db,1 '因为要分页显示，所以用键盘指针
'下面查询记录，如果非空就显示记录，如果是空的，给出提示信息
If rs.Bof Or rs.Eof Then
Response.Write "现在还没有数据"
Else '以下主要为了分页显示
Dim page_size '定义每页多少条记录变量
Dim page_no '定义当前是第几页变量
Dim page_total '定义总页数变量
page_size=8 '每页显示10条记录
'如果第一次打开，则page_no为1，否则由传回的参数决定
If Request.QueryString("page_no")="" Then
page_no=1
Else
page_no=Cint(Request.QueryString ("page_no")) '用Cint将字符串变为整数
End If
rs.PageSize=page_size '设置每页多少条记录
page_total=rs.PageCount '返回总页数
rs.AbsolutePage=page_no '设置当前显示第几页
'下面一段利用表格显示当前页的所有记录
Dim I
I=page_size '该变量用来控制显示当前页记录
Do While Not rs.Eof And I>0 '循环直到当前页结束或文件结尾
I=I-1
'下面将利用表格输出名单
Response.Write "<tr bgcolor='#E6E6E6' align='center'>"
Response.Write "<td>" & rs("name") & "</td>"
Response.Write "<td>" & rs("tel") & " </td>"
Response.Write "<td><a href='mailto:" & rs("email") & "'>" & rs("email") & "</td>"
Response.Write "</tr>"
rs.MoveNext
Loop
Response.Write "</table>" '表格结束
Response.Write "<p>请选择数据页: "
'输出有关页数信息，从1到总页数循环，如不是当前页，就加上超链接
For I=1 To page_total
If I=page_no Then Response.Write I & "&nbsp"
Else Response.Write "<a href='index.asp?page_no=" & I & "'>" & I & "</a>&nbsp" End If
Next
End If '关闭对象
rs.Close
Set rs=nothing
db.Close
Set db=nothing
%> </center>
</body>
</html>