急！！！Web编程高手，请进来帮帮忙！！！！

第一步:制作一个文件夹，命名为GIF，在你的公司制作10张图片，命名为0。GIF，1。GIF格式...9.GIF当然是0对应的图片。GIF必须是0，以此类推。

第二步是修改代码，如下所示:

& lt% @ LANGUAGE = VBScript % & gt

& lt% Option Explicit % & gt

& ltHtml & gt

& lttitle & gt猜数字游戏

& ltbody & gt

& lt%

设置页面不使用缓存。

回应。过期= 0

% & gt

& lt%

模糊猜测

出错时继续下一步

GuessNum=Request("Number ")

如果GuessNum= " "那么GuessNum="0 "结束if

GuessNum=Clng(GuessNum)

会话("计数")=会话("计数")+ 1

if Session(" Count ")& lt；10和GuessNum & lt& gt会话(“编号”)然后

% & gt

& ltform action = " guess number . ASP " & gt；

& ltinput type = " text " name = " Number " & gt；

& lt输入类型= "提交"值= "提交" >

& lt/form & gt；

& lthr & gt

& lt%

如果…就会结束

如果GuessNum & lt0或guessNum & gt那就100

Response.write“请输入介于1和100之间的整数”

那么elseif GuessNum=0

session("Count") = 0

使不规则化

session(" Number ")= Int(rnd * 100+1)

Response.write“请输入介于1和100之间的整数”

elseif GuessNum & gt会话(“编号”)然后

“你猜得太多了。”

elseif GuessNum & lt会话(“编号”)然后

“你的猜测太小了。”

elseif GuessNum = session("Number ")然后

Response .写“恭喜你，你猜对了。”

如果…就会结束

Response.write " & ltbr & gt* * *猜到了“&；会话(“计数”)& amp《时代》

如果Session("Count")=10，则

答案是“&；MyCounter(会话("编号"))

如果…就会结束

函数MyCounter(计数器)

Dim S，I，G

S = CStr(计数器)

对于i = 1到Len(S)

G = G & amp“& ltIMG SRC=。/gif/" & amp；Mid(S，I，1)和amp".gif Align=middle >

然后

Response .写G

结束功能

% & gt

& lta href="guessnumber.asp？Number=0 " >重新猜测

& lt/body & gt；

& lt/html & gt；