日韩欧美人妻无码精品白浆,www.大香蕉久久网,狠狠的日狠狠的操,日本好好热在线观看

　　微信最近開放第三方API接口，申請地址：http://mp.weixin.qq.com/

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

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

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

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

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

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

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

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

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

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

　　微信官方提供的PHP代碼示例，$postStr = $GLOBALS["HTTP_RAW_POST_DATA"];$postObj = simplexml_load_string($postStr, 'SimpleXMLElement', LIBXML_NOCDATA);通過該代碼可以獲知微信平臺(tái)提交過來的信息是一個(gè)XML對象。對應(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

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

　　這里交大家一個(gè)調(diào)試技巧，因?yàn)槲⑿沤涌诖a不好調(diào)試，我們可以通過寫文件的方式，把我們代碼獲取到的內(nèi)容寫入一個(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

　　最后我們重新組合，并生成對應(yīng)的XML字符串，反饋給微信公眾平臺(tái)，用戶就能接受到自定義回復(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

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

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

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

<%@Language="VBScript" CodePage="65001"%>
<%
'**************注意，以下兩行代碼是為了通過微信接口驗(yàn)證的。驗(yàn)證前，請把注釋，兩個(gè)單引號去掉。驗(yàn)證通過后，把兩行代碼刪除或者注釋掉。**************
'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ā)送者微信賬號
ToUserName=xml_dom.getelementsbytagname("ToUserName").item(0).text '接收者微信賬號。即我們的公眾平臺(tái)賬號。
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是指接受的微信賬號。即前面我們獲取到的發(fā)送者賬號
strresponse=strresponse&"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" 'FromUserName是發(fā)送者賬號，即我們的工種平臺(tái)賬號。
strresponse=strresponse&"<CreateTime>"&now&"</CreateTime>"  '時(shí)間。
strresponse=strresponse&"<MsgType><![CDATA[text]]></MsgType>"  '發(fā)送類型。text是文本型。具體可以參考微信幫助手冊
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é)束************************
%>