📄 lx9_2.asp

📁 ASP 网页数据库短训教程源码

💻 ASP

字号:

<SCRIPT LANGUAGE=vbscript>
  Sub init()										
    frm1.number.Focus
    frm1.number.select								
  End Sub
</SCRIPT>
<html>
  <head><title>猜数游戏</title></head>
  <body onload=init>									
  <center><FONT size=6 face=方正舒体 color= blue>猜数游戏</font></center>
  <hr><form name=frm1 action="lx9_2.asp">
<%
  if not IsNumeric(Request("Number")) then
    GuessNum=0
  else
    GuessNum=Cint(Request("Number"))
  end if
  Session("Count")=Session("Count")+1
  if GuessNum=0 then
    session("Count")=0
    Randomize
    session("Number")=Int(rnd*100+1)
  end if
  response.write "请输入1-100之间的整数:"
  response.write "<input type=text name=Number value=" & GuessNum & " size=8>"
  response.write "<input type=submit value=提交>"
  response.write "</form><hr><FONT size=5 face=方正舒体 color= blue>"
  if session("Count")>0 then
    if GuessNum>session("Number") then
      response.write "你猜的太大了<BR>"
    elseif GuessNum<Session("Number") then
      response.write "你猜的太小了<BR>"
    elseif GuessNum=session("Number") then
      response.write "祝贺你，猜对了<BR>"
    end if
  end if
  Response.write "</font>共猜了" & Session("Count") & "次"
  if Session("Count")=10 then
    Response.write ",答案是" & Session("Number")
  end if
%>
  <a href="lx9_2.asp?Number=0">重新猜</a>
  </body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -