JS与VBS传递变量

一。客户端 To 客户端

1.VBS To JS

 

<script language="vbscript" type="text/vbscript">
dim  jstovbs
jstovbs="jstovbs"
document.writeln( "我是VBS：" &  jstovbs)
</script>
<br />
<script language="javascript" type="text/javascript">
document.writeln( "我是JS：" + jstovbs); // 这里的jstovbs变量，是在VBS中定义并赋值的
</script>

 

2.JS To VBS

 

<script language="javascript" type="text/javascript">
var jstovbs="jstovbs" ;
document.writeln("我是JS：" +  jstovbs); 
</script>
<br />
<script language="vbscript" type="text/vbscript">
document.writeln( "我是VBS：" & jstovbs) //这里的jstovbs变量，是在JS中定义并赋值的
</script>

 

二。服务器端 To 客户端

1.VBS To JS

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

< %
Dim  vbstojs
vbstojs="vbstojs"
% >

<script language="javascript" type="text/javascript">
var js ='<%=vbstojs%>'; 
document.writeln("我是JS：" +  js); 
</script>

 

2.JS To VBS

 

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>

< %
var jstovbs="jstovbs"
% >

<script language="vbscript" type="text/vbscript">
dim  vbs
vbs="<%=jstovbs%>"
document.writeln( "我是VBS：" &  vbs)
</script>

 

三。客户端 To 服务器端

1.VBS To JS

 参见2

2.JS To VBS

(1) cookies (同一页面提交、接收，需要刷新)

<script language="javascript" type="text/javascript">
function  setCookie(name,value,expires,path,domain,secure)
{
  var myCookie = name + "=" +  encodeURIComponent(value);  
  
  if  (expires)
    {
      myCookie += "; expires=" +  expires.toGMTString(); 
    }
    
  if  (path)
    {
      myCookie += "; path=" +  path; 
    }

  if  (domain)
    {
      myCookie += "; domain=" +  domain; 
    }

  if  (secure)
    {
      myCookie += "; secure" ; 
    }
  
  document.cookie =  myCookie;
}

setCookie('jstovbs','jstovbs cookies',false,false,false,false );
</script>

<%
Dim vbs
vbs =Request.Cookies("jstovbs" )
Response.Write(vbs)
%>

 

(2) 自动提交 (Get方式，两个页面)

A. JS.html (客户端)

 

<script language="javascript" type="text/javascript">
//可以定义一个函数，在需要时自动提交
location.href = "ASP.asp?jstoasp=此变量由客户端JS传递而来" ;
</script>

 

B. ASP.asp (服务器端)

 

< %
Dim  vbs
vbs = Request.QueryString("jstoasp" )
Response.Write(vbs)
%>