qlikview中，传值给java页面？请指教？

xiaohuluwei 2011-08-04 01:45:33

在qlikview中，通过点击按钮，触发宏，在宏里面如何写语句，可以给java页面传值。我现在写了一部分语句，不过在qlikview中的宏里面的vbscript，执行到open语句的时候报错，错误提示是：“没有权限”，请指教。语句如下：
rem ** 给.java传递参数 **
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") '创建XMLHTTP对象
prop.Layout.Text.v = "执行到1步"
objHTTP.Open "POST","http://localhost:8080/44/index.jsp?" ,False '打开与服务端的连接，同时定义指令发送方式，服务网页(URL)和请求权限等。客户端通过Open命令打开与服务端的服务网页的连接
prop.Layout.Text.v = "执行到2步" '是否同步执行。缺省为True，即同步执行，但只能在DOM中实施同步执行。用中一般将其置为False，即异步执行
strPost = "nume1= " & Cnt1 & "&nume2= " & Cnt2 & "&id= " & Cnt3 '传递参数
prop.Layout.Text.v = "执行到3步"
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" '如果Open方法定义为POST，可以定义表单方式上传
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 '0 　　Response对象已经创建，但XML文档上载过程尚未结束
'1 　　XML文档已经装载完毕
'2 　　XML文档已经装载完毕，正在处理中
'3 　　部分XML文档已经解析
'4 　　文档已经解析完毕，客户端可以接受返回消息
mytext.SetProperties prop

End Sub

...全文