{"errcode":41001,"errmsg":"access_token missing hint: [vqDZeA0872sz12!]"}

ysf0181 2017-05-18 12:36:37

执行结果
{"access_token":"_DxA7FQX9By8dEtqBSiJGZ695SavKrl-B-jvDowqdEX_YNFDPYgzCUqVGONuL2zHgFYu8gSJm74pX00obbGcGo6NpLZkfm_Dqh3-44jfKFu_Ry1zlXfcNPjt2wmPO2o9HFPjAFADBL","expires_in":7200}

_DxA7FQX9By8dEtqBSiJGZ695SavKrl-B-jvDowqdEX_YNFDPYgzCUqVGONuL2zHgFYu8gSJm74pX00obbGcGo6NpLZkfm_Dqh3-44jfKFu_Ry1zlXfcNPjt2wmPO2o9HFPjAFADBL

{"errcode":41001,"errmsg":"access_token missing hint: [vqDZeA0872sz12!]"}

错误提示：{"errcode":41001,"errmsg":"access_token missing hint: [vqDZeA0872sz12!]"}
这个是过期提示啊，我刚获取马上过期，我很糊涂。

这个是asp源码：
shuju = "template_id=1&aa=b"
url = "https://api.weixin.qq.com/cgi-bin/message/template/send?access_token=ACCESS_TOKEN"

'https://api.weixin.qq.com/cgi-bin/token?grant_type=client_credential&appid=XX&secret=XX

'获取 access_token
shuju = "grant_type=client_credential&appid=XX&secret=XX"
url = "https://api.weixin.qq.com/cgi-bin/token?"

jieguo = PostHTTPPage(url,shuju,"post") '获得 access_token
response.write jieguo & " "

jieguo_er = split(jieguo,",")
jieguo_er2 = jieguo_er(0)
jieguo_er222 = split(jieguo_er2,Chr(34))

response.write " "
access_token = jieguo_er222(3)
response.write jieguo_er222(3) '真的，access_token

'https://api.weixin.qq.com/cgi-bin/template/api_set_industry?access_token=ACCESS_TOKEN

response.write " "
shuju = "access_token=3O6MBA_7lFQw7gdGbZ33MLSTgm8fYiGCxmfuNThWAntpoeJIksvgmbGYws-YQsMCc_nFYEancPPeDbdo99GA7w5mif2hE6EWd0-3PbMPLsqVtNhZUvJOU-ZD0UWnxjPFSCBhADAGQP"
url = "https://api.weixin.qq.com/cgi-bin/getcallbackip?"

jieguo22 = PostHTTPPage(url,shuju,"get") '获得 access_token
response.write jieguo22 & " "

'shuju = "access_token=RTxWjwYCXKgoeiS74gqkZauP4TfaOQLByNwPxqFU_CPuX6_z_dg7w_O_K3s3-Zpu_RmEQ9DqpLPSAgj_oHfpKh12QR8NsZ56NaSD-KGtRNlAM3WtGwHmlRBySN5D6OyIYAQjAFAQSI"
'url = "https://api.weixin.qq.com/cgi-bin/message/template/send?"

function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End function

function PostHTTPPage(url,data,fangshi)
dim Http
set Http=server.createobject("MSXML2.SERVERXMLHTTP.3.0")
Http.open fangshi,url,false
Http.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
Http.send(data)
if Http.readystate<>4 then
exit function
End if
PostHTTPPage=bytesToBSTR(Http.responseBody,"utf-8")
set http=nothing
if err.number<>0 then err.Clear
End function

...全文