| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1073 人关注过本帖
标题:<script language=vbscript><!-- xxxxxx -----> </script&g ...
只看楼主 加入收藏
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
结帖率:79.38%
收藏
已结贴  问题点数:20 回复次数:6 
<script language=vbscript><!-- xxxxxx -----> </script&g
<script language=vbscript>
<!--
sub tijiao_onclick()
  if len(login.userid.value)<3 then
      msgbox "用户名太短,请选择一个长度大于3的名字"
      login.userid.select
      exit sub
  end if
  if instr(trim(login.userid.value)," ")>1 then
      msgbox "用户名中请不要加入空格"
      login.userid.select
      exit sub
  end if
  if len(login.userpw.value)<4 then
      msgbox "密码太短,请选择一个长度大于4的密码"    '10
      login.userpw.select
      exit sub
  end if
  if login.userpw.value<>login.verifypw.value then
      msgbox "确认密码和密码不同,请确认"
      login.userpw.value=""
      login.verifypw.value=""
      login.userpw.select
      exit sub
  end if
  if login.name.value="" then
      msgbox "为了更好的为您服务,请输入您的名字"
      login.name.select
      exit sub
  end if
  if login.idnumber.value="" or Not isnumeric(login.idnumber.value) or len(login.idnumber.value)<>15 and len(login.idnumber.value)<>18 then
      msgbox "请正确输入您的身份证号码"
      login.idnumber.select
      exit sub
  end if
  if login.age.value="" or Not isnumeric(login.age.value) then
      msgbox "请正确输入你的年龄"
      login.age.select
      exit sub
  else
      if cint(login.age.value)<12 then
      msgbox "年龄输入范围有错"
      login.age.select
      exit sub
      end if
  end if
  if login.address.value="" then
      msgbox "请输入您的详细联系地址"
      login.address.select
      exit sub
  end if
  if len(login.zipcode.value)<>6 or NOT isnumeric(login.zipcode.value) then
      msgbox "邮政编码输入有误,请更正"
      login.zipcode.select
      exit sub
  end if
  
   if not login.phone.value="" then
      if isnumeric(login.phone.value) then
          if len(login.phone.value)<7 or left(login.phone.value,1)="-" or left(login.phone.value,1)="+" then
             msgbox "电话号码输入有误"
             login.phone.select
             exit sub
          end if
      else
          pos=instr(login.phone.value,"-")
          len_phone=len(login.phone.value)
          if pos>1 and pos<len_phone then
              lef=left(login.phone.value,pos-1)
              rig=right(login.phone.value,len_phone-pos)
              if not isnumeric(lef) or not isnumeric(rig) or len(rig)<5 then
                 msgbox "电话号码输入有误"
                 login.phone.select
                 exit sub
              end if  
          else
              msgbox "电话号码输入有误"
              login.phone.select
              exit sub
          end if
      end if
   end if
 
  if login.email.value="" then
     msgbox "为了与您方便的联系,请输入E-mail地址"
     login.email.select
     exit sub
  else
     if Not right(login.email.value,4)=".com" and not right(login.email.value,4)=".net" and not right(login.email.value,3)=".cn" or instr(login.email.value,"@")<=1 or instr(login.email.value,"@.") then
       msgbox "请正确输入您的E-mail"
        login.email.select
        exit sub
    end if
  end if
 login.submit
 end sub
-->
</script
>

<html>
 <head>
  <title>注册新会员</title>
  <meta http-equiv="content-language" content="THL">
  <meta http-equiv="content-type" content="text/html;charset=gb2312">
  <style type="text/css">
<!--
.style5 {font-size: smaller}
.style6 {color: #FF0000}
-->
  </style>
 </head>
 <body leftmargin=20 class=class2>
  <span class="style5"><font color="#ff0000"> 您的位置: 注册页面&nbsp;&nbsp;&nbsp;注意:带*的项目为必填项目</font></span>
  <br>
  <hr color="#999933" size=1>
 <form method="POST" action="custadd.asp" name="login">
  <p class="style5">   会 员 名:
  <input type="text" name="userid" size="15" maxlength="8" class=style5>
  <span class="style6">*</span>(用户名长度为3-8位)<br>
  <br>
   密  码:
  <input type="password" name="userpw" size="15" maxlength="8" class=style5>
  <span class="style6">*</span>(密码长度为4-8位)<br>
  <br>
   确认密码:
  <input type="password" name="verifypw" size="15"  class=style5>
  <span class="style6">*</span><br>
  <br>
   您的姓名:
  <input type="text" name="name" size="15" maxlength="8" class=style5>
  <span class="style6">*</span><br>
  <br>
   身份证号:
  <input type="text" name="idnumber" size="20" maxlength="18" class=style5>
  <span class="style6">*</span><br>
  <br>
   性  别:
  <input name="sex" type="radio" class="style5" value="男" checked>
  男 
  <input name="sex" type="radio" class="style5" value="女">
  
  <span class="style6">*</span><br>
  <br>
   您的年龄:
  <input type="text" name="age" size="5" maxlength="2" class=style5>
  <span class="style6">*</span><br>
  <br>
   详细地址:
  <input type="text" name="address" size="20" class=style5>
  <span class="style6">*</span><br>
  <br>
   邮政编码:
  <input type="text" name="zipcode" size="20" maxlength="6" class=style5>
  <span class="style6">*</span><br>
  <br>
   电话号码:
  <input type="text" name="phone" size="20" class=style5>
  <br>
  <br>
   电子邮箱:
  <input name="email" type="text" class=style5 size="20" maxlength="30">  
  <span class="style6">*</span><br>
  <br>
               
   <input name="tijiao" type="button" class="style5" value=" 提 交 ">  
   <input name="zhongzhi" type="reset" class="style5" value=" 重 置 ">
  </p>
</form>
</body>
</html>
下面中的注释符号表示什么?
<script language=vbscript>
<!--

-->
</script>


搜索更多相关主题的帖子: xxxxxx 用户名 密码 
2013-08-19 11:27
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
收藏
得分:0 
没有高人呀!
2013-08-19 14:08
cai410579517
Rank: 3Rank: 3
来 自:宁德
等 级:论坛游侠
威 望:6
帖 子:128
专家分:179
注 册:2013-8-18
收藏
得分:5 
你的问题在那里
2013-08-21 20:21
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
收藏
得分:0 
我的问题是
下面中的注释符号表示什么?既然注释符号之间内容不运行,哪里面的过程sub()...endsub起什么作用?
<script language=vbscript>
<!--
sub
。。。。。。
endsub
-->
</script>

2013-08-22 10:04
Aviva_Wang
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:苏州
等 级:贵宾
威 望:26
帖 子:701
专家分:2382
注 册:2013-3-12
收藏
得分:5 
如果<!--  -->里面的内容变成绿色的才被真正的注释掉,如果没有变成绿色,依然是有作用的,我拿到我的项目中运行了一下,这段代码是没有被注释起来的,里面的作用是对下面注册信息的验证
Script验证是一个很好的前台验证方法,不过,我没有用过vbScript

asp
2013-08-22 14:28
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
收藏
得分:0 
我从网上搜索:有的浏览器不认识VBSCRIPT,当它看到<!--  -->就会忽略,而如果认识的话,就会执行<!--  -->里面的代码
2013-08-22 16:26
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:5 
在Script的作用范围内,<!--  -->注释里的内容同样会被解释的。

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2013-08-23 07:43
快速回复:<script language=vbscript><!-- xxxxxx -----> </script&g ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.113866 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved