<!--#include file="../inc/config.asp"-->
<%
if cf_appid="" or cf_appkey="" then
response.Write("<script>alert('对不起，网站未开通QQ登录！');location.href='login.asp';</script>")
response.End()
end if
%>
<!--#include file="qq_oauth.asp"-->
<%
Dim qc, url
SET qc = New QqConnet
    Session("State")=qc.MakeRandNum()
    url = qc.GetAuthorization_Code()
    Response.Redirect(url)
Set qc=Nothing
%>