关于asp网站微信公共平台接口的验证实现代码
当前位置:知识管理交流
→『 技术文档交流 』
微信公共平台只给出了PHP网站的接口示例代码,对asp网站没有做接口介绍。最近正好给一个asp网站的客户做微信接口,故此在网上查询了相关资料并分享给大家! <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% '********************************************** '注意事项 'ASP文件需要以UTF-8的格式保存,否则乱码. ' '********************************************** '以下两行代码是为了通过微信接口验证的。 'response.write request("echostr") 'response.end dim signature '微信加密签名 dim timestamp '时间戳 dim nonce '随机数 'dim echostr '随机字符串 dim Token dim signaturetmp token="aaabbb"'您在后台添写的 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 dim mingling,mlid mingling=replace(content,chr(13),"") mingling=trim(replace(mingling,chr(10),"")) If IsNumeric(mingling) Then'如果是数字 '这里添加您的 回复代码 if mingling=0 Then returnstr="回复数字为0" elseif mingling=1 Then returnstr="回复数字为1" elseif mingling=2 Then returnstr="回复数字为2" elseif mingling=3 Then returnstr="回复数字为3" end if else'非数字 if mingling="wowomi" then returnstr="回复命令为:"&VBCrLf &_ "回复1. 网站建设"&VBCrLf &_ "回复2. 网页设计"&VBCrLf&_ "回复3. 平面设计"&VBCrLf &_ "回复4. 购买源码"&VBCrLf &_ "回复5. 淘宝店铺装修"&VBCrLf end if end if if len(returnstr)=0 then returnstr="欢迎您加入<沃奇网络>大家庭"&VBCrLf &_ "在这个微信平台,您可以随时定制想要的网站,包括:"&VBCrLf &_ "回复1. 网站建设"&VBCrLf &_ "回复2. 网页设计"&VBCrLf&_ "回复3. 平面设计"&VBCrLf &_ "回复4. 购买源码"&VBCrLf &_ "回复5. 淘宝店铺装修"&VBCrLf end if strresponse="<xml>" &_ "<ToUserName><![CDATA[ojiFDtynmf5t443si3XQBpB19zqg]]></ToUserName>" &_ "<FromUserName><![CDATA[gh_b0dbeb087b38]]></FromUserName>" &_ "<CreateTime>"&now&"</CreateTime>" &_ "<MsgType><![CDATA[text]]></MsgType>" &_ "<Content><![CDATA[" & returnstr & "]]></Content>" &_ "<FuncFlag>0<FuncFlag>" &_ "</xml>" response.write strresponse %> 该文章在 2014/12/3 0:21:58 编辑过 |
关键字查询
相关文章
正在查询... |