asp微信平台接口开发示例

《asp微信平台接口开发示例》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、<%@Language="VBScript"CodePage="65001"%><%'**********************************************'注意事项'ASP文件需要以UTF-8的格式保存,否则乱码.'以下两行代码是为了通过微信接口验证的。'response.writerequest("echostr")'response.end'**********************************************dimsignature'微信加密签名dimtimestamp'时间戳dimnonce'随机数'dimechostr'随机字符串di

2、mTokendimsignaturetmptoken="tokenok"'您在后台添写的tokensignature=Request("signature")nonce=Request("nonce")timestamp=Request("timestamp")'**********************************************dimToUserName'开发者微信号dimFromUserName'发送方帐号（一个OpenID）dimCreateTime'消息创建时间（整型）dimMsgType'textdimContent'文本消息内容setxml_dom=Se

3、rver.CreateObject("MSXML2.DOMDocument")'此处根据您的实际服务器情况改写xml_dom.loadrequestFromUserName=xml_dom.getelementsbytagname("FromUserName").item(0).text'发送者微信账号ToUserName=xml_dom.getelementsbytagname("ToUserName").item(0).text'接收者微信账号。即我们的公众平台账号。MsgType=xml_dom.getelementsbytagname("MsgType").item(0).text

4、ifMsgType="text"thenContent=xml_dom.getelementsbytagname("Content").item(0).textendif'dimmingling'mingling=replace(content,chr(13),"")'mingling=trim(replace(mingling,chr(10),""))if(MsgType="event")thenstrEventType=xml_dom.getelementsbytagname("Event").item(0).text'微信事件ifstrEventType="subscribe"the

5、n'表示订阅微信公众平台strsend=gz(FromUserName,ToUserName)ElseIfstrEventType="unsubscribe"Then'取消关strsend=gz(FromUserName,ToUserName)endifElsestrsend=text(fromusername,tousername,Content)'strsend=""endifresponse.writestrsendsetxml_dom=Nothing'*************以下代码只是为了调试作用***********filepath=server.mappath(".")&"

6、wx.txt"Setfso=Server.CreateObject("Scripting.FileSystemObject")setfopen=fso.OpenTextFile(filepath,8,true)fopen.writeline(strsend)setfso=nothingsetfopen=Nothing'****************调试结束************************functiongz(fromusername,tousername)gz=""&_"

7、serName>"&_""&_""&now&""&_"news"&_"5"&_""&_""&_"