显示要猜的数
a) 利用循环,根据显示数字的范围来显示。
b) 分行显示,一行20个字。
div align="center">
超级无敌开口中
<%
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 "
Game Over!!!你猜得 是:"&;Session("Num")'猜中时显示图片和再来一次的超链接
Response.write "
再来一次"
End if
End if
End if
%>
1.
请选择你猜的数字: |
<% j = 1 For i = Session("First") to Session("Last")'显示要猜的数字 if j mod 20 = 0 then'分行显示,每行20个数字 Response.write ""&;i&;" "'数字显示的 格式,把每个数字做成超链接,链接的地址是index.asp?num="&;i&;", “?”后面是要传递的 参数,num是要传递的参数名, “=”后面的是所传递的参数的值。 else Response.write ""&;i&;"&;nbsp;" end if j = j + 1 Next %> |
<% names = Request.Form("names") '获取留言人的 Message = Replace(Request.Form("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的方法往文本文件里面写一行文字。 写第一行, txtStream.WriteLine(Message) '写第二行,留言内容 txtStream.WriteLine(Now()) '写第三行,留言时间 txtStream.close '关闭对象 Set fso = nothing '关闭对象 Response.Redirect "read.asp" '用Response.Redirect从当前页面转到查看留言页面 %> 1. 查看留言页面。Read.asp。如图3-2。
a) 每条留言之间用一条横线
来分隔。
b) 文本文件是以三行为一条完整的留言,所以读取的时候,也是每读三行就
是一条完整的留言。
如何判断已经把全部留言读取完毕?用到txtStream对象里面的AtEndOfLine属性来判断是否已经到达文件的最后一行,也就是判断是否已经把内容读取完了。当AtEndOfLine的值为True的时候,即是已经把留言内容全部读取完了,所以我们是在AtEndOfLine的值为False时候,需要继续读取留言内容
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject") '创建fso对象实例
Set txtStream = fso.OpenTextFile(Server.MapPath("Message.txt")) '打开文本文件来读
i = 1 '第几条留言的标记
Do While Not txtStream.AtEndOfLine '判断留言是否已经全部读取
Response.write "第"&;i&;"条留言
留言人:"&;txtStream.ReadLine
'用ReadLine方法一次读取一行。读第一行
Response.write "
留言内容:"&;txtStream.ReadLine&;"
" '读第二行
Response.write "留言时间:"&;txtStream.ReadLine&;"
" '读第三行
Response.write "
" '画一条直线
i = i + 1
Loop
txtStream.close '关闭对象 Set fso = nothing '关闭对象
%>
留言
鼠标移动代码:
xml:namespace prefix = body bgcolor="#FFFFFF" onLoad="javascript />
注册页面代码:
-
相关文章
-
最新文件
关于网学 |
万能工具 |
在线交流 |
会员中心 |
查询论文 |
招聘说明 |
精品资源 |
专题论文 |
会员中心 |
联系方式 |
下载目录
论文目录
Copyright 2005-2018 www.myeducs.cn All Rights Reserved 版权所有·网学网 提供大量原创论文 参考论文 论文资料 源代码 管理及投稿 E_mail:3710167@qq.com
郑重声明: 本网站论文均来自互联网,由本站会员上传或下载,仅供个人交流、学习、参考之用,版权归原作者所有
请下载完后24小时之内删除,任何人不得大幅抄录、在期刊上发表或作为商业之用。如涉及版权纠纷,本网站不承担任何法律及连带责任。