28,391
社区成员
发帖
与我相关
我的任务
分享asp的onclick问题
请看下面代码：
<HTML>
<HEAD><TITLE>简单验证</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Submit_OnClick
Dim TheForm
Set TheForm = Document.ValidForm
If IsNumeric(TheForm.Text1.Value) Then
If TheForm.Text1.Value<1 Or TheForm.Text1.Value>10 Then
MsgBox "请输入一个 1 到 10 之间的数字。"
Else
MsgBox "谢谢。"
'TheForm.Submit
End If
Else
MsgBox "请输入一个数字。"
End If
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<H3>简单验证</H3><HR>
<FORM NAME="ValidForm">
请输入一个 1 到 10 之间的数字：
<INPUT NAME="Text1" TYPE="TEXT" SIZE="2">
<INPUT NAME="Submit" TYPE="BUTTON" VALUE="提交" >
</FORM>
</BODY>
</HTML>
如果我在<INPUT NAME="Submit" TYPE="BUTTON" VALUE="提交" >变成<INPUT NAME="Submit" TYPE="BUTTON" VALUE="提交" ONCLICK="Submit_OnClick">后的运行结果是不一样的，同一个MSGBOX回出现两次。为什么？
<HTML>
<HEAD><TITLE>简单验证</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Submit_OnClick
Dim TheForm
Set TheForm = Document.ValidForm
If IsNumeric(TheForm.Text1.Value) Then
If TheForm.Text1.Value<1 Or TheForm.Text1.Value>10 Then
MsgBox "请输入一个 1 到 10 之间的数字。"
Else
MsgBox "谢谢。"
'TheForm.Submit
End If
Else
MsgBox "请输入一个数字。"
End If
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<H3>简单验证</H3><HR>
<FORM NAME="ValidForm">
请输入一个 1 到 10 之间的数字：
<INPUT NAME="Text1" TYPE="TEXT" SIZE="2">
<INPUT NAME="Submit" TYPE="BUTTON" VALUE="提交" >
</FORM>
</BODY>
</HTML>
如果我在<INPUT NAME="Submit" TYPE="BUTTON" VALUE="提交" >变成<INPUT NAME="Submit" TYPE="BUTTON" VALUE="提交" ONCLICK="Submit_OnClick">后的运行结果是不一样的，同一个MSGBOX回出现两次。为什么？
...全文
请发表友善的回复…
发表回复
coffee_cn 2002-05-17
- 打赏
- 举报
vb你应该知道吧；；因为<INPUT NAME="Submit" TYPE="BUTTON" VALUE="提交" >有了个名字为submit的对象了呀，很象vb中的
Private Sub Command1_Click()
End Sub
这个呀，
不过你可以不这样用；
这样改就可以呀：
<HTML>
<HEAD><TITLE>简单验证</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub CheckIt
Dim TheForm
Set TheForm = Document.ValidForm
If IsNumeric(TheForm.Text1.Value) Then
If TheForm.Text1.Value<1 Or TheForm.Text1.Value>10 Then
MsgBox "请输入一个 1 到 10 之间的数字。"
Else
MsgBox "谢谢。"
'TheForm.Submit
End If
Else
MsgBox "请输入一个数字。"
End If
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<H3>简单验证</H3><HR>
<FORM NAME="ValidForm">
请输入一个 1 到 10 之间的数字：
<INPUT NAME="Text1" TYPE="TEXT" SIZE="2">
<INPUT NAME="Submit" TYPE="BUTTON" VALUE="提交" onclick="CheckIt">
</FORM>
</BODY>
</HTML>
Private Sub Command1_Click()
End Sub
这个呀，
不过你可以不这样用；
这样改就可以呀：
<HTML>
<HEAD><TITLE>简单验证</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub CheckIt
Dim TheForm
Set TheForm = Document.ValidForm
If IsNumeric(TheForm.Text1.Value) Then
If TheForm.Text1.Value<1 Or TheForm.Text1.Value>10 Then
MsgBox "请输入一个 1 到 10 之间的数字。"
Else
MsgBox "谢谢。"
'TheForm.Submit
End If
Else
MsgBox "请输入一个数字。"
End If
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<H3>简单验证</H3><HR>
<FORM NAME="ValidForm">
请输入一个 1 到 10 之间的数字：
<INPUT NAME="Text1" TYPE="TEXT" SIZE="2">
<INPUT NAME="Submit" TYPE="BUTTON" VALUE="提交" onclick="CheckIt">
</FORM>
</BODY>
</HTML>
wangfei2428 2002-05-17
- 打赏
- 举报
<...ONCLICK="check()">
<SCRIPT LANGUAGE="VBScript">
sub check()
...
end sub
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
sub check()
...
end sub
</SCRIPT>
cmsoft 2002-05-17
- 打赏
- 举报
建议用JS
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Submit_OnClick()
Dim TheForm
Set TheForm = Document.ValidForm
If IsNumeric(TheForm.Text1.Value) Then
If TheForm.Text1.Value<1 Or TheForm.Text1.Value>10 Then
MsgBox "请输入一个 1 到 10 之间的数字。"
exit sub
Else
MsgBox "谢谢。"
exit sub
'TheForm.Submit
End If
Else
MsgBox "请输入一个数字。"
exit sub
End If
End Sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Submit_OnClick()
Dim TheForm
Set TheForm = Document.ValidForm
If IsNumeric(TheForm.Text1.Value) Then
If TheForm.Text1.Value<1 Or TheForm.Text1.Value>10 Then
MsgBox "请输入一个 1 到 10 之间的数字。"
exit sub
Else
MsgBox "谢谢。"
exit sub
'TheForm.Submit
End If
Else
MsgBox "请输入一个数字。"
exit sub
End If
End Sub
-->
</SCRIPT>
silentlamb 2002-05-17
- 打赏
- 举报
submit_onclick本来就已经调用了方法，不用onclick再显式调用了
