急!!!网页编程高手请进来帮个忙!!!!
第一步:做个取名为GIF的文件夹,在你连里面做好10张图片分别取名为:0.GIF,1.GIF.....9.GIF,当然0.GIF对应的图片一定是0啊,依次类推.
第二步修改代码如下:
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<Html>
<title>猜数字游戏</title>
<body>
<%
'设置页面不使用缓存
Response.Expires = 0
%>
<%
dim GuessNum
on error resume next
GuessNum=Request("Number")
if GuessNum="" then GuessNum="0" End if
GuessNum=Clng(GuessNum)
Session("Count")=Session("Count") + 1
if Session("Count") < 10 and GuessNum <> session("Number") then
%>
<form action="guessnumber.asp">
<input type="text" name="Number">
<input type="submit" value="提交">
</form>
<hr>
<%
end if
if GuessNum<0 or guessNum>100 then
Response.write "请输入1~100之间的整数"
elseif GuessNum=0 then
session("Count") = 0
Randomize
session("Number") = Int(rnd * 100 + 1)
Response.write "请输入1~100之间的整数"
elseif GuessNum > session("Number") then
response.write "你猜的太大了"
elseif GuessNum < session("Number") then
response.write "你猜的太小了"
elseif GuessNum = session("Number") then
response.write "祝贺你,猜对了"
end if
Response.write "<br>共猜了" & Session("Count") & "次"
if Session("Count")=10 then
Response.write "答案是" & MyCounter(Session("Number"))
end if
Function MyCounter( counter )
Dim S, i, G
S = CStr( counter )
For i = 1 to Len(S)
G = G & "<IMG SRC=./gif/" & Mid(S, i, 1) & ".gif Align=middle>"
Next
Response.write G
End Function
%>
<a href="guessnumber.asp?Number=0">重新猜</a>
</body>
</html>
第二步修改代码如下:
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<Html>
<title>猜数字游戏</title>
<body>
<%
'设置页面不使用缓存
Response.Expires = 0
%>
<%
dim GuessNum
on error resume next
GuessNum=Request("Number")
if GuessNum="" then GuessNum="0" End if
GuessNum=Clng(GuessNum)
Session("Count")=Session("Count") + 1
if Session("Count") < 10 and GuessNum <> session("Number") then
%>
<form action="guessnumber.asp">
<input type="text" name="Number">
<input type="submit" value="提交">
</form>
<hr>
<%
end if
if GuessNum<0 or guessNum>100 then
Response.write "请输入1~100之间的整数"
elseif GuessNum=0 then
session("Count") = 0
Randomize
session("Number") = Int(rnd * 100 + 1)
Response.write "请输入1~100之间的整数"
elseif GuessNum > session("Number") then
response.write "你猜的太大了"
elseif GuessNum < session("Number") then
response.write "你猜的太小了"
elseif GuessNum = session("Number") then
response.write "祝贺你,猜对了"
end if
Response.write "<br>共猜了" & Session("Count") & "次"
if Session("Count")=10 then
Response.write "答案是" & MyCounter(Session("Number"))
end if
Function MyCounter( counter )
Dim S, i, G
S = CStr( counter )
For i = 1 to Len(S)
G = G & "<IMG SRC=./gif/" & Mid(S, i, 1) & ".gif Align=middle>"
Next
Response.write G
End Function
%>
<a href="guessnumber.asp?Number=0">重新猜</a>
</body>
</html>
佚名
2024-07-02 05:20:56
类似问题(10)
-
佚名2024-07-02 15:42:26
问高分请高手给“店面起名”,高手进来帮帮忙。。。
答炭艺轩
-
佚名2024-07-02 13:25:38
问请高手进来帮忙取名?
答刘佳佳刘佳思刘佳灵刘佳萍刘佳艺刘佳爱刘佳艾刘佳雪刘佳莉刘佳娴刘佳雯刘佳蓉
-
佚名2024-07-02 08:37:11
问来个高手帮忙起名字!急!!
答杨雨菡,杨若萱,杨可欣
-
佚名2024-07-02 11:44:25
问小孩取名——请高手进来帮忙
答公历:2007年12月21日(星期五)23点农历:丁亥年十一月十三日子时春节:2月18日节前:丙戌年节后:丁亥年八字:丁亥 壬子 庚寅 丙子五行:火水 水水 金...
-
佚名2024-07-02 01:20:08
问请高手进来帮忙取名? 谢谢
答男:寇京成 寇愿北京奥运圆满成功寇志晋 志:志气,晋:上进寇明正 明:光明,正:浩然正气,正气凛然;全意:正大光明寇征文 征:征途,征程,文:文采,文明,文化寇...
-
佚名2024-07-02 14:07:41
问请高手进来帮忙取名? 谢谢
答子鹏 子:鼠宝宝 鹏:比喻气势雄伟 子杰 子:鼠宝宝 杰:杰出 炎彬 炎:燃烧 彬:形容文雅 鸿煊 鸿:大也 煊:光明 昕栋 昕:明亮的样子 烨霖 烨:光明 子...
-
佚名2024-07-02 16:57:18
问起名高手进来帮帮忙
答五格及三才数理全为吉<姓名没有不吉利的特殊数理,姓名得分都在85分以上:杨和贤(90 分) 杨博中(94 分) 杨之耀(94 分) <br>&...
-
佚名2024-07-02 08:00:00
问请高手或专家进来帮忙取名?
答颜语航
-
佚名2024-07-02 08:00:00
问请高手进来帮忙取名
答钟庆文 钟庆生 钟庆军 钟庆红 钟庆芳 钟庆嘉钟庆喜 钟庆元 钟庆丰 钟庆年 钟庆欢 钟庆舞
-
佚名2024-07-02 08:00:00
问麻烦各位高手进来帮忙取个商标注册名。急急急急...
答创意是要收费的哦,如果你经营西服,我倒有个很好的商标,
风水
起名
网名
说说
- 1 有殇字的个性签名
- 2 qq个性签名关于风景
- 3 摔坏的心情说说
- 4 考试过了的心情说说
- 5 关于梧桐山高点的说说
- 6 周末完了说说心情短语
- 7 早上送孩子上学说说
- 8 2017带说说的网络红人
- 9 狂风暴雨的搞笑说说
- 10 祝老公生日的霸气句子说说心情