钉钉POST发送通知消息,哪位能帮忙一下,多谢多谢

weixin_40931630 2019-07-11 01:26:08
...全文
516 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复
测试正常!!
weixin_40931630 2019-07-13
  • 打赏
  • 举报
回复
还是一样,没起作用。
  • 打赏
  • 举报
回复
Dim objXmlHttp
str = "{""agent_id"":270460515,""userid_list"":""2739196248-112889674"",""msgtype"":""text"",""msg"":{""msgtype"":""text"",""text"":{""content"":""推送测试""} }}"
Set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
objXmlHttp.Open "POST","https://oapi.dingtalk.com/topapi/message/corpconversation/asyncsend_v2?access_token="&accesstoken&"",False
objXmlHttp.SetRequestHeader "Content-Type","application/json"
objXmlHttp.SetRequestHeader "User-Agent","ASP/3.0"
objXmlHttp.Send str

if objXmlHttp.status=200 Then
ASPPostJSON=CStr(objXmlHttp.ResponseText)
end if

Response.write(ASPPostJSON)
weixin_40931630 2019-07-11
  • 打赏
  • 举报
回复
<%

Dim objXmlHttp
Set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
objXmlHttp.Open "POST","https://oapi.dingtalk.com/topapi/message/corpconversation/asyncsend_v2?access_token="&accesstoken&"",False
objXmlHttp.SetRequestHeader "Content-Type","application/json"
objXmlHttp.SetRequestHeader "User-Agent","ASP/3.0"
objXmlHttp.Send "{""agent_id"":270460515,""userid_list"":2739196248-112889674,""msgtype"":text,""msg"":{""msgtype"":text,""text"":{""content"":推送测试} }""}"

if objXmlHttp.status=200 Then
ASPPostJSON=CStr(objXmlHttp.ResponseText)
end if

Response.write(ASPPostJSON)
%>

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧