问一个简单的vbscript问题

xiaoheng 2003-08-22 11:53:06
我在一个表单提交的过程中,调用了一个vbscript函数,如果调用失败,给出提示不再继续往下走,成功则继续,这种情况下,如果是javascript好像比较好写,为什么vbscript总是不能中断而继续往下走呢?请各位高手帮忙!下面是一段代码,大家帮忙看看有什么问题,到底应该怎么写?

<Form Name="Mform" action="certrsis2.asp" method="post" Onsubmit="MakeRequest()">
……
<Input Type=Submit Name=but Value="提交" Style="width:.75in">


</Form>

<SCRIPT language="VBScript">

Sub MakeRequest()
if …… then
return true
else
return false
end if
End Sub
</SCRIPT>

...全文
42 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
剑心 2003-08-22
  • 打赏
  • 举报
回复
这个确实是有问题的

你忘记了sub是不返回值的哦

呵呵,用function吧
xiaoheng 2003-08-22
  • 打赏
  • 举报
回复
不对吧,以上的方法都试了,但无论成功失败都往下一页上走啊

我现在已经把语句函数简化到下面这样了,还是拦不住呀

<Form Name="Mform" action="certrsis2.asp" method="post" Onsubmit="return MakeRequest()">
……
<Input Type=Submit Name=but Value="提交" Style="width:.75in">


</Form>

<SCRIPT language="VBScript">

Sub MakeRequest()
return false
End Sub
</SCRIPT>
lobu 2003-08-22
  • 打赏
  • 举报
回复
Onsubmit="return MakeRequest()"
xiaoheng 2003-08-22
  • 打赏
  • 举报
回复
xjbx() ,用exit sub并不能中断呀?

diya(风火浪) ,你写的返回this,但是MakeRequest()过程里面应该怎么写才能在失败时中断呢?
diya 2003-08-22
  • 打赏
  • 举报
回复
<Form Name="Mform" action="certrsis2.asp" method="post" Onsubmit="return MakeRequest(this)">
xjbx 2003-08-22
  • 打赏
  • 举报
回复
if …… then
exit sub
else
exit sub
end if
剑心 2003-08-22
  • 打赏
  • 举报
回复
这个问题已经解决啦,仔细看看下面的code,
你自己写的时候加上要用的判断就可以了,只是在为假时就写MakeRequest=false
这样表单在不正确的时候时不会提交的啦.


<SCRIPT language="VBScript">
function MakeRequest()
MakeRequest=false
End function
</SCRIPT>
<Form Name="Mform" action="end" method="post" onsubmit="return MakeRequest()" language="jscript">
……<input type=text>
<Input Type=Submit Name=but Value="提交" Style="width:.75in">

</Form>
剑心 2003-08-22
  • 打赏
  • 举报
回复
vbscript中也用return,好像没有吧

function应该这样写

function MakeRequest()
MakeRequest=false
End function

这样先试试,不行在联系.

ASP页面内VBScript和JScript的交互

ASP 具备管理不同语言脚本程序的能力,能够自动调用合适的脚本引擎以解释脚本代码和执行内置
函数。ASP开发环境提供了两种脚本引擎,即VBScript(缺省)和JScript。不过,开发者并没有被限制
于只能使用这两种语言,只要能够提供合适的ActiveX脚本引擎就能使用任何脚本语言。
  脚本语言的选择往往基于许多不同原因:它可能是开发者最为熟悉的语言,可能是对给定工程来说
能够提供最多特色支持的,也有可能是最具效率的。不同的环境和要求使得我们在选择脚本语言时注重
不同的因素,同时也使得我们在某些时候面临选定的脚本语言不能直接提供其它语言固有的函数这一
题,或某个脚本已经写成但用的却是另外一种脚本语言。
  此时应该怎么办?是否需要用当前所用的脚本语言重写这些脚本?或者说,是否有可能在一种脚本
语言中调用其它脚本语言的内置函数?本文要说明的就是在ASP应用中如何让VBScript脚本和JScript脚
本交互以最大限度地获得两种脚本语言的特色支持。

  一、VBScript和JScript的内置函数
  在VBScript和JScript 中,有大量的内置函数功能是相同或类似的。然而,在一种脚本语言中内置
的函数并非总是在另外一种脚本语言中也有对应的函数。例如,VBScript提供了许多用于操作字符串和
格式化数据的函数,这些函数在JScript中并不存在。这些函数包括StrReverse()、Filter()以及Forma
tCurrency()等。在另一方面,JScript所提供的用于管理数组、字符串编码等的函数在VBScript中也没
有定义,如join()、reverse()、pow()、位操作、escape()和unescape()等。
   那么,如果在JScript程序中需要一个VBscript函数该怎么办呢?

   二、异种脚本的互相调用
   如果需要在JScript脚本中调用一个VBScript中内置的函数,则应该写一个VBScript用户定义函数
(在这里调用VBScript内置函数),然后在JScript脚本中象调用公用JScript函数一样调用这个用户定
义函数。

例如,如果要调用的VBSCript内置函数是FormatCurrency(),则可以声明如下自定义函数:

接下来在JScript代码中就可以象普通JScript 函数一样调用FormatValue()了。用类似的方法也可
以实现VBScript代码调用JScript函数。
  应用同样的规则,我们可以在任何脚本内调用任何用户定义函数。不过,从JScript 脚本内调用一
个不带参数的VBScript过程(Sub)时应略加注意,此时在JScript中应该象调用一个不带参数的JScrip
t函数一样调用它,如用foo()调用VBScript Sub foo过程。

  三、数据共享
  在某些情形下混合运用VBScript和JScript 函数是非常有用的,但在不同语言脚本之间共享数据也
可能很有用。实现这种共享的方法很简单:不管使用的是什么语言,只要是在页面级声明的变量就可以
任意引用。
  对象的使用方法也相似,可以任意选用合适的语言读取、修改属性或调用对象的方法。当然给定对
象的属性和方法是由创建该对象实例的语言所定义的。正如上例VBScript的过程调用,当从JScript 中
调用一个不带参数的VBScript对象的方法时,其调用方法也遵从JScript的调用规则,反之亦然。

  四、数组管理
  数组共享稍微复杂一点。虽然数组也象其它变量一样可以在不同语言脚本之间共享,但必须注
意兼容方面的
  VBScript数组在JScript下可以用VBScript的符号引用,即用myArray(2)引用数组元素而不是JScri
pt的数组元素引用符号myArray[2]。此外,还可以使用一个特殊的JScript对象——VBArray对象将VBSc
ript数组转换为JScript数组。下面的代码从VBScript数组myVBArray创建JScript数组myJSArray:
 var Temp = new VBArray(myVBArray)
 var myJSArray
 myJSArray = Temp.toArray()
上述代码首先创建一个临时的VBArray对象,然后使用它的toArray()方法将自己转换为JScript 数
组。此后就可以象普通JScript数组一样用myJSArray,如 myJSArray[1]。但应当注意的是,toArray()
方法将把一个多维的VBArray转换为一维的JScript数组。

VBScript中引用JScript数组更为复杂。虽然在VBScript中我们可以直接访JScript数组相关的
方法和属性,但没有直接访JScript数组的单个元素的方法。也就是说,我们可以在VBScript 脚本中
读取JScript数组的长度属性,如下所示:

x = myJSArray.length

  但无法直接读取该数组的单个元素,下面的VBScript代码是不正确的:

  x = myJSArray(3)

解决该一个可行的方法是执行一个转换过程,如下面的代码所示,此处假定VBScript是缺省
的脚本语言:
<%
  Dim Temp
  Dim myVBArray
  Temp = myJSArray.join(", ")
  myVBArray = Split(Temp, ", ")
%>
此处的JScript join()方法将数组myJSArray元素转换到一个以逗号为分割符的字符串, VBScript
Split()函数将字符串转换为VBScript数组。注意这里我们是在VBScript环境下调用JScript的join方法
依照此例,我们可以通过自定义VBScript函数来模拟JScript的VBArray对象的toArray()方法以实现JSc
ript数组到VBScript数组的转换。

五、小结
  在同一个ASP 工程内灵活选用不同脚本语言具有许多优点,这些脚本之间的交互能力更为开发者集
成不同语言所提供的内置函数和其它功能带来了更多的机会,同时也使得实现既可用于VBScript也可用
于JScript环境的通用脚本库成为可能。

28,391

社区成员

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

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