基于asp的微信公众号第三方服务器配置

版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/sinat_36503088/article/details/79345060
  先说说我走的弯路:我根据开发者文档配置,在在线测试工具中测试均通过。但是手机发消息到公众号却出现以下错误
对于个人号正确配置
1 选择开发者工具 
2 选择公众平台测试账号 

3 接口配置修改如下
注意:接口配置信息那的 url格式----->>>>http://域名/到文件名。token验证我用的 是最简单的 直接我返回echostr,当用我的代码验证时把
'response.write request.querystring("echost")
'response.end
前面的  '
删除,验证通过后。再还原我的代码。PS:服务器是电脑自带的 iis ,脚本是asp+vbs。关于vbs和asp知识请到w3cschool网站自学。其中会用到xml dom。所以要扩展我的代码必须自学vbs+asp。好了最后祝大家新年快乐,学习进步,早日进入互联网大家庭.如有疑问请留言或私信或QQ515591635.加我q必要红包。其它随意


<%
  'response.Write request.QueryString("echostr")
   'response.End
set xmldoc = Server.CreateObject("Microsoft.XMLDOM")
xmldoc.async=false
xmldoc.load(request)
    set tousername=xmldoc.getElementsByTagName("ToUserName")
    ToUserName=tousername(0).childNodes(0).nodeValue'公众号
     set fromusername=xmldoc.getElementsByTagName("FromUserName")
    FromUserName=fromusername(0).childNodes(0).nodeValue'粉丝号
    set msgtype=xmldoc.getElementsByTagName("MsgType")
    MsgType=msgtype(0).childNodes(0).nodeValue
    set msgtime=xmldoc.getElementsByTagName("CreateTime")
    MsgTime=msgtime(0).childNodes(0).nodeValue
    set content=xmldoc.getElementsByTagName("Content")
    Content=content(0).childNodes(0).nodeValue
       txt=" <xml>"
    txt=txt&" <ToUserName>"
   txt=txt&" <![CDATA["&FromUserName&"]]>"
   txt=txt&"</ToUserName>"
  txt=txt&"<FromUserName>"
    txt=txt&"<![CDATA["&ToUserName&"]]></FromUserName>"
  txt=txt&"<CreateTime>1519239490036</CreateTime>"
   txt=txt&"<MsgType>"
   txt=txt&"<![CDATA[text]]></MsgType>"
     txt=txt&"<Content>"
    txt=txt&"<![CDATA[你好]]></Content>"
txt=txt&"</xml>"
    response.Write(txt)

    Dim fs,f
Set fs=Server.CreateObject("Scripting.FileSystemObject")
     set f=fs.OpenTextFile(server.MapPath("\")&"/test.txt" ,8,true)
    f.WriteLine(ToUserName&"------"&FromUserName&"------"&MsgTime&"--------"&MsgType&"--------"&Content)
    f.Close
set f=nothing
set fs=nothing

%>
 
展开阅读全文

没有更多推荐了,返回首页