《网站建设》课程实验指导书.docx

实训3利用FSO对象制作简单留言本

3.1实验目的和要求

Ø掌握组件的使用方法。

Ø掌握fso对象里对文本文件进行读写操作的方法。

。

3.2实验重点和难点

Øfso对象操作文本文件的方法。

3.3实验内容

Ø利用fso对象里面对文本文件进行读写操作的方法，制作一个简单的留言本，实现写留言和看留言这两个功能。

3.4实验步骤

Ø程序分析

1.限于FSO操作文本文件的局限性，本程序只能实现写留言和查看留言这两个功能。

留言的内容是保存在文本文件里面的。

2.保存的格式，也就是我们需要保存的内容。

a）留言最基本的内容，留言人，留言内容，留言时间。

b）利用FSO写文件时，都是一行行的写的，所以我们设计保存在文本文件里面的留言是每三行是一条留言，第一行是留言人，第二行是留言内容，第三行是留言时间。

3.写留言。

a）前台让用户填写留言的网页，index.asp。

b）后台处理用户留言的网页，把用户所填写的留言写到文本文件里面去，Write.asp。

4.查看留言的网页，Read.asp。

Ø程序代码

1.新建一个文本文件Message.txt。

2.填写留言的网页。

Index.asp。

如图3-1。

a）表单Action属性要指定处理留言的网页。

Action=”write.asp”

b）表单组件的名字：

1：

names，2：

Message。

图31

3.后台处理留言的网页。

Write.asp。

a）新建一个aspVBScript动态网，把里面的代码全部删除，用Write.asp保存起来。

b）把以下代码输入，保存。

<%

names=Request.Form（"names"）'获取留言人的姓名

Message=Replace（Request.Form（"Message"）,chr（13）+chr（10）,"
"）'获取留言内容

Setfso=Server.CreateObject（"Scripting.FileSystemObject"）

'用Server.CreateObject（“对象名字”）来创建fso对象实例

SettxtStream=fso.OpenTextFile（Server.MapPath（"Message.txt"）,8）

'打开文本文件，创建文本流对象。

Server.MapPath（"虚拟路径"），把虚拟路径转成实际路径，因为操作文件时要用实际路径来操作。

txtStream.WriteLine（names）'用WriteLine的方法往文本文件里面写一行文字。

写第一行，姓名

txtStream.WriteLine（Message）'写第二行，留言内容

txtStream.WriteLine（Now（））'写第三行，留言时间

txtStream.close'关闭对象

Setfso=nothing'关闭对象

Response.Redirect"read.asp"'用Response.Redirect从当前页面转到查看留言页面

%>

4.查看留言页面。

Read.asp。

如图3-2。

a）每条留言之间用一条横线

b）文本文件是以三行为一条完整的留言，所以读取的时候，也是每读三行就是一条完整的留言。

c）如何判断已经把全部留言读取完毕？

用到txtStream对象里面的AtEndOfLine属性来判断是否已经到达文件的最后一行，也就是判断是否已经把内容读取完了。

当AtEndOfLine的值为True的时候，即是已经把留言内容全部读取完了，所以我们是在AtEndOfLine的值为False时候，需要继续读取留言内容。

图32

<%

Setfso=Server.CreateObject（"Scripting.FileSystemObject"）'创建fso对象实例

SettxtStream=fso.OpenTextFile（Server.MapPath（"Message.txt"））'打开文本文件来读

i=1'第几条留言的标记

DoWhileNottxtStream.AtEndOfLine'判断留言是否已经全部读取

Response.write"第"&i&"条留言
留言人：

"&txtStream.ReadLine

'用ReadLine方法一次读取一行。

读第一行

Response.write"
留言内容：

"&txtStream.ReadLine&"
"'读第二行

Response.write"留言时间：

"&txtStream.ReadLine&"
"'读第三行

Response.write"

i=i+1

Loop

txtStream.close'关闭对象

Setfso=nothing'关闭对象

%>

留言

实训4SQL语言

4.1实验目的和要求

Ø掌握增、删、改、查询这四种常用操作的SQL语句格式。

4.2实验重点和难点

ØSQL语句的格式。

4.3实验内容

Ø根据要求，利用SQL语句完成对数据库的操作。

4.4实验步骤

Ø查询出表Student中，来自惠来县的学生的姓名。

Select*fromStudentwherestuCounty='惠来县'

Ø查询出表Student中，姓“李”的学生的省，市，县，姓名，性别的记录。

SelectStuProvince,StuCity,StuCounty,StuName,StuSexfromstudentwhereStuNameLike'李%'

Ø查询出表Student中，姓名中有“佳”的学生的省，市，县，姓名，性别的记录。

SelectStuProvince,StuCity,StuCounty,StuName,StuSexfromstudentwhereStuNameLike'%佳%'

Ø统计出表Student中，来自“广州市”的学生的人数。

SelectStuCounty,Count（StuCounty）fromstudentgroupbystuCounty

Ø查询出表Score中期中考试成绩及格的学生的记录。

Select*fromScorewhereMid>60

Ø查询出表Score中期中考试成绩在70-80分之间的学生的记录

Select*fromScorewhereMid>=70AndMid<=80

Ø查询出期中考试的平均分，总分，最高分，最低分，人数。

SelectAvg（Mid）,Sum（Mid）,Max（Mid）,Min（Mid）,Count（Mid）fromscore

Ø增加一个“国际贸易”的专业。

InsertIntoDep（dep）values（'国际贸易'）

Ø将“办公自动化”专业改成“文秘”

UpdateDepSetDep='文秘'wheredep='办公自动化'

Ø删除“会计”专业的记录

Deletefromdepwheredep='会计'

Ø删除id等于10的专业的记录

Deletefromdepwhereid=10

实训5ADO对象实验，简单投票系统

5.1实验目的和要求

Ø掌握Connection对象的使用。

Ø掌握Connection对象操作数据库步骤。

5.2实验重点和难点

ØConnection对象操作数据库的步骤。

Ø连接字符串的写法。

5.3实验内容

Ø制作一个简单投票系统，包括投票和查看投票结果。

5.4实验步骤

Ø数据库设计。

根据我们所要保存的内容来设计数据库。

本例子中，我们将要对四个选项进行投票，所以在数据库里面要有相应的表来保存这四个选项的投票结果。

表结构如表格5-1。

建好表之后，在表中加入一条全0的新记录，做为四个选项的初始票数。

表名为VV。

Vote1对应保存第一个图的投票结果，Vote2对应保存第二个图的投票结果，Vote3对应保存第三个图的投票结果，Vote4对应保存第四个图的投票结果。

字段名称

数据类型

字段大小

Vote1

数字

长整型

Vote2

数字

长整型

Vote3

数字

长整型

Vote4

数字

长整型

表格51

Ø投票网页的制作，Vote.asp。

图51

1、新建一个VbScript动态页，用Vote.asp保存起来。

2、添加表单，设置表单Action属性。

Action=”T_Vote.asp”。

指定后台网页，用来处理投票数据。

3、自己排版好网页。

4、四个单选框的名字要一样。

5、每个单选框的值要和数据表VV里面用来保存结果的字段名相对应，方便我们后台编写程序。

第一个单选框值为Vote1，第二个单选框的值为Vote2，第三个单选框的值为Vote3，第四个单选框的值为Vote4

Ø后台处理页面的制作，T_Vote.asp。

1、程序分析：

根据用户在前台网页上所选的选项，去更新数据表VV里面的相应字段的值，例如，用户选了第一个图，那么数据表VV里面相应的Vote1字段的值就要加1。

2、新建一个VbScript动态页，用T_Vote.asp保存起来。

把里面的代码全部删除，输入以下代码。

<%

SetConn=Server.CreateObject（"ADODB.Connection"）'创建连接对象Connection对象实例

ConnStr="Driver={MicrosoftAccessDriver（*.mdb）};DBQ="&Server.MapPath（"db1.mdb"）'指定连接字符串

Conn.OpenConnStr'用连接对象的Open方法来打开数据库连接

vote=Request.Form（"vote"）'获取用户所选的选项

SqlStr="UpdateVVSet"&vote&"="&vote&"+1"'用SQL语句Update来更新数据库，相应的字段加1

Conn.ExecuteSqlStr'用连接对象的Execute方法去执行SQL语句

Conn.close'关闭对象

SetConn=nothing'释放资源

Response.Redirect"show.asp"'重定向到显示投票结果页面

%>

Ø显示投票结果网页，Show.asp。

1、显示界面的设计。

用图形的方式来显示投票结果,根据票数的多少来改变图片的宽度，如图5-2。

图52

2、程序分析。

i.从数据表VV里面把投票结果读取出来，然后显示到相应的位置。

ii.查询和更新，插入，删除之间的不同。

更新，插入，删除只是执行某一个操作，执行之后并没有一个具体记录返回给我们的，而查询在执行之后会有一个查询结果，也就是一些记录返回给我们，我们把这些查询结果叫做记录集。

iii.执行查询语句时，要把查询到的结果保存到一个记录集对象里面之后，我们才可以去用查询到的结果。

用法：

Set记录集对象实例名字=Conn.Execute（Select语句）

iv.通过记录集对象来使用我们所查询到的结果。

用法“记录集对象实例名（“相应字段名”）”

v.当只有一行代码，并且是显示用的。

那么这时可以用“=”来代替“Response.Write”。

<%=”helloWorld”%>和<%Response.write“helloWorld”%>的作用是一样的，但只限定在只有一行代码的情况下。

vi.用图形的方式来显示投票结果。

把票数读取出来，改变图片的Width属性。

在这里乘以2是为了让对比更加明显。

"height="15">

vii.用JavaScript来实现关闭当前网页的功能。

window.close（）">关闭

viii.代码见下页。

<%

SetConn=Server.CreateObject（"ADODB.Connection"）'创建连接对象Connection对象实例

ConnStr="Driver={MicrosoftAccessDriver（*.mdb）};DBQ="&Server.MapPath（"db1.mdb"）'指定连接字符串

Conn.OpenConnStr'用连接对象的Open方法来打开数据库连接

SqlStr="Select*FromVV"’用SQL语句Select从数据表VV里面查询出投票结果

SetRs=Conn.Execute（SqlStr）’用连接对象的Execute方法去执行SQL语句，并把查询结果赋给一个记录集对象Rs

%>

"height="15"><%=Rs（"Vote1"）%>票

"height="15"><%=Rs（"Vote2"）%>票

"height="15"><%=Rs（"Vote3"）%>票

"height="15"><%=Rs（"Vote4"）%>票

投票

window.close（）">关闭

<%

Rs.close’关闭记录集对象

Conn.close’关闭连接对象

SetConn=nothing’释放资源

%>

实训6简单BBS，用户注册

6.1实验目的和要求

Ø掌握用户注册的流程。

Ø掌握查询语句和插入语句的格式和用途。

6.2实验重点和难点

Ø注册流程。

ØSQL语句的使用。

6.3实验内容

Ø制作BBS的用户注册功能。

6.4实验步骤

Ø数据库设计。

1、新建一个空白数据库BBS.MDB。

2、根据我们所要保存的内容来设计数据库。

用户表需要保存相应的用户信息。

包括用户名，密码，性别，头像，QQ，找回密码问题，找回密码答案。

数据库设计如下表。

数据表名User。

字段名

数据类型

大小

备注

User

文本

1