摘要：
Public Function Get_Openid() If Session("openid")="" Then s_SCOPE ="snsapi_base" Call Get_Access_Token() End If Get_Openid = Session("openid") End Fun 阅读全文
posted @ 2018-10-12 11:44
和硕宝亲王
阅读(877)
评论(0)
推荐(0)
摘要：
Public Function Get_url() SCRIPT_NAME = CStr(Request.ServerVariables("SCRIPT_NAME")) SERVER_NAME = CStr(Request.ServerVariables("HTTP_HOST")) SERVER_P 阅读全文
posted @ 2018-10-12 11:42
和硕宝亲王
阅读(361)
评论(0)
推荐(0)
摘要：
'获取用户基本信息(UnionID机制) '在关注者与公众号产生消息交互后，公众号可获得关注者的OpenID（加密后的微信号，每个用户对每个公众号的OpenID是唯一的。对于不同公众号，同一用户的openid不同）。公众号可通过本接口来根据OpenID获取用户基本信息，包括昵称、头像、性别、所在城市 阅读全文
posted @ 2018-10-12 11:41
和硕宝亲王
阅读(1166)
评论(0)
推荐(0)
摘要：
blic Function Get_Access_Token() sCode = Request("code") If sCode ="" And Session("access_token")="" Then Response.Redirect(GetAuthorization_Code) Els 阅读全文
posted @ 2018-10-12 11:40
和硕宝亲王
阅读(879)
评论(0)
推荐(0)
摘要：
<%Openid = Wx.Get_OpenidResult = Wx.Get_UserInfo(Openid)Function sex(v) if v=1 then sex = "男" else sex = "女" end ifEnd Function%><!DOCTYPE html><html 阅读全文
posted @ 2018-10-12 11:39
和硕宝亲王
阅读(356)
评论(0)
推荐(0)
摘要：
Set xh = CreateObject("Microsoft.XMLHTTP") xh.Open "POST",url,0 xh.setRequestHeader "Content-Length", Len(body) xh.setRequestHeader "CONTENT-TYPE", "a 阅读全文
posted @ 2018-10-12 11:38
和硕宝亲王
阅读(266)
评论(0)
推荐(0)
摘要：
<%url="https://api.weixin.qq.com/cgi-bin/message/custom/send?access_token="&fffbody="{""touser"":""oOZeU0umT1gk9S3bGl50cc4qC0xU"",""msgtype"":""text"" 阅读全文
posted @ 2018-10-12 11:36
和硕宝亲王
阅读(582)
评论(0)
推荐(0)
摘要：
<%Call Wx.C_A("wx_token")'调用函数，如果当前的token有效则不动，否则重新获取并写入缓存 Wx.Echo "Token："&Application("wx_token")(0)'输出当前的tokenWx.Echo "有效期："&Application("wx_token" 阅读全文
posted @ 2018-10-12 11:35
和硕宝亲王
阅读(445)
评论(0)
推荐(0)
浙公网安备 33010602011771号