《网站建设》课程实验指导书Word文档格式.docx

1、换行Response.write “您输入的密码是：”psw显示密码%3、 测试效果。实训2 VBScript实验，猜数字2.1 实验目的和要求 掌握程序结构。 掌握Session变量的作用和使用。 掌握用“？”来传递参数的方法。2.2 实验重点和难点 程序结构的语句格式。 Session变量。 用“？2.3 实验内容 制作一个猜数字的游戏。由程序产生一个从1-99之间的数，作为要猜的数字。 用提供界面让用户选择要猜的数字。根据用户每次所猜的数字和电脑产生的数的大小关系，逐渐缩小要猜的数字的范围，最后让用户猜中。 程序界面见图2-1，结果见图2-2。图 21图 222.4 实验步骤 程序分析1

2、. 产生一个从1到99的数。利用随机数函数来产生。2. 产生的数要如何保存？普通变量只能在本页面范围内起作用，如果需要要多个页面中用到同一个变量的话，就需要用到一种特殊的变量Session变量。3. 我们所猜的数字是怎么发送的？把每个数字做成超链接，用“？”的方式来传递数据。4. 如何缩小要猜的范围？a） 电脑生成一个要让我们猜的数：Session（“num”）。b） 得到用户所猜的数：user。c） 最小数:Session（“first”）。d） 最大数:Session（“last”）。e） 确定范围f） 最小数 Session（“num”） 最大数g） 一、user=Session（“nu

3、m”） ：猜中h） 二、最小数 Session（“num”） 最大数i） 范围：user Session（“num”） 最大数。显示从user到最大数之间的数。j） 三、最小数 Session（“num”） 最大数k） 范围：最小数 Session（“num”） user。显示从最小数到user之间的数。l） 说明：蓝方块代表用户所猜的数所在区域 5. 显示要猜的数a） 利用循环，根据显示数字的范围来显示。b） 分行显示，一行20个字。 程序代码div align=centerspan class=style1超级无敌开口中 /div class=Num = Eval（Request.Quer

4、yString（Num）得到用户所猜的数 if Session（First） = then Session（） = 1Last） = 99if Num then if Session（ then Randomize初始化随机函数 Session（） = Int（100*Rnd + 1） 产生一个从1到99之间的随机数并保存在Session变量中 End if if Num ） then Response.write 你猜的数字有误,请重新猜,数字范围在:&Session（）&到之间 else if Num = Session（） And Num ） then判断h情况 Response.wri

5、te Num&） Session（） = Num end if if Num =） then判断j情况 Response.write Session（Num End if if Num = Session（） then猜中情况 Session.Abandon（）清除Session变量 Response.write img src=1.bmpGame Over!你猜得是:）猜中时显示图片和再来一次的超链接a href=index.asp再来一次 End ifEnd iftable width=500 border=1trtd请选择你猜的数字：/td j = 1 For i = Session（）

6、 to Session（）显示要猜的数字 if j mod 20 = 0 then分行显示，每行20个数字index.asp?num=i&数字显示的格式，把每个数字做成超链接，链接的地址是index.asp?，“？”后面是要传递的参数，num是要传递的参数名，“”后面的是所传递的参数的值。nbsp; end if j = j + 1 Next %/tr/table/Div实训3 利用FSO对象制作简单留言本3.1 实验目的和要求 掌握组件的使用方法。 掌握fso对象里对文本文件进行读写操作的方法。3.2 实验重点和难点 fso对象操作文本文件的方法。3.3 实验内容 利用fso对象里面对文本文

7、件进行读写操作的方法，制作一个简单的留言本，实现写留言和看留言这两个功能。3.4 实验步骤1. 限于FSO操作文本文件的局限性，本程序只能实现写留言和查看留言这两个功能。留言的内容是保存在文本文件里面的。2. 保存的格式，也就是我们需要保存的内容。a） 留言最基本的内容，留言人，留言内容，留言时间。b） 利用FSO写文件时，都是一行行的写的，所以我们设计保存在文本文件里面的留言是每三行是一条留言，第一行是留言人，第二行是留言内容，第三行是留言时间。3. 写留言。a） 前台让用户填写留言的网页，index.asp。b） 后台处理用户留言的网页，把用户所填写的留言写到文本文件里面去，Write.a

8、sp。4. 查看留言的网页，Read.asp。1. 新建一个文本文件Message.txt。2. 填写留言的网页。Index.asp。如图3-1。a） 表单Action属性要指定处理留言的网页。Action=”write.asp”b） 表单组件的名字：1：names，2：Message。图 313. 后台处理留言的网页。Write.asp。a） 新建一个asp VBScript动态网，把里面的代码全部删除，用Write.asp保存起来。b） 把以下代码输入，保存。names = Request.Form（names） 获取留言人的姓名Message = Replace（Request.Form

9、（Message）,chr（13）+chr（10）,） 获取留言内容Set fso = Server.CreateObject（Scripting.FileSystemObject 用Server.CreateObject（“对象名字”）来创建fso对象实例Set txtStream = fso.OpenTextFile（Server.MapPath（Message.txt）,8） 打开文本文件，创建文本流对象。Server.MapPath（虚拟路径），把虚拟路径转成实际路径，因为操作文件时要用实际路径来操作。txtStream.WriteLine（names）用WriteLine的方法往文本

10、文件里面写一行文字。写第一行，姓名txtStream.WriteLine（Message） 写第二行，留言内容txtStream.WriteLine（Now（） 写第三行，留言时间txtStream.close 关闭对象Set fso = nothing Response.Redirect read.asp用Response.Redirect从当前页面转到查看留言页面4. 查看留言页面。Read.asp。如图3-2。a） 每条留言之间用一条横线来分隔。b） 文本文件是以三行为一条完整的留言，所以读取的时候，也是每读三行就是一条完整的留言。c） 如何判断已经把全部留言读取完毕？用到txtStre

11、am对象里面的AtEndOfLine属性来判断是否已经到达文件的最后一行，也就是判断是否已经把内容读取完了。当AtEndOfLine的值为True的时候，即是已经把留言内容全部读取完了，所以我们是在AtEndOfLine的值为False时候，需要继续读取留言内容。图 32p创建fso对象实例） 打开文本文件来读i = 1 第几条留言的标记Do While Not txtStream.AtEndOfLine 判断留言是否已经全部读取 Response.write 第条留言a href=index.asp留言60 查询出表Score中期中考试成绩在70-80分之间的学生的记录=70 And Mid

12、和的作用是一样的，但只限定在只有一行代码的情况下。vi. 用图形的方式来显示投票结果。把票数读取出来，改变图片的Width属性。在这里乘以2是为了让对比更加明显。img src=vficon.gif width=%=Rs（Vote2）*2% height=15vii. 用JavaScript来实现关闭当前网页的功能。# onClick=javascript:window.close（）关闭票22.GIFtd height=33.GIFVote3td border=44.GIFVote4td colspan=2vote.asp投票Rs.close关闭记录集对象Conn.close关闭连接对象Set Conn = nothing释放资源实训6 简单BBS，用户注册6.1 实验目的和要求 掌握用户注册的流程。 掌握查询语句和插入语句的格式和用途。6.2 实验重点和难点 注册流程。 SQL语句的使用。6.3 实验内容 制作BBS的用户注册功能。6.4 实验步骤1、 新建一个空白数据库BBS.MDB。2、 根据我们所要保存的内容来设计数据库。用户表需要保存相应的用户信息。包括用户名，密码，性别，头像，QQ，找回密码问题，找回密码答案。数据库设计如下表。数据表名User。字段名大小备注User文本1