asp微信公众号自动回复开发案列之新闻查询机器人

<%
'**********************************************
'ASP文件需要以UTF-8的格式保存,否则乱码.
'**********************************************'容错处理
On Error Resume Next'快速个性化设置
title="某某微信号:新闻查询机器人"        '查询标题
tiaoshu="20"                 '显示条数建议20'查询说明：输入后台设置的条件查询+后台设置的说明
fawoo="查询帮助:"&vbcrlf
fawoo=fawoo&"发: @关键词 查看 [指定关键词的新闻] "&vbcrlf
fawoo=fawoo&"例: @足球 查看 [足球 新闻] "&vbcrlf'获得echostrs用于接口绑定
echostrs = request("echostr")
if len(echostrs)>0 then
response.write echostrs
response.end()
end if'得到服务器时间
times=FormatDateTime(Now(),0)                  '服务器时间
set xml_dom = Server.CreateObject("MSXML2.DOMDocument")      '此处根据您的实际版本
xml_dom.load requestFromUserName=xml_dom.getelementsbytagname("FromUserName").item(0).text   '获得发送者微信唯一识别号
ToUserName=xml_dom.getelementsbytagname("ToUserName").item(0).text   '获得接收者微信唯一识别号
msgtype=xml_dom.getelementsbytagname("MsgType").item(0).text     '获得微信的信息类型msgtype=LCase(msgtype)      '转小写，防止大写小写不匹配'如果不是MSXML那就接受POST,用于其他第三方接口POST给我们的数据
if msgtype="" then
msgtype="text"
FromUserName=request("FromUserName")
ToUserName=request("ToUserName")
end ifSelect Case msgtypeCase "text"
'
msgtext=xml_dom.getelementsbytagname("Content").item(0).text     '获得微信的信息内容
msgidid=xml_dom.getelementsbytagname("MsgId").item(0).text       '获得微信的信息单条微信唯一IDif msgtext="" then
msgidid=""
msgtext=request("Content")
end ifmsgtext=replace(msgtext,"@","")tite="["&msgtext&"]最新新闻"
urls="http://news.baidu.com/ns?word="&msgtext&"&ie=gb2312&cl=2&rn="&tiaoshu&"&ct=0&tn=newsrss&class=0"Content=tite&""&vbcrlf&getnews(urls,tousername,tite)Content=Content&vbcrlf&"检索结果来源:news.baidu.com"Case "voice"
Content="你的声音很甜美，只是客服美眉暂时无法识别你的【语音】信息！"&vbcrlf&fawoo       '获得语音回复
Case "image"
Content="这是传说中的艳照吧，客服美眉我可是女的，不感兴趣哦！"&vbcrlf&fawoo       '获得图片回复
Case "event"strEventType=xml_dom.getelementsbytagname("Event").item(0).text        '微信事件strEventType=LCase(strEventType)                 '转小写，防止大写小写不匹配if strEventType="subscribe" then                   '关注微信Content="非常感谢你【关注】"&title&"微信自动回复查询机器人！"&vbcrlf&fawooElseIf strEventType="unsubscribe" Then                    '取消关注Content="呜呜呜，干嘛取消【关注】我们！难道我不漂亮么？"&vbcrlf&fawooElseIf strEventType="click" Then                 '鼠标点击Eventvalue=xml_dom.getelementsbytagname("EventKey").item(0).text       '微信事件Content="鼠标点击事件【“"&Eventvalue&"”】？"&vbcrlf&fawooend if
Case "video"
Content="莫非这就是传说中的A片?姐姐我没空看哦！有话直说吧! "&vbcrlf&fawoo        '获得视频回复
Case "music"
Content="哇，很好听的音乐！不过姐很忙没空听，有话直说吧!"&vbcrlf&fawoo     '获得音乐回复
Case "news"
Content="两个凡是：凡是网址都是病毒，凡是新闻我都不会去关注！"&vbcrlf&fawoo       '获得新闻回复
Case "link"
Content="两个凡是：凡是网址都是病毒，凡是网址我都不会去打开！"&vbcrlf&fawoo       '获得链接回复
Case "location"
Content="哎呀喂，别告诉我你的位置哇！我又不会来敲门！"&vbcrlf&fawoo       '获得定位回复
Case Else
Content="客服美眉暂时无法识别你的【"&msgtype&"】信息！"&vbcrlf&fawoo '获得其他格式信息回复
End Selectif len(Content)>1 then
response.write text(fromusername,tousername,Content)
else
response.write text(fromusername,tousername,fawoo)
end if
set xml_dom=Nothing'远程得到百度新闻内容
function getnews(urls,tousername,texts)
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", urls, False
xml.Send
Set xmlDom = server.createObject("microsoft.xmldom")
xmlDom.async=False
xmlDom.ValidateOnParse=false
xmlDom.load(xml.responseXML)
if xmlDom.ReadyState>2 Then
set oItem=xmlDom.getElementsByTagName("item")maxlen=oItem.length-1if maxlen>tiaoshu thenmaxlen=tiaoshuelsemaxlen=maxlenend if
for i=0 to maxlen
word=oItem(i).childNodes(0).text
news=oItem(i).childNodes.item(0).text
Link=oItem(i).childNodes.item(1).text
Naws=oItem(i).childNodes.item(3).text
newstext=newstext&vbcrlf&"【新闻"&i+1&"】"&vbcrlf
newstext=newstext&"<a href="""&link&""">"&news&"</a>"&vbcrlf  'link
newstext=newstext&"【时间:】"&vbcrlf
'strNow = Year(Naws)&"-"&Month(Naws)&"-"&Day(Naws)
'strNow = strNow&" "&Hour(Naws)&":"&Minute(Naws)&":"&Second(Naws)
newstext=newstext&"["&Naws&"]"&vbcrlf
next
end if
getnews=newstext
end function'文本回复模版
function text(fromusername,tousername,returnstr)
text="<xml>" &_
"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
"<CreateTime>"&now&"</CreateTime>" &_
"<MsgType><![CDATA[text]]></MsgType>" &_
"<Content><![CDATA[" & returnstr & "]]></Content>" &_
"<FuncFlag>0<FuncFlag>" &_
"</xml>"
end function'使用说明:
'
'这是asp微信公众号自动回复开发案列之新闻查询机器人
'可以对任意输入都提示内容及发送使用说明
'比如发送图片，语音，定位信息，文字信息等都会回复信息。
'是各网页爱好者初学微信公众号接口开发的最佳案列
'是微信公众号最实用的一个组件。
'
'主功能：发送@关键词查询对应关键词的新闻
'比如输入：@足球 就会检索百度的海量新闻数据。
'
'
'第一步：
'
'接口文件名可以任意修改（默认是weixinnews.asp）
'代码上传到asp空间(需xmlhttp支持)，得到的新的接口地址就是：
'http://你的域名/目录地址/新文件名.asp
'
'
'第二步：配置微信后台
'
'微信公众号平台-->开发者中心-->服务器配置(注意要启用他)
'URL(服务器地址)： http://你的域名/目录地址/新文件名.asp (换为你的接口地址)
'Token(令牌)： 随意填写
'EncodingAESKey(消息加解密密钥) ：随机
'消息加解密方式：明文模式
'
'第三步：你就可以查询测试了
%>

'使用说明:
'
'这是asp微信公众号自动回复开发案列之新闻查询机器人
'可以对任意输入都提示内容及发送使用说明
'比如发送图片，语音，定位信息，文字信息等都会回复信息。
'是各网页爱好者初学微信公众号接口开发的最佳案列
'是微信公众号最实用的一个组件。
'
'主功能：发送@关键词查询对应关键词的新闻
'比如输入：@足球就会检索百度的海量新闻数据。
'
'
'第一步：
'
'接口文件名可以任意修改（默认是weixinnews.asp）
'代码上传到asp空间(需xmlhttp支持)，得到的新的接口地址就是：
'http://你的域名/目录地址/新文件名.asp
'
'
'第二步：配置微信后台
'
'微信公众号平台-->开发者中心-->服务器配置(注意要启用他)
'URL(服务器地址)： http://你的域名/目录地址/新文件名.asp (换为你的接口地址)
'Token(令牌)：随意填写
'EncodingAESKey(消息加解密密钥) ：随机
'消息加解密方式：明文模式
'
'第三步：你就可以查询测试了

asp微信公众号自动回复开发案列之新闻查询机器人相关推荐

微信 SHA1 签名_微信公众号自动回复功能开发
微信公众号自动回复功能开发本篇主要讲解微信公众号自动回复功能开发,让我们自己去托管公众号回复的功能,这样可以更加灵活的根据公众号收到的信息来制定特定的回复信息,一起来了解吧! 1.注册公众号如果 ...
java微信公众号自动回复文字加图片
java微信公众号自动回复文字加图片开发流程详细流程,附上代码: 第一步服务器(url)接口配置服务器(url)接口配置,此步骤就是微信授权接口的过程,如果域名都不改变,微信只会校验一次.此请求 ...
微信公众号自动回复 - 自定义设置
微信公众号自动回复 - 自定义设置 1.加超链接 <a href='http://www.qq.com'>自定义文字</a> 2.加点击自动回复关键字 <a href=' ...
关于微信公众号自动回复文本、图片以及图文
1.微信公众号自动回复文本: 首先我们应该增加reply_id以及内容(content)到数据表rh_mp_reply_text,然后根据reply_id查找表rh_mp_rule的信息关键字.然后我 ...
怎么设置微信公众号自动回复内容显示用户昵称
对于微信公众号自动回复内容显示用户昵称,第三方平台微号帮提供了粉丝对话定时推送功能实现,支持公众号设置自动回复消息显示用户昵称,除了可以显示对应用户的昵称,还可以显示用户的头像.openID;用户向公 ...
Flask结合werobot实现微信公众号自动回复
Flask结合werobot实现微信公众号自动回复下载依赖包 pip install werobot pip install Flask 建立项目文件夹<flask_project> 建 ...
微信公众号自动回复功能
微信公众号自动回复功能分为两种,一种自主开发,一种利用公众号自动开发,两种不可兼容,开发状态的自动回复功能,将导致编辑状态下的菜单,自动回复失效. WeixinchatController代码: 这 ...
苹果cms对接微信公众号自动回复的样式设置
此教程针对已经成功对接微信公众号的网站,苹果cms后台对接微信公众号自动回复样式的设置详解,如果你还没有成功对接微信公众号请参考此教程进行对接:https://www.mytheme.cn/artic ...
微信公众号自动回复消息如何设置带链接的文字
关于微信公众号实现自动回复消息设置带链接的文字,第三方工具微号帮平台提供了功能粉丝对话定时推送实现,可以设置微信公众号的自动回复消息带链接文字,还可以设置纯文字.图片.文章.小程序.h5小游戏.直播. ...

asp微信公众号自动回复开发案列之新闻查询机器人

asp微信公众号自动回复开发案列之新闻查询机器人相关推荐

最新文章

热门文章