《网站建设》课程实验指导书Word下载.docx
《《网站建设》课程实验指导书Word下载.docx》由会员分享，可在线阅读，更多相关《《网站建设》课程实验指导书Word下载.docx（69页珍藏版）》请在冰点文库上搜索。
换行
Response.write“您输入的密码是：
”＆psw＇显示密码
%>
3、测试效果。
实训2VBScript实验，猜数字
2.1实验目的和要求
掌握程序结构。
掌握Session变量的作用和使用。
掌握用“？
”来传递参数的方法。
2.2实验重点和难点
程序结构的语句格式。
Session变量。
用“？
2.3实验内容
制作一个猜数字的游戏。
由程序产生一个从1-99之间的数，作为要猜的数字。
用提供界面让用户选择要猜的数字。
根据用户每次所猜的数字和电脑产生的数的大小关系，逐渐缩小要猜的数字的范围，最后让用户猜中。
程序界面见图2-1，结果见图2-2。
图21
图22
2.4实验步骤
程序分析
1.产生一个从1到99的数。
利用随机数函数来产生。
2.产生的数要如何保存？
普通变量只能在本页面范围内起作用，如果需要要多个页面中用到同一个变量的话，就需要用到一种特殊的变量Session变量。
3.我们所猜的数字是怎么发送的？
把每个数字做成超链接，用“？
”的方式来传递数据。
4.如何缩小要猜的范围？
a）电脑生成一个要让我们猜的数：
Session（“num”）。
b）得到用户所猜的数：
user。
c）最小数:
Session（“first”）。
d）最大数:
Session（“last”）。
e）确定范围
f）最小数Session（“num”）最大数
g）一、user=Session（“num”）：
猜中
h）
二、最小数Session（“num”）最大数
i）范围：
userSession（“num”）最大数。
显示从user到最大数之间的数。
j）
三、最小数Session（“num”）最大数
k）范围：
最小数Session（“num”）user。
显示从最小数到user之间的数。
l）说明：
蓝方块代表用户所猜的数所在区域
5.显示要猜的数
a）利用循环，根据显示数字的范围来显示。
b）分行显示，一行20个字。
程序代码
divalign="
center"
>
spanclass="
style1"
超级无敌开口中
<
/span>
/div>
class="
Num=Eval（Request.QueryString（"
Num"
））＇得到用户所猜的数
ifSession（"
First"
）="
"
thenSession（"
）=1
Last"
）=99
ifNum<
then
ifSession（"
then
Randomize＇初始化随机函数
Session（"
）=Int（100*Rnd+1）＇产生一个从1到99之间的随机数并保存在Session变量中
Endif
ifNum<
Session（"
）OrNum>
）then
Response.write"
你猜的数字有误,请重新猜,数字范围在:
&
Session（"
）&
到"
之间"
else
ifNum>
=Session（"
）AndNum<
）then＇判断h情况
Response.writeNum&
）
Session（"
）=Num
endif
ifNum=<
）AndNum>
）then＇判断j情况
Response.writeSession（"
Num
Endif
ifNum=Session（"
）then＇猜中情况
Session.Abandon（）＇清除Session变量
Response.write"
imgsrc=1.bmp>
GameOver!
!
你猜得是:
）＇猜中时显示图片和再来一次的超链接
ahref='
index.asp'
再来一次<
/a>
Endif
Endif
tablewidth="
500"
border="
1"
tr>
td>
请选择你猜的数字：
/td>
j=1
Fori=Session（"
）toSession（"
）＇显示要猜的数字
ifjmod20=0then＇分行显示，每行20个数字
index.asp?
num="
i&
'
＇数字显示的格式，把每个数字做成超链接，链接的地址是index.asp?
，“？
”后面是要传递的参数，num是要传递的参数名，“＝”后面的是所传递的参数的值。
nbsp;
endif
j=j+1
Next
%>
/tr>
/table>
/Div>
实训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）每条留言之间用一条横线<
hr>
来分隔。
b）文本文件是以三行为一条完整的留言，所以读取的时候，也是每读三行就是一条完整的留言。
c）如何判断已经把全部留言读取完毕？
用到txtStream对象里面的AtEndOfLine属性来判断是否已经到达文件的最后一行，也就是判断是否已经把内容读取完了。
当AtEndOfLine的值为True的时候，即是已经把留言内容全部读取完了，所以我们是在AtEndOfLine的值为False时候，需要继续读取留言内容。
图32
p>
创建fso对象实例
））'
打开文本文件来读
i=1'
第几条留言的标记
DoWhileNottxtStream.AtEndOfLine'
判断留言是否已经全部读取
Response.write"
第"
条留言<
留言人：
txtStream.ReadLine
用ReadLine方法一次读取一行。
读第一行
留言内容：
txtStream.ReadLine&
'
读第二行
留言时间：
'
读第三行
画一条直线
i=i+1
Loop
txtStream.close'
Setfso=nothing'
/p>
ahref="
index.asp"
留言<
实训4SQL语言
4.1实验目的和要求
掌握增、删、改、查询这四种常用操作的SQL语句格式。
4.2实验重点和难点
SQL语句的格式。
4.3实验内容
根据要求，利用SQL语句完成对数据库的操作。
4.4实验步骤
查询出表Student中，来自惠来县的学生的姓名。
Select*fromStudentwherestuCounty='
惠来县'
查询出表Student中，姓“李”的学生的省，市，县，姓名，性别的记录。
SelectStuProvince,StuCity,StuCounty,StuName,StuSexfromstudentwhereStuNameLike'
李%'
查询出表Student中，姓名中有“佳”的学生的省，市，县，姓名，性别的记录。
%佳%'
统计出表Student中，来自“广州市”的学生的人数。
SelectStuCounty,Count（StuCounty）fromstudentgroupbystuCounty
查询出表Score中期中考试成绩及格的学生的记录。
Select*fromScorewhereMid>
60
查询出表Score中期中考试成绩在70-80分之间的学生的记录
=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="
db1.mdb"
指定连接字符串
Conn.OpenConnStr'
用连接对象的Open方法来打开数据库连接
vote=Request.Form（"
vote"
获取用户所选的选项
SqlStr="
UpdateVVSet"
vote&
="
+1"
用SQL语句Update来更新数据库，相应的字段加1
Conn.ExecuteSqlStr'
用连接对象的Execute方法去执行SQL语句
Conn.close'
SetConn=nothing'
释放资源
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是为了让对比更加明显。
imgsrc="
vficon.gif"
width="
%=Rs（"
Vote2"
）*2%>
height="
15"
vii.用JavaScript来实现关闭当前网页的功能。
#"
onClick="
javascript:
window.close（）"
关闭<
viii.代码见下页。
Select*FromVV"
’用SQL语句Select从数据表VV里面查询出投票结果
SetRs=Conn.Execute（SqlStr）’用连接对象的Execute方法去执行SQL语句，并把查询结果赋给一个记录集对象Rs
tableborder="
0"
align="
tdwidth="
65"
11.GIF"
50"
Vote1"
）%>
票<
22.GIF"
tdheight="
33.GIF"
Vote3"
tdborder="
44.GIF"
Vote4"
tdcolspan="
2"
vote.asp"
投票<
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
升级会员 