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

最新推荐文章于 2021-07-22 16:23:44 发布

WHQL

最新推荐文章于 2021-07-22 16:23:44 发布

阅读量2k

点赞数

分类专栏： asp

本文链接：https://blog.csdn.net/sinat_36503088/article/details/79345060

版权

asp 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

先说说我走的弯路：我根据开发者文档配置，在在线测试工具中测试均通过。但是手机发消息到公众号却出现以下错误

1 选择开发者工具

2 选择公众平台测试账号

对于个人号正确配置
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 %>

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

%>