当前位置:编程问答 > VB >

在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 ,  网络编程
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,