Как вызвать VB скрипт из JavaScript с использованием response.write - PullRequest
Новая
       9

Как вызвать VB скрипт из JavaScript с использованием response.write

0 голосов
/ 30 июня 2011

Я пытаюсь вызвать функцию vb из этого javascript, но я не могу вызвать эту vb.
Мне нужно вызвать функцию VB внутри этого кода JavaScript .. Я встроил JavaScript в код VB, используя response.write

Может ли кто-нибудь мне помочь?

Вот мой код: 

Response.Write("<" & "script>")
Response.Write("var r =confirm(""File Already Exist! Are you want to continue?"");")
Response.Write("if (r==true)")
Response.Write("{")
Response.Write("function callVB()")
Response.Write("{")

Я хочу вызвать эту функцию messagebox2() она была в функции vb: 

Response.Write("MessageBox2();")
Response.Write("}")
Response.Write("}")
Response.Write("else")
Response.Write("{")
Response.Write("function callVB1()")
Response.Write("{")
Response.Write("'" & strFilename & "';")
Response.Write("}")
Response.Write("}")
Response.Write("<" & "/script>")

Когда я нажимаю кнопку ОК, функция не вызывается messagebox2()

1 Ответ

0 голосов
/ 01 июля 2011

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

 <%
 Response.Write ("<" & "script type=""text/VBScript"">"& vbcrlf)
 Response.Write ("<!--"& vbcrlf)
 Response.Write ("  sub VBFunc()"& vbcrlf)
 Response.Write ("      Msgbox( ""Hello From VBScript"")"& vbcrlf)
 Response.Write ("  end sub"& vbcrlf)
 Response.Write ("//-->"& vbcrlf)
 Response.Write ("<" & "/script>"& vbcrlf)
 Response.Write ("<" & "script type=""text/javascript"">"& vbcrlf)
 Response.Write ("<!--"& vbcrlf)
 Response.Write ("  if (confirm(""File Already Exists! Do you want to continue?""))"& vbcrlf)
 Response.Write ("  {"& vbcrlf)
 Response.Write ("      VBFunc();"& vbcrlf)
 Response.Write ("  }else{"& vbcrlf)
 Response.Write ("      alert('you clicked Cancel');"& vbcrlf)
 Response.Write ("  }"& vbcrlf)
 Response.Write (" //-->"& vbcrlf)
 Response.Write ("<" & "/script>"& vbcrlf)

%>
...