Private Sub Command6_Click()
Set oXmlHttp = CreateObject("msxml2.XMLHTTP")Dim sPostString As String, sRespText As String
sPostString = "blog_title=2222&frmid=0" '需要提交的数据
oXmlHttp.open "POST", "http://control.xxx.cn/article_insert.php", False 'url为处理提交数据的asp页面
oXmlHttp.setRequestHeader "content-type", "application/x-www-form-urlencoded"
oXmlHttp.send sPostString 〈〈〈〈〈〈〈〈问题出现在这里!
Text2.Text = oXmlHttp.responseText '得到处理后response回来的数据
Set oXmlHttp = Nothing
End Sub
为什么运行到 oXmlHttp.send sPostString 会出现“参数不正确”的提示啊?我想做个用msxml2.XMLHTTP发post数据的,为什么不能成功啊?高手来个例子好吗?
Set oXmlHttp = CreateObject("msxml2.XMLHTTP")Dim sPostString As String, sRespText As String
sPostString = "blog_title=2222&frmid=0" '需要提交的数据
oXmlHttp.open "POST", "http://control.xxx.cn/article_insert.php", False 'url为处理提交数据的asp页面
oXmlHttp.setRequestHeader "content-type", "application/x-www-form-urlencoded"
oXmlHttp.send sPostString 〈〈〈〈〈〈〈〈问题出现在这里!
Text2.Text = oXmlHttp.responseText '得到处理后response回来的数据
Set oXmlHttp = Nothing
End Sub
为什么运行到 oXmlHttp.send sPostString 会出现“参数不正确”的提示啊?我想做个用msxml2.XMLHTTP发post数据的,为什么不能成功啊?高手来个例子好吗?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货