ASP中数据输入的正确性检查问题 大侠看看吧

studentxyd 发布于 2011/07/15 14:48
阅读 247
收藏 0
<!--=======================-->
<!--  范例程序 CH5_7.HTML -->
<!--=======================-->
<HTML>
<HEAD>
<TITLE>表单的输入并检查</TITLE>
<SCRIPT LANGUAGE="VBSCRIPT">

Function ThisForm_OnSubmit()

Dim ErrMsg
ErrMsg=""
If InStr(Document.ThisForm.Email.Value,"@")=0 Then
ErrMsg="请选择正确的E-Mail Address!!"
If Document.ThisForm.Email.Value="" Then
ErrMsg="请输入E-Mail Address!!"
If Document.ThisForm.SEX(0).Checked=False and 
Document.ThisForm.SEX(1).Checked=False Then
ErrMsg="请选择性别!!"
If Document.ThisForm.CName.Value="" Then
ErrMsg="请输入姓名!!"
If ErrMsg<>"" Then
MsgBox ErrMsg
'没有输入姓名,回传False
ThisForm_OnSubmit=False
Else
'检查无误,回传True
ThisForm_OnSubmit=True
End If

End Function

</SCRIPT>
</HEAD>

<BODY BackGround="bg.jpg">

<FORM NAME="ThisForm">
姓名: <INPUT TYPE=TEXT NAME="CName"><BR>

性别:
<INPUT TYPE=RADIO NAME="SEX" VALUE="男">男
<INPUT TYPE=RADIO NAME="SEX" VALUE="女">女<BR>

E-Mail:<INPUT TYPE=TEXT NAME="Email" Size=40><BR><BR>

<INPUT TYPE=SUBMIT VALUE="送出数据">
<INPUT TYPE=RESET VALUE="清除输入">
</FORM>

</BODY>
</HTML>
运行时  啥反应都没有哈?、不管数据输入是否正确有无??它都不会出现警告!!为啥??大侠帮帮忙哈

以下是问题补充:

@studentxyd:找到答案了 \(^o^)/~ (2011/07/17 07:32)
加载中
0
m4tthew
m4tthew
ThisForm_OnSubmit这个函数就没有触发
s
studentxyd
大侠 该怎么改动?小弟我是新手 不懂怎么怎么触动?大侠帮帮忙哈
返回顶部
顶部