您的位置：程序门 -> web 开发 -> asp

关于客户端验证脚本的问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

关于客户端验证脚本的问题[已结贴,结贴人:lijiuhua0721]

发表于：2007-05-16 14:25:50 楼主

while not rs2.eof
<tr>
<td> <input type= "radio " name= "test <%=rs2（ "id ")%> "value= "1 "> 强 </td>
<td> <input type= "radio " name= "test <%=rs2（ "id ")%> " value= "2 "> 较强 </td>
<td> <input type= "radio " name= "test <%=rs2（ "id ")%> " value= "3 "> 一般 </td>
<td> <input type= "radio " name= "test <%=rs2（ "id ")%> " value= "4 "> 较弱 </td>
<td> <input type= "radio " name= "test <%=rs2（ "id ")%> " value= "5 "> 弱 </td>
</tr>
rs2.movenext
wend
现在想对这个单选按钮进行客户端验证,也就是说,如果其中有一次没有被选则弹出提示并且返回后指到那一项上.用vbscript,这个程序应该怎么写.
在线等,谢谢

发表于：2007-05-16 14:37:351楼得分:0

...
if request.form（ "test "&rs（ "id "))= " " then
提示有某一项没有别选择
response.end（)
end if
要跳转到指定项,使用 <a name= " <%=rs（ "id ")%> "> </a> 做标记
然后提示之后跳转到标记那即可

发表于：2007-05-16 14:49:452楼得分:0

这应该算服务器端验证吧,我想要vbscript的客户端程序,现在就是不知道如何取得单选按钮的值
前面表单省略
sum=0
while not rs2.eof
<tr>
<td> <input type= "radio " name= "test <%=rs2（ "id ")%> "value= "1 "> 强 </td>
<td> <input type= "radio " name= "test <%=rs2（ "id ")%> " value= "2 "> 较强 </td>
<td> <input type= "radio " name= "test <%=rs2（ "id ")%> " value= "3 "> 一般 </td>
<td> <input type= "radio " name= "test <%=rs2（ "id ")%> " value= "4 "> 较弱 </td>
<td> <input type= "radio " name= "test <%=rs2（ "id ")%> " value= "5 "> 弱 </td>
</tr>
sum=sum+1
rs2.movenext
wend
<input type= "submit " name= "submit " value= "提交 " onclick= "checkinfo（ <%=sum%> ) ">

<script language=vbscript>
function checkinfo（i)
这里面应该怎么写,如何取得单选按钮的值,注意,是要求如果单选按钮如果没有被选上,这时返回失败.
end function
</script>
请高手指点一下,谢谢

发表于：2007-05-16 15:27:023楼得分:0

发表于：2007-05-17 14:42:434楼得分:0

<% ...
sum=0
while not rs2.eof %>
<tr>
<td> <input type= "radio " name= "test value= "1 "> 强 </td>
<td> <input type= "radio " name= "test value= "2 "> 较强 </td>
<td> <input type= "radio " name= "test value= "3 "> 一般 </td>
<td> <input type= "radio " name= "test value= "4 "> 较弱 </td>
<td> <input type= "radio " name= "test value= "5 "> 弱 </td>
</tr>
<%sum=sum+1
rs2.movenext
wend %>
<input type= "submit " name= "submit " value= "提交 " onclick= "checkinfo（) ">

<script language=vbscript>
sub checkinfo（ )
flg=true
for each x in form1.test
if not x.checked then
flg=false
exit for
end if
if not flg then msgbox "信息不完整! "
end sub
</script>

发表于：2007-05-17 14:43:455楼得分:0

你的代码中还有一个问题：

<input type= "submit " name= "submit " value= "提交 " onclick= "checkinfo（) ">
这一句要改一下：

<input type= "button " name= "submit1 " value= "提交 " onclick= "checkinfo（) ">

发表于：2007-05-17 15:45:546楼得分:0

谢谢回复,有一个问题
for each x in form1.test中的form1.test是不是指在form1表单中的所有名称为test的各个元素呀,
如果 <td> <input type= "radio " name= "test value= "1 "> 强 </td> 都写成name= "test "这样的话,那么,循环出来的所有的单选按钮都是一个名,那么所有的题目,是不是只有一个被选呀,其它的都选不上呀,所以这种写法不对吧!!

请继续回复,谢谢

发表于：2007-05-17 16:19:367楼得分:0

while not rs2.eof
test= "test "cint（sum)
%>
<tr>
<td> <input type= "radio " name= " <%=test%> " value= "1 "> 强 </td>
<td> <input type= "radio " name= " <%=test%> " value= "2 "> 较强 </td>
</tr>
<%sum=sum+1
rs2.movenext
wend %>

<input type= "submit " name= "submit " value= "提交 " onclick= "checkinfo（ <%=sum%> ) ">

<script language=vbscript>
function checkinfo（i){
var test,n,flog=0;
var nn ;
var radioanswer;
for （t=1;t <i;t++)
{
radioanswer= "test "+t;
n=0
nn=self.document.all.item（radioanswer);
for （j=0;j <nn.length;j++)
{
if （self.document.all.item（radioanswer,j).checked)
{flog=1;
test=test+ "/ "+self.document.all.item（radioanswer,j).value
break;}
if（j==n){ruturn false;}
}
}
}
end function
</script>
不知道行不行自己在改一改吧!

发表于：2007-05-19 10:24:238楼得分:0

楼上的好象还是用的javascript吧,求一个vbscript的程序,跟据上面的各位的提示已经写到可以得到单选按钮的名了,但如何取值不知道怎么写
<script language= "vbscript ">
function chk（i)
dim t
dim radioanswer
for t=1 to i
radioanswer= "test "&t
document.write radioanswer
if '如果单选按钮没有被选则退出程序执行
document.form1.radioanswer.focus（)
document.form1.radioanswer.select（this)
window.event.returnvalue=false
exit function
end if
next
end function
</script>

发表于：2007-05-23 16:48:539楼得分:0

答案楼上的已经回答了，我就不多说了，呵呵

根一般的text判断是一样的。

发表于：2007-05-24 11:21:3210楼得分:0

晕,要一样就不在这问了,迷糊!!!
另外上面的是javascript 并不是vbscript 楼上的不会是来混分的吧!!

请高手帮忙,版主在不呀,进来回复呀,不会象我以前的贴子得自己弄出来答案吧!!
555

真正的高手来,分不是问题!!!!

发表于：2007-05-25 14:38:5811楼得分:0

还没解决么？你用request来收值，再根据值来判断是否提示。
js或vbs里都是一样的思路。

发表于：2007-05-27 10:16:1512楼得分:100

<form name=form1 id=form1> <table>
<tr>
<td> 第1题: </td>
<td> <input type= "radio " name= "test1 " value= "2 "> 较强 </td>
<td> <input type= "radio " name= "test1 " value= "3 "> 一般 </td>
<td> <input type= "radio " name= "test1 " value= "4 "> 较弱 </td>
<td> <input type= "radio " name= "test1 " value= "5 "> 弱 </td>
</tr>
<tr>
<td> 第2题: </td>
<td> <input type= "radio " name= "test2 " value= "2 "> 较强 </td>
<td> <input type= "radio " name= "test2 " value= "3 "> 一般 </td>
<td> <input type= "radio " name= "test2 " value= "4 "> 较弱 </td>
<td> <input type= "radio " name= "test2 " value= "5 "> 弱 </td>
</tr>
</table>
<input type=submit name=submit1 value=提交 onclick= "return chk（2) ">
</form>
<script language=vbscript>
function chk（sum)
dim i:i=0
dim ip
chk = false
while i < sum
ip = "test " & （i+1)
dim chk2
chk2 = false
for each x in document.all（ip)
if x.checked then
chk2 = true
exit for
end if
next
if not chk2 then
exit function
end if
i = i + 1
wend
chk = true
end function
</script>

发表于：2007-05-31 14:20:2013楼得分:0

谢谢楼上的

下一篇：鄙视我自己的简单问题--帮我看看错在哪里
上一篇：asp 0201

其他资讯