zoukankan      html  css  js  c++  java
  • 【转】asp获取【微信公众平台】Access Token的源代码下载

    在做微信开发时候,经常要用到Access Token,但是官网提供的都是基于php写的,我用asp写了,有需要可以直接复制去用,模板消息,jdk上传图片,客服消息等全需要这个:
    '获取 access_token
    Public Function Get_Access_Token()
    sCode = Request("code")
    If sCode ="" And Session("access_token")="" Then
    Response.Redirect(GetAuthorization_Code)
    Else
    If DateDiff("s",Now,Session("access_token_expires"))> 0 Then
    Exit Function
    End If
    End If
    Dim url, params,Temp
    Url="https://api.weixin.qq.com/sns/oauth2/access_token?"
    params = "appid="&s_APPID
    params = params & "&secret=" & s_APPSECRET
    params = params & "&code=" & sCode
    params = params & "&grant_type=authorization_code"
    url = Url & params
    Temp=RequestUrl(url,"GET","")
    'Die Temp
    If CheckData(Temp,"access_token") = True Then
    set obj = getjson(Temp)
    if isobject(obj) Then
    Session("access_token") = obj.access_token
    Session("access_token_expires") = DateAdd("s",obj.expires_in,Now)
    Session("openid") = obj.openid
    End If
    set obj = Nothing
    Else
    Response.Write("Get_Access_Token()=>"&Temp) 
    Response.End()
    End If
    End Function

    =======================================
    学习交流微信:18611436777

  • 相关阅读:
    Spark Executor内存管理
    Spring中Bean的生命周期及其扩展点
    NIO非阻塞IO
    TCP,UDP和socket,Http之间联系和区别
    md5加密,md5加盐加密和解密
    线程监测方法多久没被调用
    项目部署后,替换.class文件不生效
    mysql存储过程导入表
    java生成二维码
    Map中keySet和entrySet的区别
  • 原文地址:https://www.cnblogs.com/apolloren/p/10878417.html
Copyright © 2011-2022 走看看