QQ登陆代码

最新推荐文章于 2021-03-18 23:50:47 发布
最新推荐文章于 2021-03-18 23:50:47 发布
阅读量187 收藏
点赞数
CC 4.0 BY-SA版权
文章标签： json
原文链接：http://www.cnblogs.com/billybobby/p/6336944.html

HTML文件中放置QQ登陆按钮

 <a href="redirect.asp" target=_self  data-role="button" class="ui-btn-right" style="height:24px;line-height:24px;"><img src="Images/bt_blue.png" height="24" alt="QQ登录" border="0"></a>

Redirect.asp文件内容如下：

<!--#include file="qqconnect.asp"-->
<%
Dim qc, url
    Session("Code")=""
    Session("Openid")=""
    Session("Access_Token")=""    
SET qc = New QqConnet
    Session("State")=qc.MakeRandNum()
    url = qc.GetAuthorization_Code()
	 
    Response.Redirect(url)
Set qc=Nothing

%>

qqconnect.asp内容如下：

<script language="jscript" runat="server">
function getjson(str){
        try{
           eval("var jsonStr = (" + str + ")");
        }catch(ex){
           var jsonStr = null;
        }
        return jsonStr;
}
</script>
<%
'==================================
'=类 名 称：QqConnet
'=功    能：QQ登录 For ASP
'=作    者：㊣FireFox㊣
'=Q      Q: 63572063
'=日    期：2012-01-02
'==================================
'转载时请保留以上内容！！
Class QqConnet
    Private QQ_OAUTH_CONSUMER_KEY
    Private QQ_OAUTH_CONSUMER_SECRET
	Private QQ_CALLBACK_URL
	Private QQ_SCOPE
    Private oDic,aKeys,access_token,TimeLine,boundary

    '销毁对象
    Private Sub Class_Terminate()
	    Set oDic = Nothing
    End Sub
    
    Private Sub Class_Initialize      
        QQ_OAUTH_CONSUMER_KEY = " "'APP ID
        QQ_OAUTH_CONSUMER_SECRET = " "'APP KEY
        QQ_CALLBACK_URL = " "'REDIRECT_URI
	QQ_SCOPE ="get_user_info" '授权项 例如：QQ_SCOPE=get_user_info,list_album,upload_pic,do_like,add_t 
                             '不传则默认请求对接口get_user_info进行授权。
                              '建议控制授权项的数量，只传入必要的接口名称，因为授权项越多，用户越可能拒绝进行任何授权。
	TimeLine= DateDiff("s","01/01/1970 08:00:00",Now()) 'oauth_timestamp
	boundary="------------------"&TimeLine
	Set oDic = Server.CreateObject("Scripting.Dictionary")										
    End Sub
	
    Property Get APP_ID()    
        APP_ID = QQ_OAUTH_CONSUMER_KEY    
    End Property

	'生成Session("State")数据.
	Public Function MakeRandNum()
		Randomize
		Dim width : width = 6 '随机数长度,默认6位
		width = 10 ^ (width - 1)
		MakeRandNum = Int((width*10 - width) * Rnd() + width)
	End Function
	
	Private Function CheckXml()
        Dim oxml,Getxmlhttp
        On Error Resume Next
        oxml=array("Microsoft.XMLHTTP","Msxml2.ServerXMLHTTP.6.0","Msxml2.ServerXMLHTTP.5.0","Msxml2.ServerXMLHTTP.4.0","Msxml2.ServerXMLHTTP.3.0","Msxml2.ServerXMLHTTP","Msxml2.XMLHTTP.6.0","Msxml2.XMLHTTP.5.0","Msxml2.XMLHTTP.4.0","Msxml2.XMLHTTP.3.0","Msxml2.XMLHTTP")
        For i=0 to ubound(oxml)
           Set Getxmlhttp = Server.CreateObject(oxml(i))
           If Err Then
              Err.Clear
              CheckXml = False
           Else
              CheckXml = oxml(i) :Exit Function
           End if
       Next
     End Function

	
	'Get方法请求url,获取请求内容
	Private Function RequestUrl(url)
		Set XmlObj = Server.CreateObject(CheckXml)
		XmlObj.open "GET",url, false
		XmlObj.send
		If XmlObj.Readystate=4 Then
	       RequestUrl = XmlObj.responseText
	    Else
	       Response.Write("xmlhttp请求超时！") 
		   Response.End()
	    End If
		Set XmlObj = nothing
	End Function
	
	'Post方法请求url,获取请求内容
	Private Function RequestUrl_post(url,data)
		Set XmlObj = Server.CreateObject(CheckXml())
		XmlObj.open "POST", url, false
		XmlObj.setrequestheader "POST"," /t/add_t HTTP/1.1"
		XmlObj.setrequestheader "Host"," graph.qq.com "
		XmlObj.setrequestheader "content-length ",len(data)  
        XmlObj.setRequestHeader "Content-Type "," application/x-www-form-urlencoded "
		XmlObj.setrequestheader "Connection"," Keep-Alive"
        XmlObj.setrequestheader "Cache-Control"," no-cache"
        XmlObj.send(data)
		If XmlObj.Readystate=4 Then
	       RequestUrl_post = XmlObj.responseText
	    Else
	       Response.Write("xmlhttp请求超时！") 
		   Response.End()
	    End If
		Set XmlObj = nothing
	End Function
	
	
	Private Function CheckData(data,str)
		If Instr(data,str)>0 Then
		   CheckData = True
		Else
		   CheckData = False
		End If
	End Function
	

	
	'生成登录地址
	Public Function GetAuthorization_Code()
		Dim url, params
		url = "https://graph.qq.com/oauth2.0/authorize"
		params = "client_id=" & QQ_OAUTH_CONSUMER_KEY
		params = params & "&redirect_uri=" & QQ_CALLBACK_URL
		params = params & "&response_type=code"
		params = params & "&scope="&QQ_SCOPE
		params = params & "&state="&Session("State")
		url = url & "?" & params
		GetAuthorization_Code = (url)
	End Function
	
	
	'获取 access_token
	Public Function GetAccess_Token()
		Dim url, params,Temp
		Url="https://graph.qq.com/oauth2.0/token"
	    params = "client_id=" & QQ_OAUTH_CONSUMER_KEY
		params = params & "&client_secret=" & QQ_OAUTH_CONSUMER_SECRET
		params = params & "&redirect_uri=" & QQ_CALLBACK_URL
		params = params & "&grant_type=authorization_code"
		params = params & "&code="&Session("Code")
		url = Url & "?" & params
		Temp=RequestUrl(url)
		
		If CheckData(Temp,"access_token=") = True Then
           GetAccess_Token=CutStr(Temp,"access_token=","&")
		Else
		   Response.Write("获取 Access_Token 时发生错误，错误代码："&CutStr(Temp,"{""error"":",",")) 
		   Response.End()
		End If
		
	End Function
	
	Sub setSession(str)
	Dim ary1
	ary1 = Split(Replace(str,"=","&"),"&")
	If ubound(ary1) > 1 Then
		Session("access_token") = ary1(1)
		Session("expires_in") = ary1(3)
		Session("refresh_token") = ary1(5)
	End If
    End Sub

	'检测是否合法登录！
	Public Function CheckLogin()
		Dim Code,mState
		Code=Trim(Request.QueryString("code"))
		If Code<>"" Then
			CheckLogin = True
			Session("Code")=Code
		Else
			CheckLogin = False
		End If
	End Function
	
	
	'获取openid
	Public Function Getopenid()
		Dim url, params,Temp
		url = "https://graph.qq.com/oauth2.0/me"
		params = "access_token="&Session("Access_Token")
		url = Url & "?" & params
		Temp=RequestUrl(url)
		If Instr(Temp,"openid")>0 Then
		   set obj = getjson(CutStr(Temp,"(",")"))
		   if isobject(obj) Then
		       Getopenid=obj.openid
		   End If
		  set obj = Nothing
		Else
		   
		   set obj = getjson(CutStr(Temp,"(",")"))
		   if isobject(obj) Then
		       ret = obj.error
			   msg = obj.error_description
		   End If
		  set obj = Nothing
		    Response.Write("获取 openid 时发生错误，错误代码："&ret&" , 错误描述："&msg) 
		   Response.End()
		End If
	End Function
	
	'发送一条微博
	Public Function Post_Webo(content)
		Dim url, params
		url = "https://graph.qq.com/t/add_t"
		params = "oauth_consumer_key=" & QQ_OAUTH_CONSUMER_KEY
		params = params & "&access_token=" & Session("Access_Token")
		params = params & "&openid=" & Session("Openid")
		params = params & "&content="&content
        params = params & "&format=json"
		Post_Webo = RequestUrl_post(url,params)
	End Function
	'发送一条说说
	Public Function Post_add_topic(content)
		Dim url, params
		url = "https://graph.qq.com/shuoshuo/add_topic"
		params = "oauth_consumer_key=" & QQ_OAUTH_CONSUMER_KEY
		params = params & "&access_token=" & Session("Access_Token")
		params = params & "&openid=" & Session("Openid")
		params = params & "&con="&content
        params = params & "&format=json"
		Post_add_topic = RequestUrl_post(url,params)
	End Function
	
	'分享内容到QQ空间
	Public Function Post_Share(title,turl,comment,summary,images)
		Dim url, params
		url = "https://graph.qq.com/share/add_share"
		params = "oauth_consumer_key=" & QQ_OAUTH_CONSUMER_KEY
		params = params & "&access_token=" & Session("Access_Token")
		params = params & "&openid=" & Session("Openid")
		params = params & "&title="&title
		params = params & "&url="&turl
		params = params & "&title="&title
		params = params & "&comment="&comment
		params = params & "&summary="&summary
		params = params & "&images="&images
		params = params & "&format=json"
		Post_Share = RequestUrl_post(url,params)
	End Function
	
	'获取用户信息,得到一个json格式的字符串
	Public Function GetUserInfo()
		Dim url, params, result
		url = "https://graph.qq.com/user/get_user_info"
		params = "oauth_consumer_key=" & QQ_OAUTH_CONSUMER_KEY
		params = params & "&access_token=" & Session("Access_Token")
		params = params & "&openid=" & Session("Openid")
		url = url & "?" & params
		Temp = RequestUrl(url)
		If CheckData(Temp,"nickname") = False Then
		    set obj = getjson(Temp)
		   if isobject(obj) Then
		       ret = obj.ret
			   msg = obj.msg
		   End If
		  set obj = Nothing
		   Response.Write("获取用户信息时发生错误，错误代码："&ret&" , 错误描述："&msg) 
		   Response.End()
		End If
		GetUserInfo = Temp
	End Function
	
	'获取腾讯微博登录用户的用户资料,得到一个json格式的字符串
	Public Function Get_Info()
		Dim url, params, result
		url = "https://graph.qq.com/user/get_info"
		params = "oauth_consumer_key=" & QQ_OAUTH_CONSUMER_KEY
		params = params & "&access_token=" & Session("Access_Token")
		params = params & "&openid=" & Session("Openid")
		params = params & "&format=json"
		url = url & "?" & params
		Get_Info = RequestUrl(url)
	End Function

	
	'获取用户名字,性别,从json字符串里截取相关字符
	Public Function GetUserName(json)
	    Dim nickname,sex,obj
		set obj = getjson(json)
		   if isobject(obj) Then
		       nickname = obj.nickname
			   sex = obj.gender
		   End If
		  set obj = Nothing
	    GetUserName = Array(nickname,sex)
	End Function
	
	'获取用户头像
	Public Function GetUserPhoto(json)
	    Dim userphoto,obj
		set obj = getjson(json)
		   if isobject(obj) Then
		       userphoto = obj.figureurl_qq_1
			    
		   End If
		  set obj = Nothing
	    GetUserPhoto = userphoto
	End Function
	
	Public Function CutStr(data,s_str,e_str)
	    If Instr(data,s_str)>0 and Instr(data,e_str)>0 Then
		   CutStr = Split(data,s_str)(1)
		   CutStr = Split(CutStr,e_str)(0)
		Else
		   CutStr = ""
		End If
	End Function
	
	'发送数据
    Function doRequest(verb, resLoc, getData, objData, multi)
	Dim aUrl,xmlhttp
	If(getData <>"") then getData = "?"&getData
	aUrl = resLoc & getData
	Response.write aUrl & "<br>"
	Set xmlhttp=Server.CreateObject("MSXML2.ServerXMLHTTP")
	xmlhttp.Open verb,aUrl,false	
	If(verb = "POST") Then
		If(multi) Then '如果是图片
			xmlhttp.setRequestHeader "Content-Type","multipart/form-data; boundary="&boundary
			'图片上传处理
		Else
			xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=utf-8"
		End  If 
	End  If	
	xmlhttp.send(objData)		
	doRequest=xmlhttp.responseText
	'Response.Write("测试信息，可注释: " & Replace(Replace(doRequest,"<","<"),">",">") & "<br><br>一个在线格式化JSON数据的工具：http://jsonformatter.curiousconcept.com/<br><br>")
	Set xmlhttp=Nothing
    End Function
	
	Function Sorts()
	   Dim i,arr(),aKeys,aItems
	   ReDim arr(oDic.Count-1)
	   aKeys = oDic.Keys
	   aItems = oDic.Items
	   For i=0 To oDic.Count-1
	   arr(i)=aKeys(i)&"="&strUrlEnCode(oDic.Item(aKeys(i)))
	   Next
	   Sorts=join(arr,"&")
    End Function

    'URL Encode，并将不需要转换的再替换回来
    Function strUrlEnCode(byVal strUrl)
   	  strUrlEnCode = Server.URLEncode(strUrl)
	  strUrlEnCode = Replace(strUrlEnCode,"%5F","_")
	  strUrlEnCode = Replace(strUrlEnCode,"%2E",".")
	  strUrlEnCode = Replace(strUrlEnCode,"%2D","-")
	  strUrlEnCode = Replace(strUrlEnCode,"+","%20")
    End Function

End Class
%>

　点击登陆后会在返回文件中附加Code=XXXX&State=XXXX内容，将此内容继续进行处理，可获得QQ图片，名字等信息。

If Len(Code)>0 then  '登陆成功

              SET qc = New QqConnet
 
	     Session("Access_Token")=qc.GetAccess_Token()

	     Session("Openid")=qc.Getopenid()
              
	     UserInfo=qc.GetUserInfo()
			   
             UserName=qc.GetUserName(UserInfo)(0)

	     UserPhoto=qc.GetUserPhoto(UserInfo)

End if

　　

　

转载于:https://www.cnblogs.com/billybobby/p/6336944.html

b10l07
关注
qq登陆代码
08-22
qq登陆代码,qq登陆时的使用代码
QQ授权登录代码
06-28
PHP WEB QQ授权登录代码
QQ登陆绑定代码
Super乐De博客
08-08 1652
//本代码并非完美,也许存在不良之处,高手请多指点,请勿吐槽! //qq登陆 public function qq_login(){ vendor('Connect.qqConnectAPI'); $qc = new QC(); $qc->qq_login(); } //qq验证登陆 public function qq_callback(){ vend
qq自动登录代码
10-15
qq自动登录代码和注册
QQ登录代码
09-29
QQ登录代码是腾讯公司开发的即时通讯软件QQ的登录接口程序，它允许用户通过编程的方式实现QQ账号的自动登录和消息收发。QQ登录代码通常包括客户端登录验证、身份识别、安全验证等核心功能，是QQ SDK（Software ...
Android调用第三方QQ登录代码分享
01-05
本文为大家分享了调用QQ登录的相关代码，希望对大家有帮助，减少项目开发的时间，具体内容如下 1、去QQ开放平台注册帐号（http://open.qq.com/），为应用申请QQ的APP_ID , 并下载相关的jar包，放到工程的lib目录下。...
PHP实现QQ登录实例代码
10-22
在本篇分享中，我们将探究如何使用PHP语言编写代码，实现通过模拟登录的方式接入QQ的3G版本，即所谓的“3GQQ登录”。利用PHP实现QQ登录的原理是通过cURL函数模拟浏览器发送POST请求，将用户输入的QQ账号和密码传递给...
精典源码之QQ的登录界面 源代码.rar
12-16
这份"精典源码之QQ的登录界面 源代码"提供了一个实际的示例，可以帮助我们深入理解如何创建一个类似QQ登录界面的交互式网页。下面我们将详细探讨其中涉及的技术和知识点。 1. HTML基础结构： - 登录界面通常包含...
QQ登录与注册代码
08-16
这是一款仿QQ订做的代码，功能齐全，对于新手朋友来说，值得下载与学习
qq简单登录界面代码
11-07
程序文档中的代码实现了一个简单的java编写的qq简单的登录界面。
QQ登录界面程序源代码
06-29
import java.awt.*; import java.awt.event.*; import java.applet.*; import javax.swing.ImageIcon; import javax.swing.*; import java.lang.*; import java.sql.*; class Imagecanvas extends Canvas { Toolkit tool; Image Im; Imagecanvas() { setSize(360, 50); tool = getToolkit(); Im = tool.getImage("dj.jpg"); } public void paint(Graphics g) { g.drawImage(Im, 0, 0, 360, 50, this); } } class QqBorder1 extends JFrame implements ActionListener { Choice cho; QqBorder1() { super("QQ2010"); setSize(360, 260); setLocation(250, 120); setResizable(false); Container c = getContentPane(); FlowLayout layout = new FlowLayout(FlowLayout.CENTER); JPanel p1 = new JPanel(); JPanel p2 = new JPanel(); JPanel p3 = new JPanel(); cho = new Choice(); cho.add("在线"); cho.add("隐身"); cho.add("离线"); cho.add("忙碌"); cho.add("请勿打扰"); Imagecanvas canvas1 = new Imagecanvas(); p1.setSize(360, 50); p1.add(canvas1); TextField username = new TextField(25); TextField password = new TextField(25); password.setEchoChar('*'); JButton btrystu = new JButton("登陆"); JButton sezhi = new JButton("设置"); JCheckBox check1 = new JCheckBox("记住密码"); JCheckBox check2 = new JCheckBox("自动登陆"); // p1.setSize(360, 200); JPanel p21 = new JPanel(); JPanel p22 = new JPanel(); p21.add(new JLabel("账号：")); p21.add(username); p21.add(new JLabel("<html><font color=blue>注册新账号</font></html>")); // p21.add(new JLabel(" ")); p21.add(new JLabel("密码：")); p21.add(password); p21.add(new JLabel("<html><font color=blue> 找 回 密 码 </font></html>")); p22.add(new JLabel("状态:")); p22.add(new JLabel(" ")); p22.add(cho); p22.add(check1); p22.add(check2); p22.add(new JLabel(" ")); p2.add(p21); p2.add(p22); p2.setBounds(100, 300, 200, 300); p2.setLayout(new GridLayout(2, 1, 10, 10)); p3.add(sezhi); p3.add(new JLabel(" ")); p3.add(btrystu); add(BorderLayout.NORTH, p1); add(BorderLayout.CENTER, p2); add(BorderLayout.SOUTH, p3); this.setVisible(true); } public void actionPerformed(ActionEvent e) { } } public class QqBorder { }
QQ登录界面（Android练习源码）
05-26
该文件是QQ登录界面的源码，利用Android Studiok编写。
QQ登陆页面
06-20
用Android Studio模拟扣扣的登陆页面，通过输入用户名和密码来实现登陆
java按钮代码_java代码块之简易qq登录界面及按钮颜色设置代码
weixin_39942191的博客
02-12 291
本文主要分享了关于简洁版qq登录界面及按钮颜色设置的相关代码，供参考。java代码块公共包(初始化窗口位置)package util;import java.awt.Dimension;import java.awt.Toolkit;import javax.swing.JFrame;//图形化界面的工具类public class FrameUtil {//设置窗体出现在中间位置public st...
(纯代码)QQ登录界面：
weixin_30551947的博客
03-11 746
#import "ViewController.h" @interface ViewController () @property (nonatomic, weak) UITextField *_textName; @property (nonatomic, weak) UITextField *_textPassword; @endhttp://www.cnblogs.c...
qq快捷登陆 php代码,QQ接口 实现QQ快捷登陆
weixin_42421177的博客
03-18 578
首先需要去申请一个QQ互联的接口,设置好各种参数得到两个参数:APP ID 和 APP KEY在页面可以这样弄:直接超链接转向接口地址:https://graph.qq.com/oauth2.0/authorize?response_type=code&client_id=APP_ID&redirect_uri=成功授权后的回调地址&state=状态码&scope=...
QQ开放平台QQ登录PHP代码
bianta的专栏
06-03 3416
//---------------------------class qzone{var $appid = "appid";//换成您的var $appkey = "appkey";//换成您的//除去数组中的空值和签名模式function filter($parameter) {$para = array();while (list ($key,
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值