交换温柔2 韩国完整版:我下面这个页面是个人信息注册页面!

来源:百度文库 编辑:中科新闻网 时间:2024/04/28 13:34:17
在下面这段代码中我用frm1.Submit来向数据库提交数据但是却提交不了出现错误说Submit对象不可用请问是哪里出错了?
<html>
<head>
<title>申请新会员</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<script language="vbscript">
sub check()
'检查必须添写的项目是否准确的填写
if frm1.name.value=empty then
msgbox "请填写您的真实姓名!"
focusto(0)
exit sub
end if
if frm1.userid.value=empty then
msgbox "请填写您的id号码!"
focusto(1)
exit sub
end if
if frm1.password1.value=empty then
msgbox "请设置您的登录密码!"
focusto(2)
exit sub
end if
if frm1.password2.value=empty then
msgbox "请确认您输入的密码!"
focusto(3)
exit sub
end if
if frm1.password1.value<>frm1.password2.value then
msgbox "您的密码设置有误!"
focusto(3)
exit sub
end if
if frm1.year.value=empty then
msgbox "请填写您的出生年份!"
focusto(6)
exit sub
end if
if frm1.month.value=empty then
msgbox "请填写您的出生月份!"
focusto(7)
exit sub
end if
if frm1.day.value=empty then
msgbox "请填写您的出生日期!"
focusto(8)
exit sub
end if
if frm1.email.value=empty then
msgbox "请填写您的Email地址!"
focusto(12)
exit sub
end if
if instr(frm1.email.value, "@")=0 then
msgbox "请正确填写您的Email地址!"
focusto(12)
exit sub
end if
if frm1.question.value=empty then
msgbox "请设置您的提示问题!"
focusto(13)
exit sub
end if
if frm1.answer.value=empty then
msgbox "请设置您的问题回答!"
focusto(14)
exit sub
end if
if cint(frm1.month.value)>12 or cint(frm1.month.value)<1 then
msgbox "您的出生月份填写有误!"
focusto(7)
exit sub
end if
if cint(frm1.day.value)>31 or cint(frm1.day.value)<1 then
msgbox "您的出生日期填写有误!"
focusto(8)
exit sub
end if
frm1.Submit
end sub
Sub focusto(x)
document.frm1.elements(x).focus()
end sub
</script>

贴得这么少怎么判断?