关闭

关于运行微信的公众平台的消息接口,收不到消息的求助

49人阅读 评论(0) 收藏 举报
各位朋友,有人使用过微信的公众平台的消息接口吗?我使用的是asp版本的,但是就是收不到微信发过来的信息,这可能是什么原因,大家有知道的吗?

以下是我的代码。希望得到大家的帮助,谢谢!


<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'转换时间
Function ToUnixTime(strTime, intTimeZone)
If IsEmpty(strTime) or Not IsDate(strTime) Then strTime = Now
If IsEmpty(intTimeZone) or Not isNumeric(intTimeZone) Then intTimeZone = 0
ToUnixTime = DateAdd("h",-intTimeZone,strTime)
ToUnixTime = DateDiff("s","1970-1-1 0:0:0", ToUnixTime)
End Function
   set xml_dom = Server.CreateObject("MSXML2.DOMDocument")
   xml_dom.load request   
   ToUserName=xml_dom.getelementsbytagname("ToUserName").item(0).text '微信公众号
   FromUserName=xml_dom.getelementsbytagname("FromUserName").item(0).text '用户微信
   CreateTime=xml_dom.getelementsbytagname("CreateTime").item(0).text
   MsgType=xml_dom.getelementsbytagname("MsgType").item(0).text
   content=xml_dom.getelementsbytagname("Content").item(0).text
   MsgId=xml_dom.getelementsbytagname("MsgId").item(0).text    
   temp=vbcrlf &vbcrlf &vbcrlf &"####以下内容为接收#####"&vbcrlf   
   temp=temp&"<xml>"&vbcrlf
   temp=temp&"<ToUserName><![CDATA["&ToUserName&"]]></ToUserName>"&vbcrlf   
   temp=temp&"<FromUserName><![CDATA["&FromUserName&"]]></FromUserName>"&vbcrlf 
   temp=temp&"<CreateTime>"&CreateTime&"</CreateTime>"&vbcrlf 
   temp=temp&"<MsgType><![CDATA[text]]></MsgType>"&vbcrlf
   temp=temp&"<Content><![CDATA["&content&"]]></Content>"&vbcrlf 
   temp=temp&"<MsgId>"&MsgId&"</MsgId>"&vbcrlf
   temp=temp&"</xml>"&vbcrlf&vbcrlf
   temp=temp&"####以下内容为配置接口返回内容#####"&vbcrlf   
   strsend="你好!"&content
   strresponse="<xml>"&vbcrlf
   strresponse=strresponse&"<ToUserName><![CDATA["&FromUserName&"]]></ToUserName>"&vbcrlf 
   strresponse=strresponse&"<FromUserName><![CDATA["&ToUserName&"]]></FromUserName>"&vbcrlf
   strresponse=strresponse&"<CreateTime>"&ToUnixTime(now,+8)&"</CreateTime>"&vbcrlf
   strresponse=strresponse&"<MsgType><![CDATA[text]]></MsgType>"&vbcrlf
   strresponse=strresponse&"<Content><![CDATA["&strsend&"]]></Content>"&vbcrlf
   strresponse=strresponse&"<FuncFlag>0</FuncFlag>"&vbcrlf
   strresponse=strresponse&"</xml>"
   response.write strresponse
 //以下内容为调试    
   filepath=server.mappath(".")&"\logo.txt"
   Set fso = Server.CreateObject("scripting.FileSystemObject")
   set fopen=fso.OpenTextFile(filepath, 8 ,true)
   fopen.writeline(temp&strresponse)
   set fso=nothing
   set fopen=Nothing
%>


用这段代码的时候提示
缺少对象: 'xml_dom.getelementsbytagname(...).item(...)'
怎么解决的啊!

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:825次
    • 积分:132
    • 等级:
    • 排名:千里之外
    • 原创:13篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章存档