狠人来

[wshlxvb]

这是一段表单验证的简单的例子，用的是vbscript做的,
<SCRIPT LANGUAGE="VBScript">
<!--
Sub btnEnter_OnClick
Dim TheForm
Set TheForm = Document.MyForm
If IsNumeric(TheForm.Age.Value) Then
TheForm.submit
Else
Msgbox "Please enter a numerical age."
End if
End Sub
//-->
</SCRIPT>

<FORM METHOD= "POST" NAME= MyForm ACTION="myfile.asp" >
Name: <INPUT TYPE="text" NAME="Name" >
Age: <INPUT TYPE="text" NAME="Age" >
<INPUT TYPE="button" NAME="btnEnter" VALUE="Enter">
</FORM>
相信大家可以看明白的，现在有个问题是，必须用vbscript做，但是用msgbox显示提示信息时，用户可以看到，消息框的左上角有VBscript这几个字母,现在就要把VBscript这几个字除掉，怎么做呢？大家看看，分不够好说，要正确的答案啊，我另开贴，加我QQ也行:287547002。谢谢。小弟菜菜的，请帮忙。

[hzbigdog]

<SCRIPT LANGUAGE="Javascript">
alert((confirm(""))
</SCRIPT>
用JS方便
confirm("")向用户获取值

[purexu]

你可以用对话框代替～～

[dh20156]

用msgbox估计做不到！

[dreamasp]

直接用Javascript做验证

[shadow_chenxy]

当MicroSoft Internet Explorer使用MsgBox函数时，任何对话框的标题总是包含"VBScript",以便于将其与标准对话框区别开来。
----------------这是帮助文件上的。

[wshlxvb]

各位大哥，就没人能帮帮俺吗？俺自己顶下。还有都说了不用jscript了啊。帮帮小弟啊。

[fantiny]

<SCRIPT LANGUAGE="VBScript">
<!--
Sub btnEnter_OnClick
Dim TheForm
Set TheForm = Document.MyForm
If IsNumeric(TheForm.Age.Value) Then
TheForm.submit
Else
Call MsgBox ("Please enter a numerical age.", 65, "MsgBox Example")

End if
End Sub
//-->
</SCRIPT>

<FORM METHOD= "POST" NAME= MyForm ACTION="myfile.asp" >
Name: <INPUT TYPE="text" NAME="Name" >
Age: <INPUT TYPE="text" NAME="Age" >
<INPUT TYPE="button" NAME="btnEnter" VALUE="Enter">
</FORM>

[尚和空四]

不够狠

[hxyman]

可以考虑用showModalDialog代替