📄 ex.asp

📁 asp 网站开发技术介绍

💻 ASP

字号:

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

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -