一个比较棘手vbs post数据的问题，请指教

[seani]

现有三个文件
A.asp，B.vbs,C.asp
A.asp里包含了B.vbs，调用B.vbs里的方法，通过B.vbs传参数到C.asp里，代码如下：

A.asp

<script language=vbscript src="B.vbs"></script>
<script language=vbscript>
sub doselcxqx
dim k,s
if AB(formedit.cxqx.value,k,s) then
formedit.cxqx.value=k
formedit.txtcxqx.value=s
end if
end sub
</script>


____________________________________

B.vbs

function AB(RYBHLB,retRYBHLB,retRYXMLB)
dim k
k=showModalDialog("C.asp?rybhlb="&RYBHLB,"","dialogWidth:510px;status:no;dialogHeight:360px")
if k<>"" then
retRYBHLB=left(k,instr(k,"_")-1)
retRYXMLB=mid(k,instr(k,"_")+1)
AB=true
else
AB=false
end if
end function

因为从B.vbs传参数过C.asp，参数值过长，超出范围，所以想在B.vbs文件改成传值Post方式，一直没找到好的方法，请各位帮忙解决下此问题，谢谢

[pengsixiang]

大致方法如下:
Set objWeb = CreateObject("Microsoft.XMLHTTP1")
objWeb.Open "POST", "http://your.web.site/c.aps", False
objWeb.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objWeb.Send "parm1=" & parm1 & "&parm2=" & parm2
网上有很多资料, 你可以去多方面参考借鉴

[seani]

你这个也不行，还是传参数，我需要的是POST

[attilax]

1.用Microsoft.XMLHTTP的POST，肯定可以的。。
2。转到B页面，显示然后自动JS提交POST。。
如需帮助请联系QQ 1466519819 。。EMAIL：[e-mail]