表单提交的问题

sysdy 2002-02-07 03:49:17
我写了个VBSCRIPT的数据验证函数,想提交表单前验证数据,代码如下。
但运行使网页的任务栏显示“网页上有错误”,并不能提交表单。
请高手赐教。
<html>
<head>
<title>register</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">
</head>

<script language="vbscript" runat="server">
sub datacheck()
if reg.name.value=empty then
msgbox "请填入你的姓名。谢谢!",64,"error"
focusto(0)
exit sub
end if

if reg.pwd.value=empty then
msgbox "请填入你的密码。谢谢!",64,"error"
focusto(1)
exit sub
end if

if reg.pwd.value<>reg.pwdcheck.value then
msgbox "两次填入的密码不同,请检查。谢谢!",64,"error"
focusto(2)
exit sub
end if

if reg.age.value<>empty then
if cint(reg.age.value)<10 or cint(reg.age.value)>80 then
msgbox "请填入您的正确年龄。谢谢!",64,"error"
focusto(4)
exit sub
end if
else
msgbox "请填入您的年龄。谢谢!",64,"error"
focusto(4)
exit sub
end if

if instr(reg.email.value,"@")=0 then
msgbox "请填入正确的邮箱地址。谢谢!",64,"error"
focusto(5)
exit sub
end if

reg.submit
end sub

sub focusto(x)
document.reg.elements(x).focus()
end sub
</script>


<body bgcolor="#cda998" text="#000000">
<table width="750" border="0">
<tr>
<td> </td>
</tr>
</table>
<table width="750" border="0">
<tr>
<td> </td>
</tr>
</table>
<table width="750" border="0">
<tr>
<td> </td>
</tr>
</table>
<table width="750" border="0">
<tr>
<td> </td>
</tr>
</table>
<table width="750" border="0" height="400">
<tr>
<td width="150"> </td>
<td width="450">
<form action="register.asp" method="post" name="reg">
<table width="450" border="1" cellpadding="0" cellspacing="0" bordercolor="#FF0000">
<tr>
<td>
<table width="450" border="0" cellpadding="0" cellspacing="0" class="style_index">
<tr>
<td width="100"> </td>
<td width="50"> </td>
<td width="300"><font size="5" color="#FF0000">注册</font>(请至少填写<font color="#FF0000">★</font>号部分)</td>
</tr>
<tr>
<td>
<div align="right">姓名</div>
</td>
<td>
<div align="right"><font color="#FF0000">★</font></div>
</td>
<td>
<input type="text" name="name">
</td>
</tr>
<tr>
<td>
<div align="right">密码</div>
</td>
<td>
<div align="right"><font color="#FF0000">★</font></div>
</td>
<td>
<input type="password" name="pwd">
</td>
</tr>
<tr>
<td>
<div align="right">确认密码</div>
</td>
<td>
<div align="right"><font color="#FF0000">★</font></div>
</td>
<td>
<input type="password" name="pwdcheck">
</td>
</tr>
<tr>
<td>
<div align="right">性别</div>
</td>
<td>
<div align="right"><font color="#FF0000">★</font></div>
</td>
<td>
<select name="sex">
<option selected>男</option>
<option>女</option>
</select>
</td>
</tr>
<tr>
<td>
<div align="right">年龄</div>
</td>
<td>
<div align="right"><font color="#FF0000">★</font></div>
</td>
<td>
<input type="text" name="age" size="4">
</td>
</tr>
<tr>
<td>
<div align="right">E-mail</div>
</td>
<td>
<div align="right"><font color="#FF0000">★</font></div>
</td>
<td>
<input type="text" name="email">
</td>
</tr>
<tr>
<td>
<div align="right">QQ</div>
</td>
<td>
<div align="right"></div>
</td>
<td>
<input type="text" name="QQ">
</td>
</tr>
<tr>
<td>
<div align="right">主页</div>
</td>
<td>
<div align="right"></div>
</td>
<td>
<input type="text" name="homepage">
</td>
</tr>
<tr>
<td>
<div align="right">所在城市</div>
</td>
<td>
<div align="right"></div>
</td>
<td>
<input type="text" name="city">
</td>
</tr>
<tr>
<td>
<div align="right">现在工作</div>
</td>
<td>
<div align="right"></div>
</td>
<td>
<input type="text" name="job">
</td>
</tr>
<tr>
<td>
<div align="right">自我介绍</div>
</td>
<td> </td>
<td>
<textarea name="intro" cols="40" rows="10"></textarea>
</td>
</tr>
<tr>
<td>
<div align="right">是否公开您的信息</div>
</td>
<td> </td>
<td>
<select name="privacy">
<option>是</option>
<option selected>否</option>
</select>
</td>
</tr>
<tr>
<td> </td>
<td> </td>
<td>
<input type="button" name="Submit" value="注册" onclick="javascript:CheckData()">

<input type="reset" name="reset" value="重写">
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</td>
<td width="150"> </td>
</tr>
</table>
</body>
</html>




...全文
56 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
AaddB 2002-02-07
  • 打赏
  • 举报
回复
来看看发生什么事情!
lanying 2002-02-07
  • 打赏
  • 举报
回复
<script language="vbscript" runat="server">
改成<script language="vbscript">
Davelu 2002-02-07
  • 打赏
  • 举报
回复
下次把报错信息写出来,谁有这么多时间看你的程序呀。
希偌 2002-02-07
  • 打赏
  • 举报
回复
onclick="javascript:CheckData()"
这个函数在哪儿?

28,406

社区成员

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

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