用asp做的微信公众号回复接口

这是基于maxcms的微信接口回复,里面有部分是查询maxcms的access数据库,这里可以修改成自己的

<%@Language="VBScript" CodePage="65001"%>
<%
'更多网站知识可访问:www.yiecho.com
'注意事项
'ASP文件需要以UTF-8的格式保存,否则乱码.
'
'**********************************************
'以下两行代码是为了通过微信接口验证的。
'response.write request("echostr")
'response.end

dim signature   '微信加密签名
dim timestamp   '时间戳
dim nonce       '随机数
'dim echostr        '随机字符串
dim Token
dim signaturetmp
token="yiecho"'您在后台添写的 token

signature = Request("signature")
nonce = Request("nonce")
timestamp = Request("timestamp")

dim ToUserName  '开发者微信号
dim FromUserName'发送方帐号(一个OpenID)
dim CreateTime  '消息创建时间(整型)
dim MsgType     'text
dim Content     '文本消息内容
dim MsgId       '消息id,64位整型




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
MsgType=xml_dom.getelementsbytagname("MsgType").item(0).text
if MsgType="text" then
Content=xml_dom.getelementsbytagname("Content").item(0).text
end if
set xml_dom=Nothing


select case MsgType
    case "text"  '文字类型
        dim  mingling,mlid
        mingling=replace(content,chr(13),"")
        mingling=trim(replace(mingling,chr(10),""))
        select case mingling
            case "您好" 
                returnstr="新一代无敌美少女小月很高兴为你服务(′ε` )"
                strresponse="<xml>" &_
                "<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
                "<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
                "<CreateTime>"&now&"</CreateTime>" &_
                "<MsgType><![CDATA[text]]></MsgType>" &_
                "<Content><![CDATA[" & returnstr & "]]></Content>" &_
                "<FuncFlag>0<FuncFlag>" &_
                "</xml>"
                response.write strresponse
            case "你好"
                returnstr="天才美少女小月很高兴为你服务(′ε` )"
                strresponse="<xml>" &_
                "<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
                "<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
                "<CreateTime>"&now&"</CreateTime>" &_
                "<MsgType><![CDATA[text]]></MsgType>" &_
                "<Content><![CDATA[" & returnstr & "]]></Content>" &_
                "<FuncFlag>0<FuncFlag>" &_
                "</xml>"
                response.write strresponse
            case "hello"
                returnstr="全宇宙美少女小月很高兴为你服务(′ε` )"
                strresponse="<xml>" &_
                "<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
                "<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
                "<CreateTime>"&now&"</CreateTime>" &_
                "<MsgType><![CDATA[text]]></MsgType>" &_
                "<Content><![CDATA[" & returnstr & "]]></Content>" &_
                "<FuncFlag>0<FuncFlag>" &_
                "</xml>"
                response.write strresponse
            case else
               ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../inc/datas.asp")
                Set Conn = Server.CreateObject("ADODB.Connection")
                Conn.open ConnStr
                Sql="select top 7 m_id,m_name,m_pic,m_des from m_data  where (m_name like '%"&mingling&"%' OR m_actor like '%"&mingling&"%' OR  m_director like '%"&mingling&"%')"
                set Rs=Conn.Execute(Sql)
                if Rs.EOF=true then
                    Conn.Close
                    Set Conn = Nothing
                    returnstr="亲,小月帮你找了半天没有找到关键字“"&mingling&"”的文章哦。"&vbLf&"换一个关键字试试…或者打开http://www.yiecho.com找找。"
                    strresponse="<xml>" &_
                    "<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
                    "<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
                    "<CreateTime>"&now&"</CreateTime>" &_
                    "<MsgType><![CDATA[text]]></MsgType>" &_
                    "<Content><![CDATA[" & returnstr & "]]></Content>" &_
                    "<FuncFlag>0<FuncFlag>" &_
                    "</xml>"
                    response.write strresponse
                else
                    datalist=Rs.GetRows
                    Conn.Close
                    Set Conn = Nothing
                    strresponse="<xml>"&_
                    "<ToUserName><![CDATA["&fromusername&"]]></ToUserName>"&_
                    "<FromUserName><![CDATA["&tousername&"]]></FromUserName>"&_
                    "<CreateTime>"&now&"</CreateTime>"&_
                    "<MsgType><![CDATA[news]]></MsgType>"&_
                    "<ArticleCount>"&uBound(datalist,2)&"</ArticleCount>"&_
                    "<Articles>"
                    For i=0 to uBound(datalist,2)
                    strresponse=strresponse&"<item>"&_
                    "<Title><![CDATA["&datalist(1,i)&"]]></Title>"&_
                    "<Description><![CDATA["&Left(datalist(3,i),200)&"]]></Description>"&_
                    "<PicUrl><![CDATA[http://www.yiecho.com/"&datalist(2,i)&"]]></PicUrl>"&_
                    "<Url><![CDATA[http://www.yiecho.com/mp3/"&datalist(0,i)&".html]]></Url>"&_
                    "</item>"
                    next
                    strresponse=strresponse&"</Articles></xml>"
                    response.write strresponse
                end if
        end select
                
    case "event" '关注
        returnstr="嗨,你好,我是客服小月,谢谢你关注我。希望在你看文章的路上,更好的帮助到你。如果有想看的文章可以直接回复关键字搜索哦,由于我是1号版本,所以还有点笨,希望你们多多担待哦。我们的网址是:http://www.yiecho.com"
        strresponse="<xml>" &_
        "<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
        "<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
        "<CreateTime>"&now&"</CreateTime>" &_
        "<MsgType><![CDATA[text]]></MsgType>" &_
        "<Content><![CDATA[" & returnstr & "]]></Content>" &_
        "<FuncFlag>0<FuncFlag>" &_
        "</xml>"
        response.write strresponse
    case else '其他类型
        returnstr="嗨,你好,我是客服小月,谢谢你关注我。希望在你听小说的路上,更好的帮助到你。如果有想看的文章可以直接回复关键字搜索哦,由于我是1号版本,所以还有点笨,希望你们多多担待哦。我们的网址是:http://www.yiecho.com"
        strresponse="<xml>" &_
        "<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
        "<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
        "<CreateTime>"&now&"</CreateTime>" &_
        "<MsgType><![CDATA[text]]></MsgType>" &_
        "<Content><![CDATA[" & returnstr & "]]></Content>" &_
        "<FuncFlag>0<FuncFlag>" &_
        "</xml>"
        response.write strresponse
end select

%>

用asp做的微信公众号回复接口:等您坐沙发呢!

发表评论

表情
还能输入210个字