<% 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 %>36ѡ7ͼ