<script language="JScript" runat="Server">
    function toObject(json) {
        eval("var o=" + json);
        return o;
    }
     
</script>
<%
session.TimeOut=110

function getHTTPtoken(url,cset) 
dim Http 
set Http=server.createobject("MSXML2.XMLHTTP") 
Http.open "GET",url,false 
Http.send() 
if Http.readystate<>4 then exit function 
getHTTPtoken=bytesToBSTR(Http.responseBody,cset) 
set http=nothing 
if err.number<>0 then err.Clear  
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 

'if session("access_token")="" then 

tokenstr=getHTTPtoken("https://api.weixin.qq.com/cgi-bin/token?grant_type=client_credential&appid=xxxx&secret=xxxxx","gb2312")
Set json = toObject(tokenstr)
session("access_token")=json.access_token
Set json = Nothing 
response.Write session("access_token")
'end if
%>