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)
%>