《网站建设》课程实验指导书.docx
- 文档编号:7497249
- 上传时间:2023-01-24
- 格式:DOCX
- 页数:59
- 大小:685.52KB
《网站建设》课程实验指导书.docx
《《网站建设》课程实验指导书.docx》由会员分享,可在线阅读,更多相关《《网站建设》课程实验指导书.docx(59页珍藏版)》请在冰豆网上搜索。
《网站建设》课程实验指导书
《网站建设》课程
实验指导书
2012.6
表单的应用
1.1实验目的和要求
Ø理解表单在动态网页制作中的作用。
Ø掌握表单的制作。
Ø掌握表单的重要属性。
Ø掌握常用表单组件的使用。
1.2实验重点和难点
Ø表单的属性。
Ø组件的使用。
1.3实验内容
Ø制作用户登录网页。
输入用户名,密码,点击“登录”按钮之后,在后台页面把用户输入的用户名和密码显示出来。
1.4实验步骤
1、前台登录网页(login.asp)的制作。
i.新建一个ASPVBScript动态页,用Login.asp名字保存起来。
图11
ii.添加表单。
指定action属性:
action=”trade.asp”。
iii.在表单制作如图1-2的用户登录界面。
iv.设置表单组件的名字,1:
username,2:
psw。
图12
2、后台处理页面的制作。
i.新建一个ASPVBScript动态页,用trade.asp名字保存起来。
ii.在
之间输入以下代码。<%
username=Trim(Request.Form("username"))'取得用户名
Psw=Trim(Request.Form("psw"))'取得密码
Response.write“您输入的用户名是:
”&username&”
”'显示用户名,
换行
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个字。
Ø程序代码
<%
Num=Eval(Request.QueryString("Num"))'得到用户所猜的数
ifSession("First")=""thenSession("First")=1
ifSession("Last")=""thenSession("Last")=99
ifNum<>""then
ifSession("Num")=""then
Randomize'初始化随机函数
Session("Num")=Int(100*Rnd+1)'产生一个从1到99之间的随机数并保存在Session变量中
Endif
ifNum
Response.write"你猜的数字有误,请重新猜,数字范围在:
"&Session("First")&"到"&Session("Last")&"之间"
else
ifNum>=Session("First")AndNum Response.writeNum&"到"&Session("Last") Session("First")=Num endif ifNum= Response.writeSession("First")&"到"&Num Session("Last")=Num Endif ifNum=Session("Num")then'猜中情况 Session.Abandon()'清除Session变量 Response.write" ! ! 你猜得是: "&Session("Num")'猜中时显示图片和再来一次的超链接 Response.write" Endif Endif Endif %> <% j=1 Fori=Session("First")toSession("Last")'显示要猜的数字 ifjmod20=0then'分行显示,每行20个数字 Response.write" num="&i&"'>"&i&" num="&i&",“? ”后面是要传递的参数,num是要传递的参数名,“=”后面的是所传递的参数的值。 else Response.write" num="&i&"'>"&i&" " endif j=j+1 Next %>请选择你猜的数字:
"'数字显示的格式,把每个数字做成超链接,链接的地址是index.asp?
实训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是为了让对比更加明显。
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 %>
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 网站建设 网站 建设 课程 实验 指导书