vbscript 中如何得到 index.html?a=1 里 a 传过来的值

Question

两种脚本的写法都给你了.
<SCRIPT LANGUAGE="JavaScript">
<!--
function getQuery(name)
{
    var reg = new RegExp("(^|&)"+ name +"=([^&]*)(&|$)");
    var r = window.location.search.substr(1).match(reg);
    if (r!=null) return unescape(r[2]); return null;
}
alert(getQuery("aa"))
//-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
function getq(name)
  dim re, i, r, RetStr
  set re=new RegExp
  re.pattern="(\?|&)"+ name +"=([^&]*)(&|$)"
  set r = re.Execute(window.location.search)
  For Each i in r
    getq = i.SubMatches(1)
  Next
end function
msgbox getq("aa")
-->
</SCRIPT>

Answer 1

再问一下，在javascript 中如何调用 vbscript ?以下的我在javascript 中调不出来<script language="vbscript" RUNAT="SERVER">
Function mg()
msgbox("a")
end function

Answer 2

有点晕了, 你的VBS代码是 runat=server 的代码, 是运行在服务器端的, 客户端的JS怎么可能调用到?? 且运行的服务器端的VBS代码还加msgbox给谁看呢??

Answer 3

唉! 把runat=server 去掉
<script language="vbscript">
Function mg()
msgbox("a")
end function
这个写只是为了测试简单，原程序当然要比这复杂