<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="qqconnect.asp"-->
<%
SET qc = New QqConnet
    CheckLogin=qc.CheckLogin()
	If CheckLogin=False Then
	   Response.Write("登录失败！")
	   Response.End()
	End If
   ' Response.Write(Session("State"))
%>

<!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" />
<title>用户信息</title>
</head>

<body style="font-size:12px">
<fieldset>
<legend>用户信息</legend>
<% 

    Session("Access_Token")=qc.GetAccess_Token()
    Response.Write("Access_Token="&Session("Access_Token")&"<br/>")
	Session("Openid")=qc.Getopenid()
	Response.Write("Openid="&Session("Openid")&" [此openid可作为唯一标识，可用来绑定网站原有帐号！]<br/>")
	UserInfo=qc.GetUserInfo()
	'Response.Write(UserInfo)
	Response.Write("Email:"&qc.GetUserEmail(qc.Get_Info())&"<br/>")
	Response.Write("姓名:"&qc.GetUserName(UserInfo)(0)&"<br/>")
	Response.Write("性别:"&qc.GetUserName(UserInfo)(1)&"<br/>")
	Response.Write("头像：<img src=http://qzapp.qlogo.cn/qzapp/"&qc.APP_ID&"/"&Session("Openid")&"/30")
Set qc=Nothing
 %>
 
 <br/>
  <br/>
 <a href="Post_weibo.asp">发送微博</a>
 <a href="add_share.asp">分享到QQ空间</a>
</fieldset>
</body>
</html>