【转】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 = "app&Temp) 
Response.End()
End If
End Function

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