<!--#include file="key.asp"-->
<!--#include file="function.asp"-->
<%
If Request ("goto")="agent" Then session("fastlogin_goto")="agent"
'Dim qc, url
'SET qc = New QqConnet
'url = qc.CreateLoginUrl()
'Response.Redirect(url)

Dim qc, url
    Session("Code")=""
    Session("Openid")=""
    Session("Access_Token")=""
    Session("Openid")=""
SET qc = New QqConnet
    Session("State")=qc.MakeRandNum()
    url = qc.GetAuthorization_Code()
    Response.Redirect(url)
Set qc=Nothing
%>