1

Вопрос по asp-classic, vbscript, javascript – Как я могу использовать классы Javascript OO из VBScript, в среде ASP-Classic или WSH?

я знаюЯ могу вызывать функции верхнего уровня, определенные в JS из VBScriptи наоборот, вот так:

<%@ language="Chakra" %>

<script language='JavaScript' runat='server'>
  function jsFunction1() {
      for (var i=0;i<10;i++) Response.Write(i+"<br>");
      vbFunction2();
  }
</script>

<script language='VBScript' runat='server'>
  Sub vbFunction1 ()
      Response.Write("VB Hello <br/>" & VbCrLf)
      jsFunction1()
  End Sub
  Sub vbFunction2 ()
      Response.Write("VB Goodbye <br/>" & VbCrLf)
  End Sub
</script>


<script language="JavaScript" runat="server">
  vbFunction1();
</script>

Я также могу включить JS в модули VBScript, например:

<%@ language="VBScript" %>

<script language="Javascript" runat="server" src="includedModule.js"></script>

<script language="VBScript" runat="server">

    ....
</script>

... и функции, определенные в includeModule.js, доступны в VBScript.

Но предположим, что у меня есть класс Javascript, определенный с использованием прототипа OO, например:

(function() {

  MyObj = function() {
    this.foo = ...
    ...
  };

  MyObj.prototype.method1 = function() { .. };
  MyObj.prototype.method2 = function() { .. };
}());

Как я могу использовать этот объект (он же тип или класс) из VBScript?

Ванильный подход ...

Dim foo
Set foo = New MyObj

...не работает.

Ни один не делает

Dim foo
foo = MyObj()

... потому что, по-видимомуthis не определяется при вызове функции JS из VBScript. Или что-то.

Так как я могу это сделать?

Причина этого важна: в Javascript доступны библиотеки OO, которые было бы интересно использовать из VBScript.

Error: User Rate Limit Exceeded

May 30, 2012, 6:51 PMот

Error: User Rate Limit Exceeded<a href="http://stackoverflow.com/questions/1657388/can-i-initialize-objects-written-in-jscript-from-vbscript">Can I initialize objects written in JScript from VBScript?</a>

Apr 09, 2012, 9:56 PMот

1ответ

3

Error: User Rate Limit Exceeded

Error: User Rate Limit Exceeded

<script language='javascript' runat='server'>(function() {  
  MyObj = function() {  
    this.foo = ...  
    ...  
  };  

  MyObj.prototype.method1 = function() { .. };  
  MyObj.prototype.method2 = function() { .. };  

  // define a shim that is accessible to vbscript
  Shim = {construct: function() { return new MyObj(); } };

}());  
</script>

<script language='vbscript' runat='server'>
  Dim foo
  Set foo = Shim.construct()
   ...
</script>

RelatedQuestions