28,406
社区成员
发帖
与我相关
我的任务
分享请教代码
<script language="vbscript">
<%
function datacheck()
dim errflag,msg
errflag=true
if len(trim(dapibu.da_pi.value))=0 then
focusto(5)
errflag=false
end if
if(errflag=false) then
msg="这样不行，至少要输入“留言内容”和“e-mail”!"
msg=msg & vbcrlf
msgbox msg,64,"oh,no"
exit function
end if
datacheck=errflag
dapibu.submit
end function
sub focusto(x)
document.dapibu.elements(x).focus()
end sub
%>
</script>
<body>
<p>亲爱的访客们，请你们留言，谢谢！
</p>
<form name="dapibu" method="post" action="15-01.asp">
姓 名：
<input type="text" name=nickname>
<p>地 区：
<select name=place>
<option>北京</option>
<option>上海</option>
<option>南京</option>
<option>新疆</option>
</select>
</p>
<p>职 业：
<select name=job>
<option>律师</option>
<option>商人</option>
<option>教师</option>
<option>程序员</option>
</select>
</p>
<p>尹妹儿：
<input type="text" name=e-mail>
</p>
<p>留言内容：</p>
<p>
<textarea name=da_pi></textarea>
</p>
<p>
<input type=button name="Submit" value="签名啦" onclick=datacheck()>
<input type=reset name="Submit" value="这次不要">
</p>
</form>
<p> </p>
</body>
</html>
当我什么内容也不填，点击“签名啦”按钮时，为什么没有执行datacheck()函数？没有弹出="这样不行，至少要输入“留言内容”和“e-mail”!"？？
谢谢
<%
function datacheck()
dim errflag,msg
errflag=true
if len(trim(dapibu.da_pi.value))=0 then
focusto(5)
errflag=false
end if
if(errflag=false) then
msg="这样不行，至少要输入“留言内容”和“e-mail”!"
msg=msg & vbcrlf
msgbox msg,64,"oh,no"
exit function
end if
datacheck=errflag
dapibu.submit
end function
sub focusto(x)
document.dapibu.elements(x).focus()
end sub
%>
</script>
<body>
<p>亲爱的访客们，请你们留言，谢谢！
</p>
<form name="dapibu" method="post" action="15-01.asp">
姓 名：
<input type="text" name=nickname>
<p>地 区：
<select name=place>
<option>北京</option>
<option>上海</option>
<option>南京</option>
<option>新疆</option>
</select>
</p>
<p>职 业：
<select name=job>
<option>律师</option>
<option>商人</option>
<option>教师</option>
<option>程序员</option>
</select>
</p>
<p>尹妹儿：
<input type="text" name=e-mail>
</p>
<p>留言内容：</p>
<p>
<textarea name=da_pi></textarea>
</p>
<p>
<input type=button name="Submit" value="签名啦" onclick=datacheck()>
<input type=reset name="Submit" value="这次不要">
</p>
</form>
<p> </p>
</body>
</html>
当我什么内容也不填，点击“签名啦”按钮时，为什么没有执行datacheck()函数？没有弹出="这样不行，至少要输入“留言内容”和“e-mail”!"？？
谢谢
...全文
请发表友善的回复…
发表回复
moodboy1982 2005-10-20
- 打赏
- 举报
你的验证代码为什么用VBSCRIPT而不用JAVASCRIPT呢？
VBSCRIPT有的浏览器不支持哟~
还有你的验证代码好像也有问题。
VBSCRIPT有的浏览器不支持哟~
还有你的验证代码好像也有问题。
