在qlikiew中,模块vbscript中为什么提示“没有权限”?该如何解决?谢谢帮助
rem ** 给.net传递参数 **Sub ExportToHTTPPOST
set mytext = ActiveDocument.GetSheetObject("TX07")
prop = mytext.GetProperties
set app= ActiveDocument.GetApplication
set v1 = ActiveDocument.GetVariable("num1")
set v2 = ActiveDocument.GetVariable("num2")
set v3 = ActiveDocument.GetVariable("idname")
Cnt1= v1.getcontent.String
Cnt2= v2.getcontent.String
Cnt3= v3.getcontent.String
prop.Layout.Text.v = "执行到0步"
set objHTTP=CreateObject("Microsoft.XMLHTTP")
prop.Layout.Text.v = "执行到1步"
objHTTP.Open "POST","http://ciecc.ecota.com.cn/WebTest/Default.aspx?" ,False
prop.Layout.Text.v = "执行到2步"
strPost = "nume1= " & Cnt1 & "&nume2= " & Cnt2 & "&id= " & Cnt3 prop.Layout.Text.v = "执行到3步"
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
prop.Layout.Text.v = "执行到4步"
objHTTP.send strPost '发送数据
prop.Layout.Text.v = "执行到5步"
HTTPPost = objHTTP.responseText
prop.Layout.Text.v = "执行到6步"
msgbox HTTPPost
prop.Layout.Text.v = "执行到7步"
state=objHTTP.readyState
prop.Layout.Text.v=state mytext.SetProperties prop
End Sub
在qlikiew中,模块vbscript中,当执行到objHTTP.Open "POST","http://ciecc.ecota.com.cn/WebTest/Default.aspx?" ,False
为什么提示“没有权限”?该如何解决?谢谢帮助
补充:VB , 网络编程