微信最近开放第三方API接口,申请地址:http://mp.weixin.qq.com/cgi-bin/callbackprofile?t=wxm-callbackapi&type=info&lang=zh_CN

  从微信公众平台开通自定义回复后,就一直在关注微信接口这一块,很想用自定义回复这块做个站长工具的查询,例如PR查询,备案查询等,输入网址信息,就能自动获取PR,获取备案信息,应该是一个不错的想法。不过以前一直不支持自定义API,只能是一些固定的信息回复。最近微信公众平台终于开放第三方接口了,也就是说,可以根据用户提交的信息,来自定义回复内容,非常方便。

  站长帮手网官方微信第一时间开通了自定义回复,大家可以添加站长帮手网微信账号linkhelper来看看自定义接口的方便性,输入网址,就能自动回复网站的PR值。截图如下:

  

 

  看到了微信的自定义第三方接口的强大后,下面我们来讲讲怎么实现自定义回复。

  首先我们进入第三方接口的页面进行注册,地址:http://mp.weixin.qq.com/cgi-bin/callbackprofile?t=wxm-callbackapi&type=info&lang=zh_CN

  URL为你以后的微信自定义回复生成的地址。Token你可以随便输,主要是用来校验当前的信息是否为微信提交过来的信息。

  如果你的微信接口页面没有做好,提交保存的时候,会提示:验证Token失败。这个错误是因为,你的接口页面还没有反馈正确的信息给微信接口。微信在教程方面还做得不够成熟,就一个PHP示例,还是有问题的,在下篇文章我会讲到这个错误在哪。微信官方也没有跟大家说清楚怎么才能是token验证成功。下面我将给出示例告诉大家如何通过token验证。

  譬如:站长帮手网的微信接口页面是http://wx.linkhelper.cn 默认页面是default.asp,我们只需要把default.asp的代码改为:

<%
        response.write request("echostr")
       %>

  然后再在官方提交下保存,提示“验证token成功”。到此为止,第一步我们完成了接口的申请。

  上面给大家讲了如何申请微信公众平台自定义接口,这篇文章讲通过实例,为大家讲述如何实现Hello World的一个简单的自定义回复。微信官方不提供ASP代码实例。

  微信官方提供的PHP代码示例,$postStr = $GLOBALS["HTTP_RAW_POST_DATA"];$postObj = simplexml_load_string($postStr, 'SimpleXMLElement', LIBXML_NOCDATA);通过该代码可以获知微信平台提交过来的信息是一个XML对象。对应的ASP代码的实现是:

set xml_dom = Server.CreateObject("MSXML2.DOMDocument")
 xml_dom.load request
 FromUserName=xml_dom.getelementsbytagname("FromUserName").item(0).text

  该代码可以获取到提交过来的用户。其他的接收者,微信内容都可以该方法获取到。

  这里交大家一个调试技巧,因为微信接口代码不好调试,我们可以通过写文件的方式,把我们代码获取到的内容写入一个文件,以调试代码是否正确。代码如下:

filepath=server.mappath(".")&"\wx.txt"
 Set fso = Server.CreateObject("scripting.FileSystemObject")
 set fopen=fso.OpenTextFile(filepath, 8 ,true)
 fopen.writeline(FromUserName)
 set fso=nothing
 set fopen=Nothing

  最后我们重新组合,并生成对应的XML字符串,反馈给微信公众平台,用户就能接受到自定义回复内容了。相关代码如下:

strresponse="<xml>"
 strresponse=strresponse&"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>"
 strresponse=strresponse&"<FromUserName><![CDATA["&tousername&"]]></FromUserName>"
 strresponse=strresponse&"<CreateTime>"&now&"</CreateTime>"
 strresponse=strresponse&"<MsgType><![CDATA[text]]></MsgType>"
 strresponse=strresponse&"<Content><![CDATA[Hello World]]></Content>"
 strresponse=strresponse&"<FuncFlag>0<FuncFlag>"
 strresponse=strresponse&"</xml>"
 response.write strresponse

  另外请大家注意,ASP文件需要以UTF-8的格式保存,包括页面编码也要用UTF-8的格式,否则有可能自定义回复出现乱码。

至此,我们就完成了ASP微信公众平台自定义接口的一个简单的自定义回复。下面是应用实例,文章的最后是源码程序

==

l 微信会员管理系统(利用微信开发最成功的商业大牛)

下面给大家介绍一个微信公众平台开发最成功的“大牛神”—--深圳一卡易公司的微信会员管理系统,让人耳目一新,目前是我看到微信公众平台利用最成功的软件了。下面给大家介绍一下他的功能。让大家以后做开发的时候能有个很好的思路。

----------------------下面介绍如何体验微信会员------------------------------

本微信会员连锁管理系统适合服务行业的会员连锁软件。具有给会员发短信功能,能连锁管理店铺。远程在家也能管理您的店铺情况,会员也可以通过智能手机终端或者微信,查看自己的会员积分情况,储值情况,还可以查看店铺打折信息,商品信息,促销信息等,还能远程下单等等,功能非常强大。

----------------------------------------------------以下是源码--------------------------------------------------------

<%@Language="VBScript" CodePage="65001"%> 
<%
'**************注意,以下两行代码是为了通过微信接口验证的。验证前,请把注释,两个单引号去掉。验证通过后,把两行代码删除或者注释掉。**************
'response.write request("echostr")
'response.end 
'**********注意结束*************
%>
<%
set   xml_dom   =   Server.CreateObject("MSXML2.DOMDocument")     
xml_dom.load request
'strxml=xml_dom.xml
FromUserName=xml_dom.getelementsbytagname("FromUserName").item(0).text '发送者微信账号
ToUserName=xml_dom.getelementsbytagname("ToUserName").item(0).text '接收者微信账号。即我们的公众平台账号。
content=xml_dom.getelementsbytagname("Content").item(0).text '微信内容
strEventType=xml_dom.getelementsbytagname("Event").item(0).text '微信事件
'**************以下代码为我们组织一个XML输出,反馈给微信借口
strsend="Hello World"
if strEventType="subscribe" then '表示订阅微信公众平台
strsend="Welcome" '定义发送内容。
end if
strresponse="<xml>"
strresponse=strresponse&"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>"   'tousername是指接受的微信账号。即前面我们获取到的发送者账号
strresponse=strresponse&"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" 'FromUserName是发送者账号,即我们的工种平台账号。
strresponse=strresponse&"<CreateTime>"&now&"</CreateTime>"  '时间。
strresponse=strresponse&"<MsgType><![CDATA[text]]></MsgType>"  '发送类型。text是文本型。具体可以参考微信帮助手册
strresponse=strresponse&"<Content><![CDATA["&strsend&"]]></Content>" '发送内容
strresponse=strresponse&"<FuncFlag>0<FuncFlag>"
strresponse=strresponse&"</xml>"
response.write strresponse

'*************输出结束*******************

'*************注意,以下代码只是为了调试作用的,可以删除*********************

filepath=server.mappath(".")&"\wx.txt"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
set fopen=fso.OpenTextFile(filepath, 8 ,true)
fopen.writeline(strresponse)
set fso=nothing
set fopen=Nothing
'****************注意结束************************
%>