| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 380 人关注过本帖
标题:寻找路的方向
只看楼主 加入收藏
yql100059
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2010-6-13
结帖率:0
收藏
已结贴  问题点数:10 回复次数:2 
寻找路的方向
<html>
<head><title>学生信息</title>
<script language="vbscript">
<!--
sub checkvl()
dim xm,xh,xy,js
xy=myform.xy.value
xm=myform.xm.value
xh=myform.xh.value
js=myform.js.value
if xm=""then
  msgbox"请输入你的姓名!",0+48
  focust(0)
  exit sub
else
  if len(xh)<6then
    msgbox"学号应大与6个字符!",0+48
    focust(1)
    exit sub
  else
    if xy="0"then
      msgbox"请选择你所在学院!",0+48
      focust(2)
      exit sub
    else
      if js=""then
        msgbox"请自我介绍!",0+48
        focust(3)
        exit sub
      else
        document.myform.submit()
      end if
    end if
  end if
end if
end sub
 sub focusto(x)
  document.myform.element(x).focus()
end sub
-->
</script>
</head>
<body>
<center>
<form name="myform" method="post" action="user.asp">
<table width="60%" border="2">
<caption>学生信息表</caption>
<tr>
<td align="center">姓名:</td>
<td><input type="text" size="20" name="xm"></td>
<td align="center">性别:</td>
<td><input type="radio" value="1" name="xb"checked>男
<input type="radio" value="2" name="xb">女</td>
</tr>
<tr>
<td align="center">学号:</td>
<td><input type="text" size="20" name="xh"></td>
<td align="center">所在学院:</td>
<td><select name="xy">
<option value="0">请选择</option>
<option value="1">计算机</option>
<option value="2">金融</option>
<option value="3">材料</option>
</select></td>
</tr>
<tr>
<td align="center">自我介绍:</td>
<td><textarea type="text" name="js"rows="2"></textarea></td>
<td align="center">课余爱好:</td>
<td>
<input type="checkbox"name="ah" value="钢琴">钢琴
<input type="checkbox"name="ah" value="足球">足球
<input type="checkbox"name="ah" value="听歌">听歌
</td>
</tr>
<tr><td align="center" colspan="4">
<input type="button" name="btn1" value="确定" onclick="checkvl()">
<input type="reset" name="btn2" value="取消"></td>
</tr>
</table>
</form>
</center>
</body>
</html>
在线的各位前辈,小弟愚笨,给了上面的一个表单,要求对其进行验证,我已经用IF语句对表单中的姓名,学号,所在学院,自我介绍做了判断,并能对这4个元素进行验证。但是在写IF语句对课余爱好(复选框)进行验证,都出现错误,很是无赖。要求课余爱好不能我空值。请前辈用VB脚本写IF语句插入到上面的VB代码中对课余爱好进行验证。谢谢
搜索更多相关主题的帖子: 路的方 
2010-06-14 12:10
icecool
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:20
帖 子:1216
专家分:1376
注 册:2005-3-14
收藏
得分:10 
严重怀疑你的自学能力,
都写好了你放进去不就是:
<html>
<head><title>学生信息</title>
<script language="vbscript">
<!--
sub checkvl()
dim xm,xh,xy,js
xy=myform.xy.value
xm=myform.xm.value
xh=myform.xh.value
js=myform.js.value
if xm=""then
  msgbox"请输入你的姓名!",0+48
  focust(0)
  exit sub
else
    if len(xh)<6then
       msgbox"学号应大与6个字符!",0+48
    focust(1)
      exit sub
  else
      if xy="0"then
           msgbox"请选择你所在学院!",0+48
           focust(2)
      exit sub
    else
      if js=""then
        msgbox"请自我介绍!",0+48
        focust(3)
        exit sub
      else
        call checkvl2()
      end if
    end if
  end if
end if
end sub
sub focusto(x)
  document.myform.element(x).focus()
end sub

function checkvl2()
tem=0
for i=0 to 2
     if document.forms("myform").ah(i).checked then
        tem=tem+1
     end if
next
     if tem<1 then
        msgbox "课余爱好至少选择一项"
        exit function
     else
        document.myform.submit()
     end if
end function

-->
</script>
</head>
<body>
<center>
<form name="myform" method="post" action="user.asp">
<table width="60%" border="2">
<caption>学生信息表</caption>
<tr>
<td align="center">姓名:</td>
<td><input type="text" size="20" name="xm"></td>
<td align="center">性别:</td>
<td><input type="radio" value="1" name="xb"checked>男
<input type="radio" value="2" name="xb">女</td>
</tr>
<tr>
<td align="center">学号:</td>
<td><input type="text" size="20" name="xh"></td>
<td align="center">所在学院:</td>
<td><select name="xy">
<option value="0">请选择</option>
<option value="1">计算机</option>
<option value="2">金融</option>
<option value="3">材料</option>
</select></td>
</tr>
<tr>
<td align="center">自我介绍:</td>
<td><textarea type="text" name="js"rows="2"></textarea></td>
<td align="center">课余爱好:</td>
<td>
<input type="checkbox"name="ah" value="钢琴">钢琴
<input type="checkbox"name="ah" value="足球">足球
<input type="checkbox"name="ah" value="听歌">听歌
</td>
</tr>
<tr><td align="center" colspan="4">
<input type="button" name="btn1" value="确定" onclick="checkvl()">
<input type="reset" name="btn2" value="取消"></td>
</tr>
</table>
</form>
</center>
</body>
</html>

[ 本帖最后由 icecool 于 2010-6-14 13:43 编辑 ]

http://toorup.3v.do
loading...
2010-06-14 12:52
yql100059
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2010-6-13
收藏
得分:0 
不管你怎么说我,我还是很谢谢你大哥!~~
2010-06-14 23:14
快速回复:寻找路的方向
数据加载中...
 
   



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

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