|
微信公众平台开发api消息接口自定义 asp版代码 软件介绍
由于微信公众平台仅提供了php 版的api开发消息接口自定义示例 ,对于很网站开发者带来了不小的麻烦 ,特此提供asp 版开发api消息接口自定义的示例，仅供参考
譬如：三乐设计网站的微信接口页面是http://wx.sl99.net 默认页面是default.asp，我们只需要把default.asp的代码改为：
<%
response.write request("echostr")
%>
然后再在官方提交下保存，提示“验证token成功”。到此为止，第一步我们完成了接口的申请。
<%@Language="VBScript" CodePage="65001"%>
<%
'**********************************************
'2013.3.15
'详细示例展示 关注微信公众号查看 帐号:xxxxxx
'回复"示例"二字 获取最新的 微信公众平台开发api消息接口自定义 asp版代码 下载地址.
'不明之处关注留言.
'
'注意事项
'ASP文件需要以UTF-8的格式保存,否则乱码.
'
'**********************************************
'以下两行代码是为了通过微信接口验证的。
'response.write request("echostr")
'response.end
dim signature '微信加密签名
dim timestamp '时间戳
dim nonce '随机数
'dim echostr '随机字符串
dim Token
dim signaturetmp
token="xxxxxxxxx"'您在后台添写的 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'如果是数字
'这里添加您的 回复代码
else'非数字
if mingling="Hello2BizUser" then '表示为新的用户关注,被关注后发布
returnstr="欢迎关注<三乐设计>"&VBCrLf &_
"手机访问:"&VBCrLf &_
"http://wap.sl99.net"&VBCrLf &_
"电脑访问:"&VBCrLf &_
"http://www.sl99.net"&VBCrLf
end if
end if
if len(returnstr)=0 then
returnstr="<a href=""http://wap.sl99.net/"">三乐设计</a>提供"&VBCrLf
end if
returnstr=returnstr&"帮助回复数字 0 "
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
%>
下载asp文件/manager/Upload/file/20130729/20130729143925652565.zip
|
