这个Sub过程怎么老是不能执行？

[网络老鼠]

下面是写的一个Sub过程 检查输入的“商品名称”的 如果为空则弹出错误信息，按确定按钮执行。可为什么运行时不管满不满足条件都不执行这段代码，请帮我看看，代码基本如下：
Sub过程代码：
<script language="vbscript">
<%
Sub check() '定义一个过程
if Len(REG.Spmc.value)=0 then
Msg"商品名称必须填写" '如果商品名称为空则弹出错误信息

end if

End Sub

%>
</script>

按钮代码：

<input type="submit" value="提交" name="Submit" OnClick="check">
<input type="reset" value="取消" name="Reset">

[chjpeng]

<script language="vbscript">
Sub check() '定义一个过程
if Len(REG.Spmc.value)=0 then
Msgbox "商品名称必须填写" '如果商品名称为空则弹出错误信息

end if

End Sub
</script>

按钮代码：
<form name=reg>
<input type=text name=spmc>
<input type="submit" value="提交" name="Submit" OnClick="check">
<input type="reset" value="取消" name="Reset">
</form>

[tigerhu76]

REG.Spmc.value="" 或 REG.Spmc.value==""

我觉得用这句，如果只输入空格，就检测不到，程序认为输入不为空。在VB中可以用 trim(REG.Spmc.value)="" 判断，但在javascript中用正则表达式比较好，因为在javascript中好象没有trim函数。

if(/^\s*$/g.test(Reg.Spmc.value)){
alert("商品名称必须填写。");
}

[iexapl]

方法一:
把<input type="submit" value="提交" name="Submit" OnClick="check">
改成<input type="button" value="提交" name="Submit" OnClick="check">
<script language="vbscript">
Sub check() '定义一个过程
if Len(REG.Spmc.value)=0 then
Msg"商品名称必须填写" '如果商品名称为空则弹出错误信息
Exit Sub
end if
form1.submit
End Sub
</script>
方法二:
<script language="javascript">
function check()
{
if(REG.Spmc.value.length==0){
alert("商品名称必须填写");
return false;
}else{
return true
}
}

</script>

<form name="form1" method="post" action="..." onsubmit="javascript:return check();">
<input type="submit" value="提交" name="Submit" OnClick="check">

[iexapl]

更正:
方法二:
<script language="javascript">
function check()
{
if(REG.Spmc.value.length==0){
alert("商品名称必须填写");
return false;
}else{
return true
}
}

</script>

<form name="form1" method="post" action="..." onsubmit="javascript:return check();">
<input type="submit" value="提交" name="Submit">

[飞扬残月]

添加如下代码：

<% ir request("submit")="提交" then
call check()
end if
%>

[hzw66]

<script language="vbscript">
Sub check() '定义一个过程
if Len(REG.Spmc.value)=0 then
Msg"商品名称必须填写" '如果商品名称为空则弹出错误信息
end if
End Sub
</script>
按钮代码：
<input type="submit" value="提交" name="Submit" OnClick="check">
<input type="reset" value="取消" name="Reset">

[网络老鼠]

把Sub外面的<% .. %>去掉后也是不行

一开始我是按书上的示例代码写的 是把Sub代码放进<!--...-->里的 也不行 所以我换了好多种格式都试了

[winlmh]

来晚了

[网络老鼠]

我换了下面这个以后就提示错误,说缺少对象"REG",我点"否"了以后就又直接跳过了
<script language="vbscript">
Sub check() '定义一个过程
if Len(REG.Spmc.value)=0 then
Msg"商品名称必须填写" '如果商品名称为空则弹出错误信息
end if
End Sub
</script>
按钮代码：
<input type="submit" value="提交" name="Submit" OnClick="check">
<input type="reset" value="取消" name="Reset">

如果把"submit"换成"button"以后就跳不过去了

[网络老鼠]

回iexapl(飞龙侠客);

你的方法我试了 提示"缺少对象REG" 点否了也是直接跳过了

[erichang]

这个问题我也遇到过，当时也能运行，只是说网页有错误，当时用的是get的提交方式，后来我把get改了post就可以了。

[网络老鼠]

我用的就是POST
而且直接跳过的话也就达不到运行这个过程的目的了

[king2410]

判断函数用 leo963258(读书之人) 的，我就不重复了
调用的时候要这样：
<form name="REG" method="post" onsubmit="return check();"><!--对象REG在这-->
<input type="text" name="spmc">
<input type="submit" value="提交" name="Submit">
<input type="reset" value="取消" name="Reset">
</form>

[网络老鼠]

多谢大家帮忙,现在这个问题解决了 又遇到这个问题:
弹出"商品名称必须填写"这个对话框以后点确定以后还是直接跳到相应的ASP页面了,能不能让它留在本页面不跳转的?

[iexapl]

你表单叫什么名字?

[iexapl]

"相应的ASP页面"
你是指的哪个页面?

[网络老鼠]

回iexapl(飞龙侠客) 谢谢你
刚才确实是表单名字搞错了

我指的ASP页面是表单参数需要传送的页面,我这里是add.asp 我不希望商品名称为空的记录传送到add.asp页面,可是弹出对话框以后点了按钮还是跳转到add.asp了 不知道怎么解决

[leo963258]

你函数怎么写的!!
COPY出来

[iexapl]

你函数怎么写的?

[网络老鼠]

是不是指这个:
Sub check() '定义一个过程
if Len(Trim(ADD.Spmc.value))=0 then
Msgbox "商品名称必须填写",vbExclamation '如果商品名称为空则弹出错误信息
end if
End Sub

下面的表单是这个:
<FORM NAME=ADD METHOD=POST ACTION="add.asp">