设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 其他脚本区 › VBS求助&讨论 › [已解决]VBS检测文本输入框的输入，通过不同输入，得到 ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 16467|回复: 1

[问题求助] [已解决]VBS检测文本输入框的输入，通过不同输入，得到不同信息

[复制链接]
c755731262
发表于 2015-5-16 23:09:44 | 显示全部楼层 |阅读模式
检测文本输入框的输入，通过不同输入，得到不同信息，我点击submit没反应，
  1. <html>
  2. <head>
  3. <title>
  4. 测试哪里出问题了
  5. </title>
  6. <script language="vbscript">

  8. function jiance(snumber,imin,imax)
  9. if isnumeric(snumber) then
  10.    if instr(snumber,".")=0 then
  11.       if clng(snumber)>=imin and clng(snumber)<=imax then
  12.       jiance=""
  13.       else
  14.       msgbox jiance="please enter a number between "&imin&" and "&imax
  15.       end if
  16.    else
  17.    msgbox jiance="please enter an integer"
  18.    end if
  19. else
  20. msgbox jiance="please enter a number"
  21. end if
  22. end function

  24. sub form_onsubmit()
  25. dim s
  26. s=jiance(form.text.value,1,10)
  27. if s="" then
  28. msgbox "valid"
  29. else
  30. msgbox "try again"
  31. end if
  32. end sub

  34. </script>
  35. </head>
  36. <body>
  37. <form action="" name="form" method="post">
  38. <input type="text" name="text">
  39. <input type="submit" name="submit" value="submit">
  40. </form>
  41. </body>
  42. </html>
复制代码
回复

举报

czjt1234
发表于 2015-5-17 12:28:18 | 显示全部楼层
  1. <html>
  2. <head>
  3. <title>
  4. 测试哪里出问题了
  5. </title>
  6. <script language="vbscript">

  8. function jiance(snumber,imin,imax)
  9. if isnumeric(snumber) then
  10.    if instr(snumber,".")=0 then
  11.       if clng(snumber)>=imin and clng(snumber)<=imax then
  12.          jiance=""
  13.       else
  14.          jiance="please enter a number between "&imin&" and "&imax
  15.          msgbox jiance
  16.       end if
  17.    else
  18.       jiance="please enter an integer"
  19.       msgbox jiance
  20.    end if
  21. else
  22.    jiance="please enter a number"
  23.    msgbox jiance
  24. end if
  25. end function

  27. sub form_onsubmit()
  28. dim s
  29. s=jiance(form.text.value,1,10)
  30. if s="" then
  31.    msgbox "valid"
  32. else
  33.    msgbox "try again"
  34. end if
  35. end sub

  37. </script>
  38. </head>
  39. <body>
  40. <form action="" name="form" method="post">
  41. <input type="text" name="text">
  42. <input type="submit" name="submit" value="submit">
  43. </form>
  44. </body>
  45. </html>
复制代码
IE8测试通过

评分

参与人数 1技术 +1 收起 理由
c755731262 + 1 谢谢提醒

查看全部评分

回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 18:22 , Processed in 0.012705 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表