澳门银河官网-新澳门银河官网官方网站!

新澳门银河官网

新澳门银河官网


CHIFENG DINGHAO ZHIYE JISHU XUEXIAO

全国咨询热线
0476-2892015
新澳门银河官网,赤峰计算机学校!
当前位置:首页 > 教育教学> 实战课

ASP 微信公共平台接口实现代码

人气:   发表时间:2017-4-12 10:08:01   【

Bluedidea看到了ASP微信公众平台接口的实现代码,需要的朋友可以参考下一个

TR

复制代码如下:

TR <%@ language='vbscript'codepage='65001'>
<%
“**********************************************
“注意事项
'ASP文件需要以UTF-8格式保存,否则会出现乱码 '以下两行代码用于通过微信界面进行验证。 TR 'response.write request('echostr')

到Response.End “**********************************************
昏暗的签名'微信加密签名
昏暗的时间戳'时间戳
昏暗的nonce'随机数
'dim echostr'随机字符串
昏暗的令牌
昏暗的签名灯 令牌='ldwz'是您在后台添加的令牌

TR

签名=请求('签名')
Nonce=请求('nonce')
时间戳=请求('时间戳')
“**********************************************
Dim ToUserName'开发者微信号
Dim FromUserName'发件人帐户(OpenID)
Dim CreateTime'消息创建时间(整数)
Dim MsgType'文字
Dim Content'短信内容

设置xml_dom=Server.CreateObject('MSXML2.DOMDocument')'这是根据您的实际服务器情况重写的。
Xml_dom.load请求
FromUserName=xml_dom.getelementsbytagname('FromUserName')。item(0).text'发件人的微信账号
ToUserName=xml_dom.getelementsbytagname('ToUserName')。item(0).text'接收方微信账号。那是我们的公共平台帐户。 TR MSGTYPE=xml_dom.getelementsbytagname( 'MSGTYPE')。项(0)的.text
如果MsgType='text'则为
含量=xml_dom.getelementsbytagname( '内容')。项(0)的.text
结束如果
'昏暗的混合 '交融=取代(内容,CHR(13),'')
'交融=修剪(替换(交融,CHR(10),''))
如果(MsgType='event')那么strEventType=xml_dom.getelementsbytagname('Event')。item(0).text'WeChat event
如果strEventType='subscribe'则'表示订阅微信公众平台
Strsend=GZ(FromUserName,ToUserName)
ElseIf strEventType='unsubscribe'然后'取消' Strsend=GZ(FromUserName,ToUserName)
结束如果
否则
“strsend=文本(fromusername,tousername,内容)
Strsend=''
结束如果
Response.write strsend
设置xml_dom=Nothing
'*************以下代码仅用于调试目的***********
'文件路径=使用Server.Mappath('。 ')及' \ wx.txt'
'set fso=Server.CreateObject('Scripting.FileSystemObject')
'set fopen=fso.OpenTextFile(filepath,8,true)
“fopen.writeline(strsend)
'设fso=什么都没有 'set fopen=什么都没有 '****************调试结束**************************

函数gz(fromusername,tousername)
Gz=''& _
''& _
''& _
''& now&''& _
'新闻'& _
'5'& _
''& _
''& _
“二手车市场没有任何影响”& _
'聊城二手车是二手车与二手车在线和实体相结合,聊城二手车信息提供聊城及周边城市二手车交易信息,您可以免费查看和发布二手车信息,二手车汽车相关业务。 '& _
''& _
''& _
''& _
''& _
''& _
'<![cdata [查看二手车信息]]>< /![cdata [查看二手车信息]]>' &安培; _
''& _
''& _
''& _
''& _
''& _
'<![cdata [二手车转帐程序]]>< /![cdata [二手车转帐程序]]>' &安培; _
''& _
''& _
''& _
''& _
''& _
'<![cdata [什么没有区别]]>< /![cdata [什么没有区别]]>' &安培; _
''& _
''& _
''& _
''& _
''& _
'<![cdata [contact us]]>< /![cdata [contact us]]>' &安培; _
''& _
''& _
''& _
''& _
''& _
'1'& _
''
结束功能

功能文本(fromusername,tousername,returnstr)
Text=''& _
''& _
''& _
''& now&''& _
''& _
''& _
'0'& _
''
结束功能
%GT;

TR

澳门银河官网版权声明书:
本网站的所有内容版权归澳门银河官网所有,不允许复制及其他任何形式使用。
对未经许可擅自使用者,本校保留追究其法律责任的权利。

在线客服

招生咨询
点击这里给我发消息
其他咨询
点击这里给我发消息