<%@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 '接收者微信账号。即我们的公众平台账号。
strMsgType=xml_dom.getelementsbytagname("MsgType").item(0).text
if (strMsgType="event") then
strEventType=xml_dom.getelementsbytagname("Event").item(0).text '微信事件
strsend="Hello World"
if strEventType="subscribe" then '表示订阅微信公众平台
strsend="欢迎关注" '定义发送内容。
ElseIf strEventType="unsubscribe" Then
strsend="取消关注" '定义发送内容。
end if
else
content=xml_dom.getelementsbytagname("Content").item(0).text '微信内容
strsend="测试回复"
end if
'**************以下代码为我们组织一个XML输出,反馈给微信接口
strresponse="<xml>"
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余1页未读,立即下载