<!--#include file="qqconnect.asp"-->
<%'=====================================
'软件名称：电家企业网站内容管理系统
'软件开发：电脑家园工作室
'网    址：http://www.537600.cn
'服务  QQ：530051328
'服务邮箱：bbfhq@163.com
'微信公众号：diannaojiayuan

'功能：QQ登录 For ASP
'接口标准OAuth2.0
'能通过QQ登录验证，获取用户空间昵称功能,实现
'QQ快速登录网站、发送微博、分享到QQ空间等简单操作
'=====================================
'======================================================
If API_QQEnable=False Then
Response.Write ("<script language=javascript>alert('未启用QQ快速登录功能!');history.go(-1);</script>")
response.end
End If
'======================================================
Dim qc,url,host
    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
%>