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
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1