asp获取微信公众平台access_token,主要用到asp获取相应网址内容，asp截取字符串等代码

当然也可以获取其他微信公众平台返回的内容，具体代码如下：

<script>window.onerror=function(){return true;};</script>  

<script language="JScript" runat="Server">  

function toObject(json) {  

    try   

    {   

        eval("var o="+json); //精妙  

        return o;  

    }   

    catch(err)   

    {  

        return err;  

    }  

}  

</script>  

<%
response.Charset="gb2312" '根据相应情况，可修改为utf-8

Response.Expires = -9999 
Response.AddHeader "Pragma","no-cache" 
Response.AddHeader "cache-ctrol","no-cache"

Function GetBody(weburl) 
Dim ObjXMLHTTP 
Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP") 
ObjXMLHTTP.Open "GET",weburl,False 
ObjXMLHTTP.send 
While ObjXMLHTTP.readyState <> 4 
ObjXMLHTTP.waitForResponse 10000 
Wend 
GetBody=ObjXMLHTTP.responseBody 
Set ObjXMLHTTP=Nothing 
End Function

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

url="https://api.weixin.qq.com/cgi-bin/token?grant_type=client_credential&appid=您的appid，请登录在微信公众平台查看&secret=您的secret，请登录在微信公众平台查看"
   json=BytesToBstr(GetBody(url),"utf-8")

   Set json=toObject(json)  

   access_token = json.access_token  

   expires_in= json.expires_in  

response.write(access_token)

%>

参考网址：http://www.0576w.com/asp-weixin-22131.html

http://blog.csdn.net/rcy5211314/article/details/22527307

两个结合才行