ex.asp

来自「asp 网站开发技术介绍」· ASP 代码 · 共 53 行

ASP

53 行

<Body>
<form name="form1" onsubmit="return validate()"> 
<p>请输入姓名和电话号码</p>
<p>输入姓名
<input type="text" name="name1" value="" onchange='checkname(name1.value)'>
<p>输入电话
<input type="text" name="name2" value=""onchange='checknum(name2.value)' >
<input type=submit name=submit1 value="发送">
</from>
<script Language="VBScript">
  dim num, name
   num=false
   name=false
   function validate()
         if(num and name ) then 
            msgbox("数据完整可以继续")
            validate=true
         else
               if(not name ) then 
                    msgbox("姓名有误，请查核")
               else
                    msgbox("电话有误请查核")
               end if
            validate=false
           end if
 end function
 sub checkname(s)
       if (len(s)>0 and len(s)<4) then 
               name=true
       else 
              name=false
       end if
 end sub
  sub checknum(n)
     if(left(n,5)<>"(029)" or len(n)>13 or len(n)<0) then 
        num=false
        exit sub
     end if
     i=6
     do while (i<=13)
         ch=mid(n,i,1)
         if(ch<="9"and ch>="0")  then 
              i=i+1
         else 
            num=false
            exit sub
         end if
     loop
     num=true  
 end sub
  </script>
 </Body>

ex.asp - 源码说明

本页面展示了「asp 网站开发技术介绍」中的 ex.asp 源码文件，采用 ASP 编程语言编写，共 53 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?