摘要：
以上全部是asp开发的微信公众号接口，需要的联系我 互相学习电话微信：18611436777（加微信注明事由） 阅读全文
posted @ 2018-10-12 11:52
和硕宝亲王
阅读(1935)
评论(0)
推荐(0)
摘要：
Class WxAPI Private s_APPID Private s_APPSECRET Private s_REDIRECT_URI Private s_SCOPE Private parameters Private Sub Class_Initialize Set parameters 阅读全文
posted @ 2018-10-12 11:49
和硕宝亲王
阅读(623)
评论(0)
推荐(0)
摘要：
'设置参数值 Public Sub setParameter(parameter, parameterValue) If parameters.Exists(parameter) = True Then parameters.Remove(parameter) End If parameters.A 阅读全文
posted @ 2018-10-12 11:47
和硕宝亲王
阅读(556)
评论(0)
推荐(0)
摘要：
Private Function CheckData(data,str) If Instr(data,str)>0 Then CheckData = True Else CheckData = False End If End Function Public Sub Die(v) Response. 阅读全文
posted @ 2018-10-12 11:46
和硕宝亲王
阅读(878)
评论(0)
推荐(0)
摘要：
Public Function Get_Access_Token() sCode = Request("code") If sCode ="" And Session("access_token")="" Then Response.Redirect(GetAuthorization_Code) E 阅读全文
posted @ 2018-10-12 11:45
和硕宝亲王
阅读(1794)
评论(0)
推荐(0)
摘要：
Public Function GetAuthorization_Code() Dim url, params url = "https://open.weixin.qq.com/connect/oauth2/authorize?" params = "appid="&s_APPID params 阅读全文
posted @ 2018-10-12 11:45
和硕宝亲王
阅读(366)
评论(0)
推荐(0)
摘要：
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号