<%
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 = "https://aip.baidubce.com/rpc/2.0/nlp/v1/lexer"
dim json:json = post_https(api_url&"?charset=UTF-8&access_token="&access_token,post_data)
dim obj
set obj = parseJSON(json)
post_content = json
‘ 遍历解析JSON不会了 哈哈
set obj = Nothing
end function
‘ 获取access_token
function access_token()
dim access_token_url:access_token_url = "https://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%>
