关于asp网站微信公共平台接口的验证实现代码
|
admin
2014年12月3日 0:21
本文热度 6564
|
微信公共平台只给出了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 编辑过
400 186 1886
