lx9_2.asp

来自「ASP 网页数据库短训教程源码」· ASP 代码 · 共 45 行

ASP

45 行

<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>

lx9_2.asp - 源码说明

本页面展示了「ASP 网页数据库短训教程源码」中的 lx9_2.asp 源码文件，采用 ASP 编程语言编写，共 45 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?