[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
c755731262

Rank: 2

帖子
92 
积分
166 
技术
4  
捐助
0  
注册时间
2014-12-13 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2015-5-16 23:09 | 只看该作者

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

检测文本输入框的输入，通过不同输入，得到不同信息，我点击submit没反应，
  1. <html>

  2. <head>

  3. <title>

  4. 测试哪里出问题了

  5. </title>

  6. <script language="vbscript">

  7. 

  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

  23. 

  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

  33. 

  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

Rank: 6Rank: 6

帖子
1058 
积分
1559 
技术
112  
捐助
0  
注册时间
2010-4-30 
2楼
发表于 2015-5-17 12:28 | 只看该作者 
  1. <html>

  2. <head>

  3. <title>

  4. 测试哪里出问题了

  5. </title>

  6. <script language="vbscript">

  7. 

  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

  26. 

  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

  36. 

  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

评分人数


QQ 20147578

TOP

返回列表