求一份ASP版的微信分享JSSDK源码,要求access_token有缓存时间

目前代码无法通过缓存获取accesstoken,访问量剧增,accesstoken只有2000,不够用
附上关键代码部分,大家帮忙分析下

    Private Function CacheExists(ByVal vNewName) 
dim ObjExists
        CacheExists=True
        Dim CacheData : CacheData=Application(flag_ &"_"& LCase(vNewName)) 
        If Not IsArray(CacheData) Then Exit Function 
        If Not IsDate(CacheData(1)) Then Exit Function 
        If DateDiff("s",CDate(CacheData(1)),Now()) < 7000  Then 
            CacheExists=False '修改ObjExists为CacheExists
        End If 
    End Function 
    private function getJsApiTicket()
        'jsapi_ticket 应该全局存储与更新,以下代码以写入到文件中做示例
        if CacheExists("JsApiTicket") then
            Dim accessToken : accessToken = getAccessToken()
            if accessToken<>"" then
                ' $url = "https://qyapi.weixin.qq.com/cgi-bin/get_jsapi_ticket?access_token=$accessToken"; 如果是企业号用以下 URL 获取 ticket
                Dim strJson : strJson=GetHttpURL("https://api.weixin.qq.com/cgi-bin/ticket/getticket?type=jsapi&access_token="& accessToken)
                Dim objRe : Set objRe = getJSONObject(strJson)
                if objRe.errmsg<>"ok" then
                    'call InErr("获取JsApiTicket失败:"& strJson)
                    'response.End()
                    getJsApiTicket=strJson
                else
                    Dim JsApiTicket_ : JsApiTicket_= objRe.ticket
                    Set objRe=nothing
                    Call AddCache("JsApiTicket", JsApiTicket_)

                    getJsApiTicket = JsApiTicket_

                end if
            else
                getJsApiTicket=""
            end if  
        else
            getJsApiTicket = GetCache("JsApiTicket")
        end if
    end function
        private function getAccessToken() 
        'access_token 应该全局存储与更新
        'response.write "getAccessToken"  '输出是否获取access
        if CacheExists("AccessToken") then
            '$url = "https://qyapi.weixin.qq.com/cgi-bin/gettoken?corpid=$this->appId&corpsecret=$this->appSecret"; 如果是企业号用以下URL获取access_token
            Dim strJson : strJson=GetHttpURL("https://api.weixin.qq.com/cgi-bin/token?grant_type=client_credential&appid="& APPID_ &"&secret="& appSecret_)
            Dim objRe : Set objRe = getJSONObject(strJson)
            if InStr(strJson,"errcode")>0 then
                getAccessToken =strJson
                'call InErr("获取AccessToken失败:"& strJson)
                'response.End()
            else
                Dim AccessToken_ : AccessToken_= objRe.access_token
                Set objRe=nothing
                Call AddCache("AccessToken", AccessToken_)

                getAccessToken = AccessToken_

            end if
        else
            getAccessToken = GetCache("AccessToken")
        end if
    end function

2个回答

AddCache怎么写的。。而且你的CacheExists写的怪怪的,应该命名为CacheNotExists还好理解点。。里面的逻辑也要改下

weixin_38330185
alayer 回复caozhy: 怎么代呢?快没分啦
一年多之前 回复
caozhy
贵阳老马马善福专业维修游泳池堵漏防水工程 回复weixin_38330185: 嗯,恭喜问题解决,采纳下showbo的回答,我可以免费帮你代下价值20分的资源哦。
一年多之前 回复
showbo
支付宝加好友偷能量挖 回复weixin_38330185: 采纳了吧:)。。。。
一年多之前 回复
weixin_38330185
alayer 已经自行解决了哈,谢谢
一年多之前 回复

asp现在用的好少了吧,这东西好老了

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!