微信最近開(kāi)放第三方API接口，申請(qǐng)地址：http://mp.weixin.qq.com/

　　從微信公眾平臺(tái)開(kāi)通自定義回復(fù)后，就一直在關(guān)注微信接口這一塊，很想用自定義回復(fù)這塊做個(gè)站長(zhǎng)工具的查詢(xún)，例如PR查詢(xún)，備案查詢(xún)等，輸入網(wǎng)址信息，就能自動(dòng)獲取PR，獲取備案信息，應(yīng)該是一個(gè)不錯(cuò)的想法。不過(guò)以前一直不支持自定義API，只能是一些固定的信息回復(fù)。最近微信公眾平臺(tái)終于開(kāi)放第三方接口了，也就是說(shuō)，可以根據(jù)用戶(hù)提交的信息，來(lái)自定義回復(fù)內(nèi)容，非常方便。

　　站長(zhǎng)幫手網(wǎng)官方微信第一時(shí)間開(kāi)通了自定義回復(fù)，大家可以添加站長(zhǎng)幫手網(wǎng)微信賬號(hào)linkhelper來(lái)看看自定義接口的方便性，輸入網(wǎng)址，就能自動(dòng)回復(fù)網(wǎng)站的PR值。截圖如下：

　　看到了微信的自定義第三方接口的強(qiáng)大后，下面我們來(lái)講講怎么實(shí)現(xiàn)自定義回復(fù)。

　　首先我們進(jìn)入第三方接口的頁(yè)面進(jìn)行注冊(cè)，地址：http://mp.weixin.qq.com/cgi-bin/callbackprofile?t=wxm-callbackapi&type=info&lang=zh_CN

　　URL為你以后的微信自定義回復(fù)生成的地址。Token你可以隨便輸，主要是用來(lái)校驗(yàn)當(dāng)前的信息是否為微信提交過(guò)來(lái)的信息。

　　如果你的微信接口頁(yè)面沒(méi)有做好，提交保存的時(shí)候，會(huì)提示：驗(yàn)證Token失敗。這個(gè)錯(cuò)誤是因?yàn)?，你的接口?yè)面還沒(méi)有反饋正確的信息給微信接口。微信在教程方面還做得不夠成熟，就一個(gè)PHP示例，還是有問(wèn)題的，在下篇文章我會(huì)講到這個(gè)錯(cuò)誤在哪。微信官方也沒(méi)有跟大家說(shuō)清楚怎么才能是token驗(yàn)證成功。下面我將給出示例告訴大家如何通過(guò)token驗(yàn)證。

　　譬如：站長(zhǎng)幫手網(wǎng)的微信接口頁(yè)面是http://wx.linkhelper.cn 默認(rèn)頁(yè)面是default.asp，我們只需要把default.asp的代碼改為：

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

　　然后再在官方提交下保存，提示“驗(yàn)證token成功”。到此為止，第一步我們完成了接口的申請(qǐng)。

　　上面給大家講了如何申請(qǐng)微信公眾平臺(tái)自定義接口，這篇文章講通過(guò)實(shí)例，為大家講述如何實(shí)現(xiàn)Hello World的一個(gè)簡(jiǎn)單的自定義回復(fù)。微信官方不提供ASP代碼實(shí)例。

　　微信官方提供的PHP代碼示例，$postStr = $GLOBALS["HTTP_RAW_POST_DATA"];$postObj = simplexml_load_string($postStr, 'SimpleXMLElement', LIBXML_NOCDATA);通過(guò)該代碼可以獲知微信平臺(tái)提交過(guò)來(lái)的信息是一個(gè)XML對(duì)象。對(duì)應(yīng)的ASP代碼的實(shí)現(xiàn)是：

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

　　該代碼可以獲取到提交過(guò)來(lái)的用戶(hù)。其他的接收者，微信內(nèi)容都可以該方法獲取到。

　　這里交大家一個(gè)調(diào)試技巧，因?yàn)槲⑿沤涌诖a不好調(diào)試，我們可以通過(guò)寫(xiě)文件的方式，把我們代碼獲取到的內(nèi)容寫(xiě)入一個(gè)文件，以調(diào)試代碼是否正確。代碼如下：

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

　　最后我們重新組合，并生成對(duì)應(yīng)的XML字符串，反饋給微信公眾平臺(tái)，用戶(hù)就能接受到自定義回復(fù)內(nèi)容了。相關(guān)代碼如下：

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

　　另外請(qǐng)大家注意，ASP文件需要以UTF-8的格式保存，包括頁(yè)面編碼也要用UTF-8的格式，否則有可能自定義回復(fù)出現(xiàn)亂碼。

　　至此，我們就完成了ASP微信公眾平臺(tái)自定義接口的一個(gè)簡(jiǎn)單的自定義回復(fù)。如果對(duì)源碼有興趣的，請(qǐng)加站長(zhǎng)幫手網(wǎng)官方微信賬號(hào)linkhelper，發(fā)送“源碼”或者“例子”獲取下載地址。

將以下代碼保存為weixin.asp放到網(wǎng)站根目錄下即可：

<%@Language="VBScript" CodePage="65001"%>
<%
'**************注意，以下兩行代碼是為了通過(guò)微信接口驗(yàn)證的。驗(yàn)證前，請(qǐng)把注釋?zhuān)瑑蓚€(gè)單引號(hào)去掉。驗(yàn)證通過(guò)后，把兩行代碼刪除或者注釋掉。**************
'response.write request("echostr")
'response.end
'**********注意結(jié)束*************
%>
<%
set   xml_dom   =   Server.CreateObject("MSXML2.DOMDocument")    
xml_dom.load request
'strxml=xml_dom.xml

FromUserName=xml_dom.getelementsbytagname("FromUserName").item(0).text '發(fā)送者微信賬號(hào)
ToUserName=xml_dom.getelementsbytagname("ToUserName").item(0).text '接收者微信賬號(hào)。即我們的公眾平臺(tái)賬號(hào)。
content=xml_dom.getelementsbytagname("Content").item(0).text '微信內(nèi)容
'**************以下代碼為我們組織一個(gè)XML輸出，反饋給微信借口
strsend="Hello World" '定義發(fā)送內(nèi)容。
strresponse="<xml>"
strresponse=strresponse&"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>"   'tousername是指接受的微信賬號(hào)。即前面我們獲取到的發(fā)送者賬號(hào)
strresponse=strresponse&"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" 'FromUserName是發(fā)送者賬號(hào)，即我們的工種平臺(tái)賬號(hào)。
strresponse=strresponse&"<CreateTime>"&now&"</CreateTime>"  '時(shí)間。
strresponse=strresponse&"<MsgType><![CDATA[text]]></MsgType>"  '發(fā)送類(lèi)型。text是文本型。具體可以參考微信幫助手冊(cè)
strresponse=strresponse&"<Content><![CDATA["&strsend&"]]></Content>" '發(fā)送內(nèi)容
strresponse=strresponse&"<FuncFlag>0<FuncFlag>"
strresponse=strresponse&"</xml>"
response.write strresponse
'*************輸出結(jié)束*******************

'*************注意，以下代碼只是為了調(diào)試作用的，可以刪除*********************
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
'****************注意結(jié)束************************
%>