用ASP编写一个 猜数字游戏的代码

这可是本人亲自编的，我只编了一个1-9数字的，猜字游戏，你可以改成你想要的

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%

action=request("action")

dim sum,znum

sum=cint(request("shu"))

if action="Sub" then

if not isNumeric(sum) then

response.Write("请输入数字<a href='javascript:history.back(-1)'>返回</a>")

response.End()

end if

if len(sum)>1 then

response.Write("请输入1-9的数字<a href='javascript:history.back(-1)'>返回</a>")

response.End()

end if

Randomize timer

znum = cint(8*Rnd+1)

if znum=sum then

response.Write "恭喜你，你猜对了。<br>"

else

response.Write "不好意思，你没猜对。<br>"

end if

response.Write"每次产生的随机数为：<font color=red>"&znum&"</font>"

end if

%>

<form name="form1" method="post" action="?action=Sub">

请输入1-9的数字<input name="shu" type="text" size="10">

<input type="submit" name="Submit" value="提交">

</form>