http://expert.csdn.net/Expert/topic/1059/1059525.xml?temp=.9448053post方式提交数据新建工程,放一个webbrowser控件Option ExplicitPrivate Sub Command1_Click() Dim szValue As String WebBrowser1.Document.body.innerHTML = "<form id=post method=post action=http://地址/xxx.php><input type=text value='" & szValue & "'></form>" WebBrowser1.Document.Forms("post").submit End SubPrivate Sub Form_Load() WebBrowser1.Navigate2 "about:blank" End Sub
RIGHT=INET1.STILLEXECUTING
DO UNTIL RIGHT
DO EVENT
RIGHT=INET1.STILLEXECUTING
LOOP
DO UNTIL RIGHT
DO EVENT
RIGHT=INET1.STILLEXECUTING
LOOP
这段代码应该放在哪里呢?
这句好象有问题,asp大概不知道这是Form传来的数据,
用Request.ServerVariables("QUERY_STRING")试试看,它可以得到说有的QUERY_STRING,自己在拆分一下,
如果还不行试试用 Request.BinaryRead(Request.TotalBytes)可以得到所有Post的二进制字节
就是读取post方法得到的数据怎么会不认识呢?
不信你访问以下:
http://club.chinafive.com/index.htm
看看是不是能得到数据
如果你想用Inet控件Post的数据 request.form("UserName")能得到的话,那你Inet控件Post的数据也得按RFC1867格式编码,
我也有个贴子 "如何在VB中实现HTTP文件上传 ",你看看或许有点用
建议你用winsock去实现POST提交!
Dim szValue As String
WebBrowser1.Document.body.innerHTML = "<form id=post method=post action=http://地址/xxx.php><input type=text value='" & szValue & "'></form>"
WebBrowser1.Document.Forms("post").submit
End SubPrivate Sub Form_Load()
WebBrowser1.Navigate2 "about:blank"
End Sub