简单问题,在线等...

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 对象不支持此属性或方法
请大家帮忙看下如何操作/
...全文
313 14 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
wfylg 2007-05-10
  • 打赏
  • 举报
回复
非常谢谢wangwm,问题解决
wangwm 2007-05-10
  • 打赏
  • 举报
回复
<script language="vbscript">
Sub dosave
Dim flag
Dim sValue
flag = False

For Each rs In frmxx.R1
If rs.checked Then
flag = True
sValue = rs.Value
Exit For
End if
Next
If flag Then
If sValue = 0 Then
MsgBox "安装单!",vbInformation,"提示"
Exit Sub
End if
End if
If flag=false Then
msgbox "请选择!",vbInformation,"提示"
Exit Sub
End if

frmxx.action="gd_edit_save.asp"
frmxx.submit
end Sub
</script>
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
  • 打赏
  • 举报
回复
请问chuckcoin(啥都不懂呀) 怎么知道是否被选中?
li1229363 2007-05-10
  • 打赏
  • 举报
回复
chuckcoin的方法也是对的
li1229363 2007-05-10
  • 打赏
  • 举报
回复
不使用vb客户端脚本,都使用的是javaxcript脚本

你应该在input上添加一个changge或者chick,方法是以函数,写法和你写的类似就OK了
chuckcoin 2007-05-10
  • 打赏
  • 举报
回复
给需要判断的radio加个id
<input type="radio" value="0" name="R1" id="xxx">安装送货
然后判断它是否checked
wfylg 2007-05-10
  • 打赏
  • 举报
回复
自己先顶下..

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧