<%
Response.Charset = "GB2312"
Code = Trim(Request.QueryString("code"))
'Response.Write(Code&"<br/>")
SET Wx = New WxAPI
TokenArray = Wx.GetAccess_Token(Code)
Access_Token=TokenArray(0)
Openid=TokenArray(1)
'End If
UserInfo=Wx.GetUserInfo()
'Response.Write(userinfo)
nickname = Wx.GetUserName(UserInfo)(0)
sex = Wx.GetUserName(UserInfo)(1)
icon = Wx.GetUserName(UserInfo)(2)
Set Wx=Nothing
If sex="1" then
sex = "男"
Else
sex = "女"
End If
' Response.Write(Session("State"))
'Response.Write("<br/>acces_token="&Access_Token)
'Response.Write("<br/>openid="&Openid)
'Response.Write("<br/>nickname="&nickname)
'Response.Write("<br/>sex="&sex)
'Response.Write("<br/><img src="""&icon&""" alt="""" width=""150"" height=""150""/>")
%>
=============================================
互相学习电话微信:18611436777(加微信注明事由)