企业微信授权登录（asp代码）

【实例截图】

【核心代码】

<script language="jscript" runat="server">
function getjson(str){
        try{
           eval("var jsonStr = ("   str   ")");
        }catch(ex){
           var jsonStr = null;
        }
        return jsonStr;
}
</script>
<%
Class WxAPI
    Private APPID
	Private AGENTID
    Private APPSECRET
	Private CALLBACK_URL
	Private SCOPE
        
    Private Sub Class_Initialize      
        APPID = "ww57d2373b835ce7bb"'APP ID
		AGENTID="1000084"
        APPSECRET = "7vPvwpq7ZDwlhgbA9V1yhPPEBXTC39VOt0ltlxBSHZ8"'APP KEY
        CALLBACK_URL = "http://xgzx.hugsmxy.com:8080/user2.asp"'REDIRECT_URI
		SCOPE ="snsapi_privateinfo" '授权项snsapi_userinfo,snsapi_base
                                                
    End Sub
	'Microsoft.XMLHTTP
	'Get方法请求url,获取请求内容
   Private Function RequestUrl(url)
		Set XmlObj = Server.CreateObject("Microsoft.XMLHTTP")
		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
	
	
	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://open.weixin.qq.com/connect/oauth2/authorize"
		params = "appid="&APPID
		params = params & "&redirect_uri=" & server.URLEncode(CALLBACK_URL)
		params = params & "&response_type=code"
		params = params & "&scope="&SCOPE
		params = params & "&agentid="&AGENTID
		params = params & "&state=STATE#wechat_redirect"
		url = url & "?" & params
		GetAuthorization_Code = (url)
	End Function
	
	'获取 access_token
	Public Function GetAccess_Token(sCode)
		Dim url, params,Temp
		Url="https://qyapi.weixin.qq.com/cgi-bin/gettoken"
		params = "corpid="&APPID
		params = params & "&corpsecret=" & APPSECRET
		params = params & "&code=" & sCode
		params = params & "&grant_type=authorization_code"
		url = Url & "?" & params
		Temp=RequestUrl(url)
		If CheckData(Temp,"access_token") = True Then
		   set obj = getjson(Temp)
		   if isobject(obj) Then
		       GetAccess_Token = Array(obj.access_token,"")
		   End If
		  set obj = Nothing
		Else
		   Response.Write("获取 access_token 时发生错误，错误信息："&Temp) 
		   Response.End()
		End If
	End Function
	
	'检测是否合法登录！
	Public Function CheckLogin()
		Dim Code,mState
		Session("Code")=Trim(Request.QueryString("code"))
		If Code<>"" Then
			CheckLogin = True
		Else
			CheckLogin = False
		End If
	End Function
	
	'获取用户信息,得到一个json格式的字符串
	Public Function GetUserInfo()
		Dim url, params, result,murl
		url = "https://qyapi.weixin.qq.com/cgi-bin/user/getuserinfo"
		params = params & "access_token=" & Access_Token
		params = params & "&code="&Code
		params = params & "&user_ticket="&SCOPE
		url = url & "?" & params
		Temp = RequestUrl(url)


		If CheckData(Temp,"UserId") = false Then
		    set obj = getjson(Temp)
		   if isobject(obj) Then
		       ret = obj.errcode
			   msg = obj.errmsg

		   End If
		  set obj = Nothing
		   Response.Write("获取用户信息时发生错误，错误代码："&ret&" , 错误描述："&msg) 
		   Response.End()
		End If
		set obj = getjson(Temp)
		userid=obj.userid
		murl="https://qyapi.weixin.qq.com/cgi-bin/user/get?access_token="& Access_Token&"&userid="&userid
		Temps = RequestUrl(murl)
		GetUserInfo = Temps
	End Function
	


	
	'获取用户名字,性别,从json字符串里截取相关字符
	Public Function GetUserName(json)
	    Dim nickname,sex,headimgurl,em,userid,mobile,department,position,telephone,obj
		set obj = getjson(json)
		   if isobject(obj) Then
		       nickname = obj.name
			   sex = obj.gender
			   headimgurl = obj.avatar
			   em = obj.email
			   userid=obj.userid
                mobile=obj.mobile
               department=obj.department
               position=obj.position
               telephone=obj.telephone

		   End If
		  set obj = Nothing
	    GetUserName = Array(nickname,sex,headimgurl,em,userid,mobile,department,position,telephone)
	End Function
	
	
End Class
%>