ASP如何操作微信公共平台接口

楼主 Cgh2017 于 2014-04-08 14:12:22
ASP如何操作微信公共平台接口
[P][FACE=宋体][SIZE=12px]<%@Language="VBScript" CodePage="65001"%>[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]<%[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]'**********************************************[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]'注意事项[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]'ASP文件需要以UTF-8的格式保存,否则乱码.[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]'以下两行代码是为了通过微信接口验证的。[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]'response.write request("echostr")[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]'response.end[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]'**********************************************[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]dim signature        '微信加密签名[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]dim timestamp        '时间戳[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]dim nonce                '随机数[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]'dim echostr                '随机字符串[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]dim Token[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]dim signaturetmp[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]token="ldwz"'您在后台添写的 token[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]signature = Request("signature")[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]nonce = Request("nonce")[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]timestamp = Request("timestamp")[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]'**********************************************[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]dim ToUserName        '开发者微信号[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]dim FromUserName'发送方帐号（一个OpenID）[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]dim CreateTime        '消息创建时间（整型）[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]dim MsgType                'text[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]dim Content                '文本消息内容[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]set xml_dom = Server.CreateObject("MSXML2.DOMDocument")'此处根据您的实际服务器情况改写[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]xml_dom.load request[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]FromUserName=xml_dom.getelementsbytagname("FromUserName").item(0).text '发送者微信账号[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]ToUserName=xml_dom.getelementsbytagname("ToUserName").item(0).text '接收者微信账号。即我们的公众平台账号。[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]MsgType=xml_dom.getelementsbytagname("MsgType").item(0).text[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]if MsgType="text" then[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]Content=xml_dom.getelementsbytagname("Content").item(0).text[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]end if[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]'dim  mingling[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]'mingling=replace(content,chr(13),"")[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]'mingling=trim(replace(mingling,chr(10),""))[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]if (MsgType="event") then[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]       strEventType=xml_dom.getelementsbytagname("Event").item(0).text '微信事件[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]       if strEventType="subscribe" then '表示订阅微信公众平台[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]               strsend=gz(FromUserName,ToUserName)[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]       ElseIf strEventType="unsubscribe" Then'取消关[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]               strsend=gz(FromUserName,ToUserName)[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]       end if[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]Else[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]'strsend=text(fromusername,tousername,Content)[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]strsend=""[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]end if[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]response.write strsend[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]set xml_dom=Nothing[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]'*************以下代码只是为了调试作用***********[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]'filepath=server.mappath(".")&"\wx.txt"[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]'Set fso = Server.CreateObject("Scripting.FileSystemObject")[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]'set fopen=fso.OpenTextFile(filepath, 8 ,true)[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]'fopen.writeline(strsend)[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]'set fso=nothing[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]'set fopen=Nothing[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]'****************调试结束************************[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]
[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]function gz(fromusername,tousername)[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]gz="<xml>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<CreateTime>"&now&"</CreateTime>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<MsgType>news</MsgType>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<ArticleCount>5</ArticleCount>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<Articles>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<item>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<Title>石家庄龙脉网络-石家庄网站建设</Title>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<Description>龙脉网络是专业从事石家庄网站建设、石家庄网站制作、石家庄网站优化、石家庄网站推广权威石家庄网络公司！打造石家庄网站建设、石家庄网络公司第一品牌！咨询：0311-80685531。" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"</Description>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<PicUrl><![CDATA[http://www.0635che.com/images/wxlogo.jpg]]></PicUrl>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<Url><![CDATA[http://www.0635che.com/]]></Url>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"</item>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<item>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<Title><![CDATA[查看二手车信息]]></Title>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<Discription><![CDATA[全部二手车信息]]></Discription>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<PicUrl><![CDATA[http://www.0635che.com/images/wxche.jpg]]></PicUrl>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<Url><![CDATA[http://www.0635che.com/ershouche]]></Url>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"</item>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<item>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<Title><![CDATA[二手车过户手续]]></Title>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<Discription><![CDATA[二手车过户过户手续]]></Discription>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<PicUrl><![CDATA[http://www.0635che.com/images/wxgh.jpg]]></PicUrl>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<Url><![CDATA[http://www.0635che.com/guohu]]></Url>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"</item>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<item>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<Title><![CDATA[什么是不赚差价]]></Title>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<Discription><![CDATA[电子商务]]></Discription>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<PicUrl><![CDATA[http://www.0635che.com/images/wxxw.jpg]]></PicUrl>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<Url><![CDATA[http://www.0635che.com/service]]></Url>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"</item>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<item>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<Title><![CDATA[联系我们]]></Title>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<Discription><![CDATA[联系我们]]></Discription>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<PicUrl><![CDATA[http://www.0635che.com/images/wxlx.jpg]]></PicUrl>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<Url><![CDATA[http://www.0635che.com/]]></Url>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"</item>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"</Articles>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<FuncFlag>1</FuncFlag>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"</xml> "[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]end function[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]
[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]function text(fromusername,tousername,returnstr)[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]text="<xml>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<CreateTime>"&now&"</CreateTime>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<MsgType><![CDATA[text]]></MsgType>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<Content><![CDATA[" & returnstr & "]]></Content>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"<FuncFlag>0<FuncFlag>" &_[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]"</xml>"[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]end function[/SIZE][/FACE][/P][P][FACE=宋体][SIZE=12px]%>[/SIZE][/FACE][/P]
回复
1 　

电脑版 Page created in 0.0938 seconds with 4 queries.