网页的设计经典代码.docVIP

显示要猜的数 利用循环，根据显示数字的范围来显示。 分行显示，一行20个字。 div align=centerspan class=style1超级无敌开口中 /spanbr /div div align=center class=style1 % Num = Eval(Request.QueryString(Num))＇得到用户所猜的数 if Session(First) = then Session(First) = 1 if Session(Last) = then Session(Last) = 99 if Num then if Session(Num) = then Randomize＇初始化随机函数 Session(Num) = Int(100*Rnd + 1) ＇产生一个从1到99之间的随机数并保存在Session变量中 End if if Num Session(First) Or Num Session(Last) then Response.write 你猜的数字有误,请重新猜,数字范围在:Session(First)到Session(Last)之间 else if Num = Session(First) And Num Session(Num) then＇判断h情况 Response.write Num到Session(Last) Session(First) = Num end if if Num = Session(Last) And Num Session(Num) then＇判断j情况 Response.write Session(First)到Num Session(Last) = Num End if if Num = Session(Num) then＇猜中情况 Session.Abandon()＇清除Session变量 Response.write img src=1.bmpGame Over!!!你猜得是:Session(Num)＇猜中时显示图片和再来一次的超链接 Response.write a href=index.asp再来一次/a End if End if End if % table width=500 border=1 tr td请选择你猜的数字：/td td % j = 1 For i = Session(First) to Session(Last)＇显示要猜的数字 if j mod 20 = 0 then＇分行显示，每行20个数字 Response.write a href=index.asp?num=ii/abr＇数字显示的格式，把每个数字做成超链接，链接的地址是index.asp?num=i，“？”后面是要传递的参数，num是要传递的参数名，“＝”后面的是所传递的参数的值。 else Response.write a href=index.asp?num=ii/anbsp; end if j = j + 1 Next % /td % names = Request.Form(names) 获取留言人的姓名 Message = Replace(Request.Form(Message),chr(13)+chr(10),br) 获取留言内容 Set fso = Server.CreateObject(Scripting.FileSystemObject) 用Server.CreateObject(“对象名字”)来创建fso对象实例 Set txtStream = fso.OpenTextFile(Server.MapPath(Message.txt),8) 打开文本文件，创建文本流对象。Server.MapPath(虚拟路径)，把虚拟路径转成实际路径，因为操作文件时要用实际路径来操作。 txtStream.WriteLine(names)用WriteLine的方法往文本文件里面写一行文字。写第一行，姓名 txtStream.WriteLine(Message) 写第二行，留言内容 txtStream.WriteLine(Now()) 写第三行，留言时间 txtStream.close 关闭对象 Set fso = nothing 关闭对象 Response.Redirect read.asp 用Response.Redirect从当前页面转到查看留言页面 % 查看留言页面。