例如
<script language=javascript>
function openwin(str)
{
window.open("/sgh/district/districtsearch.jsp?value="+str,"","width=400,height=600,scrollBars,resizable");
//showModalDialog("districtsearch.jsp?value="+str);
}</script>
Sub BossSoftPhone1_BeforeSoundRecord
///?????????????????
End Sub怎么调用openwin(str)?????????出怎么写,急死我了
<script language=javascript>
function openwin(str)
{
window.open("/sgh/district/districtsearch.jsp?value="+str,"","width=400,height=600,scrollBars,resizable");
//showModalDialog("districtsearch.jsp?value="+str);
}</script>
Sub BossSoftPhone1_BeforeSoundRecord
///?????????????????
End Sub怎么调用openwin(str)?????????出怎么写,急死我了
function openwin(str)
{
window.open("/sgh/district/districtsearch.jsp?value="+str,"","width=400,height=600,scrollBars,resizable");
//showModalDialog("districtsearch.jsp?value="+str);
}</script>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--Sub BossSoftPhone1_BeforeSoundRecord
// ?????????????End Sub-->
</SCRIPT>
function openwin(str)
{
window.open("/sgh/district/districtsearch.jsp?value="+str,"","width=400,height=600,scrollBars,resizable");
//showModalDialog("districtsearch.jsp?value="+str);
}</script>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--Sub BossSoftPhone1_BeforeSoundRecord
call openwin("abc")
End Sub-->
</SCRIPT><input type=button value="click me" Onclick="Vbscript: call BossSoftPhone1_BeforeSoundRecord()">
参考Using VBScript and JScript on a Web Page
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnvid/html/msdn_vbnjscrpt.asp2。去掉后面的“;”,譬如window.open "http://sgh/district/districtsearch.jsp?value="+str,"","width=400,height=600,scrollBars,resizable"或者
call window.open("http://sgh/district/districtsearch.jsp?value="+str,"","width=400,height=600,scrollBars,resizable")
3。应该是类似的,(把 '换成 ",因为在VBSCRIPT里,' 是注释符号)call parent.right.custmsg.searchwin ("8888")或者parent.right.custmsg.searchwin "8888"
Function Formatvalue(value)
Formatvalue = FormatCurrency(value)
End Function
</SCRIPT> 接下来在JScript代码中就可以象普通JScript函数一样调用Formatvalue()了。用类似的方法也可以实现VBScript代码调用JScript函数。 应用同样的规则,我们可以在任何脚本内调用任何用户定义函数。不过,从JScript脚本内调用一个不带参数的VBScript过程(Sub)时应略加注意,此时在JScript中应该象调用一个不带参数的JScript函数一样调用它,如用foo()调用VBScript Sub foo过程。 三、数据共享 在某些情形下混合运用VBScript和JScript函数是非常有用的,但在不同语言脚本之间共享数据也可能很有用。实现这种共享的方法很简单:不管使用的是什么语言,只要是在页面级声明的变量就可以任意引用。 对象的使用方法也相似,可以任意选用合适的语言读取、修改属性或调用对象的方法。当然给定对象的属性和方法是由创建该对象实例的语言所定义的。正如上例VBScript的过程调用,当从JScript中调用一个不带参数的VBScript对象的方法时,其调用方法也遵从JScript的调用规则,反之亦然。 四、数组管理 数组共享问题稍微复杂一点。虽然数组也象其它变量一样可以在不同语言脚本之间共享,但必须注意兼容方面的问题。 VBScript数组在JScript下可以用VBScript的符号引用,即用myArray(2)引用数组元素而不是JScript的数组元素引用符号myArray[2]。此外,还可以使用一个特殊的JScript对象——VBArray对象将VBScript数组转换为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()方法以实现JScript数组到VBScript数组的转换。 五、小结 在同一个ASP工程内灵活选用不同脚本语言具有许多优点,这些脚本之间的交互能力更为开发者集成不同语言所提供的内置函数和其它功能带来了更多的机会,同时也使得实现既可用于VBScript也可用于JScript环境的通用脚本库成为可能。