简单问题,在线等...

wfylg 2007-05-10 09:58:34

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 2</title>
</head>
<script language="vbscript">
function dosave
if frmxx.R1.value="0" then
msgbox "安装单!",vbInformation,"提示"
end if
frmxx.action="gd_edit_save.asp"
frmxx.submit
end function
</script>
<body>
<form action="" method="POST" id="frmxx" name="frmxx">
<input type="radio" value="0" name="R1">安装送货
<input type="radio" value="1" name="R1">维修类
<input type="radio" value="2" name="R1">技术类
<input type="radio" value="3" name="R1">工程类
<input type="button" class="button" onclick='vbscript:dosave' value="保存" id="button1" name="button1">
</form>

</body>

</html>
我想得到的是当选择安装送货单,保存时系统会提示,但运行时出现frmxx.r1.value 对象不支持此属性或方法
请大家帮忙看下如何操作/

...全文

312 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

wfylg 2007-05-10

打赏
举报

非常谢谢wangwm,问题解决

wangwm 2007-05-10

打赏
举报

wfylg 2007-05-10

打赏
举报

谢谢楼上的两位,可是我按你们的方法调试还是没有成功,
wangwm(星星火炬-http://jymass.com)你后面的可以,但是判断有没有选取单选框,这个是没问题,但我是想当我选中了第一项时我能得到他的value值,可是按你的代码原理上没问题,但怎么得不到我要的结果呢

chuckcoin 2007-05-10

打赏
举报

按钮忘了改了
<input type="button" class="button" onclick='javascript:dosave()' value="保存" id="button1" name="button1">

wangwm 2007-05-10

打赏
举报

你要怎么判断？

<script language="vbscript">
Sub dosave
Dim flag
flag = False

For Each rs In frmxx.R1
If rs.checked Then
flag = True
Exit For
End if
next
If flag=false Then
msgbox "请选择!",vbInformation,"提示"
Exit Sub
End if

frmxx.action="gd_edit_save.asp"
frmxx.submit
end Sub
</script>

chuckcoin 2007-05-10

打赏
举报

客户端脚本用javascript写吧
<script language="javascript">
function dosave()
{
if (document.getElementById("xxx").checked)
alert("安装单!" + vbInformation + "提示");

frmxx.action = "gd_edit_save.asp";
frmxx.submit();
}
</script>

<form action="" method="POST" id="frmxx" name="frmxx">
<input type="radio" value="0" name="R1" id="xxx">安装送货
<input type="radio" value="1" name="R1">维修类
<input type="radio" value="2" name="R1">技术类
<input type="radio" value="3" name="R1">工程类
<input type="button" class="button" onclick='vbscript:dosave' value="保存" id="button1" name="button1">
</form>

wfylg 2007-05-10

打赏
举报

wangwm(星星火炬-http://jymass.com) ( )

按你的方法是,不管选什么,保存时这边都提示安装单了????

wfylg 2007-05-10

打赏
举报

li1229363() ( ) 信誉：100 Blog 加为好友 2007-05-10 10:08:11 得分: 0

不使用vb客户端脚本，都使用的是javaxcript脚本

你应该在input上添加一个changge或者chick，方法是以函数，写法和你写的类似就OK了
________________________________________
我明白你的意思.但我是想提交保存时检测

wangwm 2007-05-10

打赏
举报

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 2</title>
</head>
<script language="vbscript">
Sub dosave
For Each rs In frmxx.R1
if rs.value="0" then
msgbox "安装单!",vbInformation,"提示"
Exit Sub
Exit For
end if
next
frmxx.action="gd_edit_save.asp"
frmxx.submit
end Sub
</script>
<body>
<form action="" method="POST" id="frmxx" name="frmxx">
<input type="radio" value="0" name="R1">安装送货
<input type="radio" value="1" name="R1">维修类
<input type="radio" value="2" name="R1">技术类
<input type="radio" value="3" name="R1">工程类
<input type="button" class="button" onclick='vbscript:dosave' value="保存" id="button1" name="button1">
</form>

</body>

</html>

wfylg 2007-05-10