<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="WxApi.asp"-->
<%
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&""" "" width=""150"" height=""150""/>")
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="viewport" content="width=device-width, initial-scale=1"/>
<title> Demo for 微信登录 (ASP版)</title>
<style>
body{ margin:0px; padding:0px}
.div1{ width:340px; float:left; margin:5px auto}
.div1 span{line-height::30px; float:left; border:1px solid #fff;}
.w50 { width:140px; height:140px; margin:5px;}
.w286 { width:176px; margin:5px}
.w340{ width:335px; margin:5px;word-wrap:break-word;word-break:break-all;}
.green{ color:#006600; font-size:25px}
</style>
</head>
<body>
<Div class="div1">
<span class="w50" style="border:1px solid #ccc;"><img src="<%= icon %>" width="140" height="140"/></span>
<span class="w286">昵 称：<b class="green"><%= nickname %></b></span>
<span class="w286">性 别：<b class="green"><%= sex %></b></span>
<span class="w340">OpenId：<br/><b class="green"><%= Openid %></b></span>
<span class="w340">Access_Token：<br/><b class="green"><%= Access_Token %></b></span>
</Div>
</body>
</html>
=============================================
互相学习电话微信：18611436777（加微信注明事由）
原文地址：https://www.cnblogs.com/lytocnc/p/9765622.html