LotusScript代码执行Http请求

来源:互联网 发布:什么梳子对头发好 知乎 编辑:程序博客网 时间:2024/05/29 12:51

一个同事今天问,js、java都可以执行http请求,LS代码可以不?

如果domino服务器在windows平台,是可以的,特把代码分享出来

【参考代码】

Public Function Ad_CreateRequest(HttpURL as String,postData as String) As VariantOn Error Goto errhandleDim rtnMsg(1) As Variantdim objHTTP As VariantIf objHTTP Is Nothing ThenSet objHTTP=createobject("Microsoft.XMLHTTP")If objHTTP Is Nothing ThenSet objHTTP=createobject("Msxml2.XMLHTTP")End IfobjHTTP.Open "post",HttpURL,"false"objHTTP.Send postDatartnMsg(0) = TruertnMsg(1) = objHTTP.responseTextEnd Ifexitfunction:Ad_CreateRequest = rtnMsgExit Functionerrhandle:rtnMsg(0) = FalsertnMsg(1) = "错误函数:Ad_CreateRequest,错误行:" & Erl & "<br>错误信息:" & ErrorMsgbox rtnMsg(1)Resume exitfunctionEnd FunctionSub TerminateIf Not objHTTP Is Nothing ThenSet objHTTP=NothingEnd IfEnd Sub

1 0
原创粉丝点击