基于asp的微信公众平台接口 开发教程

<%@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 '****************注意结束************************ %>