注册 登录
编程论坛 ASP技术论坛

一个简单程序点击发送按钮怎么没显示?

yqiong 发布于 2007-08-23 21:02, 1698 次点击

<html>
<head>
<title>无标题文档</title>
<script language="vbscript">
sub datacheck()
if document.reg.name.value="" then
msgbox "姓名不得为空!"
exit sub
end if
if document.reg.email.value="" then
msgbox "电子邮件不能为空!"
exit sub
elseif instr(document.reg.email.value,"@")=0 then
msgbox "你输入的电子邮件不合法!"
exit sub
end if
end if
if document.reg.message.value="" then
msgbox "你还没输入信息呢!"
exit sub
end if
document.reg.submit
end sub
</script>
</head>

<body>
<center><img border="0" src="GBook.gif" width="215" height="71"></center><br>
<center><a href="index.asp"><font size="3">返回主页</font></a>
&nbsp;<a href="index.asp"><font size="3">查看留言板 </font></a></center><br />
<center><form method="post" action="reg.asp" name="reg">
<table border="2" cellpadding="15" cellspacing="0" width="500" bordercolor="#686898">
<tr><td colspan="3" rows="2" bgcolor="#96e1ff" height="48"><center><font color="red">注意:带*项的是必须填写的内容</font></center></td></tr>
<tr><td align="center">
<table border="0" cellpadding="0" cellspacing="0" height="326">
<tr><td height="25"><img src="buttom-b(1).gif" width="16" height="16" >
<font color="red">*</font>你的姓名:</td>
<td colspan="2" align="left"><input type="text" size="37" name="name" ></td></tr>
<tr><td height="25"><img src="buttom-b(1).gif" width="16" height="16" >
<font color="red" >*</font>你的性别:</td>
<td align="left"><input type="radio" name="sex" value="male" checked="checked" >男</td>
<td align="left"><input type="radio" name="sex" value="female" checked="checked" >女</td></tr>
<tr><td height="25"><img src="buttom-b(1).gif" width="16" height="16" >
<font color="red">*</font>你的职业:</td>
<td align="left" colspan="2"><select size="1" name="job">
<option selected="selected">教育业
<option >金融业
</select></td></tr>
<tr align="left"><td height="25" align="left"><img src="buttom-b(1).gif" width="16" height="16" >电子邮件:</td>
<td colspan="2" align="left"><input name="email" size="37" /></td></tr>
<tr><td height="25" align="left"><img src="buttom-b(1).gif" width="16" height="16" >网页地址:</td>
<td colspan="2" align="left"><input type="text" size="37" name="html" value="http://"></td></tr>
<tr><td height="25" colspan="3" align="left"><img src="buttom-b(1).gif" width="16" height="16" >
<font color="red">*</font>留言:</td></tr>
<tr><td colspan="3"><textarea name="message" cols="40" rows="5"></textarea></td></tr></table></td></tr>
<tr><td colspan="3" rows="2" bgcolor="#96e1ff" height="48">
<center><input type="button" name="submit" value="发送" onClick="datacheck">
<input type="reset" name="reset" value="清除" >
</center></td></tr></table></form>
</body>
</html>

[此贴子已经被作者于2007-8-23 21:06:11编辑过]

7 回复
#2
yqiong2007-08-23 21:07

怎么显示成这样啊?试过几次都不行,只好麻烦各位点击在新窗口中查看了,
代码直接复制到DW就能运行

#3
Kettyjin19832007-08-24 13:09

我水平不高.不过我觉得是这样的.
在<input type="button" name="submit" value="发送" onclick="datacheck()">里,把button改成Submit试下吧.

#4
hmhz2007-08-24 13:28

楼上说对了

#5
yqiong2007-08-26 22:58
以下是引用Kettyjin1983在2007-8-24 13:09:52的发言:

我水平不高.不过我觉得是这样的.
在<input type="button" name="submit" value="发送" onclick="datacheck()">里,把button改成Submit试下吧.

不一样吗?
用button控件的话事件是onclick;用submit控件的话事件就是onsubmit。有错吗?

#6
yqiong2007-08-26 23:00
以下是引用Kettyjin1983在2007-8-24 13:09:52的发言:

我水平不高.不过我觉得是这样的.
在<input type="button" name="submit" value="发送" onclick="datacheck()">里,把button改成Submit试下吧.

你运行出来了吗?我怎么还是不能正确运行呀!

#7
hmhz2007-08-27 08:00
你这个是把简单的东西非得变复杂了,在<form>做验证不可以吗?非得在提交按扭上做

提交按扭用Submit是不会出错的,它就是表单原始的提交元素,你使用button已经改变了按扭的用意

再说,我看了你的代码,你那个datacheck()里所处理的只是验证,并没有处理提交事件,所以你再怎么点也不会有反应,并且连验证都不会发生效应

#8
madpbpl2007-08-27 10:23

if document.reg.email.value="" then
msgbox "电子邮件不能为空!"
exit sub
elseif instr(document.reg.email.value,"@")=0 then
msgbox "你输入的电子邮件不合法!"
exit sub
end if
end if -------这里多了个end if

<input type="button" name="submit1" value="发送" onclick="datacheck()">

1