如何通过ASP获取热点新闻API接口？

本文共计245个文字，预计阅读时间需要1分钟。

python配置应用API Key和Secret Keydim_client_id=client_id=XXXdim_client_secret=client_secret=XXX

准备POST数据post_data='{text: 2019保思星快手电商班精华版VIP教程（5）}'

输出access_tokenresponse.write(access_token)

<%
dim client_id:client_id="" ‘ 应用的API Key；
dim client_secret:client_secret="" ‘ 应用的Secret Key；

dim post_data:post_data="{""text"": ""2019诺思星快手电商班精华浓缩版VIP教程(5)""}"

response.write access_token
response.write post_content

‘ 获取返回数据
function post_content()
dim api_url:api_url = "aip.baidubce.com/rpc/2.0/nlp/v1/lexer"
dim json:json = post_aip.baidubce.com/oauth/2.0/token?grant_type=client_credentials&client_id="&client_id&"&client_secret="&client_secret&"" ‘ 组合获取access_token网址dim objset obj = parseJSON(post_https(access_token_url,""))access_token = obj.access_tokenset obj = Nothingend function‘ 解析jsonDim scriptCtrlFunction parseJSON(str)If Not IsObject(scriptCtrl) ThenSet scriptCtrl = Server.CreateObject("MSScriptControl.ScriptControl")scriptCtrl.Language = "JScript"scriptCtrl.AddCode "Array.prototype.get = function(x) { return this[x]; }; var result = null;"End IfscriptCtrl.ExecuteStatement "result = " & str & ";"Set parseJSON = scriptCtrl.CodeObject.resultEnd Function‘ post获取数据函数public function post_https(post_url,post_data)dim httpsset https = server.createobject("msxml2.xmlhttp")with https.open "post", post_url, false.setrequestheader "content-type","application/json".send post_datapost_https = .responsebodyend withpost_https = bytestobstr(post_https,"UTF-8")set https = nothingend function‘ 转换编码function bytestobstr(body,cset)dim objstreamset objstream = server.createobject("adodb.stream")objstream.type = 1objstream.mode =3objstream.openobjstream.write bodyobjstream.position = 0objstream.type = 2objstream.charset = csetbytestobstr = objstream.readtextobjstream.closeset objstream = nothingend function%>