ASP微信公众平台接口开发

微信最近开放第三方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("ｓｃｒｉｐｔing.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微信公众平台自定义接口的一个简单的自定义回复。下面是应用实例，文章的最后是源码程序　

来源于：www.linkhelper.cn

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

'****************注意结束************************

%>