ASP微信公众号初次学习用的代码,ASP订餐系统开发

更新时间:2020年05月17日 09:43:53
人气:259
分类: ASP
<%
'response.write request("echostr")
'response.end

dim signature    '微信加密签名
dim timestamp    '时间戳
dim nonce        '随机数
'dim echostr        '随机字符串
dim Token
dim signaturetmp
token="waptxq"'您在后台添写的 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位整型
appid="wx47e6"
secret="d3485dab0117"

namesit="微网站制作-WAP网站制作"
Descrip="asp微信订餐系统,本程序自主开发ASP语言,ACC数据库,程序无加密,无限制,可以修改,纯源代码。界面简洁大气,后台操作易上手,1500元包含全站源码一分(包括对接公众平台的源代码)
,免费提供为你的公众号对接,对接时主要是以:“关注时自动回复产品列表,其实点击进入对应的产品"
sypic="http://81.nat123.net/image/IMG_0407.png"
siteurl="http://mp.weixin.qq.com/s?__biz=MjM5NDQwOTkyMA==&mid=200096934&idx=1&sn=b97848301de2b103c4dd31837b13f2f4#rd"
'On Error Resume Next '程序遇到错误还会向下执行
access_token =RequestUrl("https://api.weixin.qq.com/cgi-bin/token?grant_type=client_credential&appid="&appid&"&secret="&secret )
access_token=split(access_token,"""")

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 

if MsgType="location" then
Label=xml_dom.getelementsbytagname("Label").item(0).text
Location_X =xml_dom.getelementsbytagname("Location_X").item(0).text
Location_Y =xml_dom.getelementsbytagname("Location_Y").item(0).text
Scale =xml_dom.getelementsbytagname("Scale").item(0).text
returnstr=returnstr&"你的当前位置:"&Label &VBCrLf
returnstr=returnstr&"地理位置维度:"&Location_X &VBCrLf
returnstr=returnstr&"地理位置精度:"&Location_Y &VBCrLf
end if

if MsgType="image" then
PicUrl =xml_dom.getelementsbytagname("PicUrl").item(0).text
MediaId =xml_dom.getelementsbytagname("MediaId").item(0).text
returnstr=returnstr&PicUrl&MediaId &VBCrLf
end if

if MsgType="voice" then
Format =xml_dom.getelementsbytagname("Format").item(0).text
MediaId  =xml_dom.getelementsbytagname("MediaId").item(0).text
Recognition=xml_dom.getelementsbytagname("Recognition").item(0).text
returnstr=returnstr&Format&MediaID&Recognition &VBCrLf
end if

if MsgType="event" then
Eventa=xml_dom.getelementsbytagname("Event").item(0).text
end if

if Eventa="CLICK" then'====================================================
EventKey=xml_dom.getelementsbytagname("EventKey").item(0).text
if EventKey="home" then
call dantuwen(fromusername,tousername,namesit,Descrip,sypic,siteurl)
end if
if EventKey="about" then
returnstr=returnstr&"姓名 性别  年龄  籍贯" &VBCrLf
returnstr=returnstr&"--------------------------" &VBCrLf
returnstr=returnstr&"田刚  男  28  江西九江   " 
end if
if EventKey="user" then
wxuser=RequestUrl("https://api.weixin.qq.com/cgi-bin/user/info?access_token="&access_token(3)&"&openid="&FromUserName&"&lang=zh_CN")
wxuser=Replace(Replace(Replace(Replace(Replace(Replace(wxuser, "{", ""),"[",""),"]",""),"}",""),"""",""),":",",")
wxuser=split(wxuser,",")
if wxuser(7)=1 then 
xb="男" 
else 
xb="女"
end if
returnstr=returnstr&"昵称:"&wxuser(5)&VBCrLf
returnstr=returnstr&"性别:"&xb &VBCrLf
returnstr=returnstr&"所在国家:"&wxuser(15) &VBCrLf
returnstr=returnstr&"所在省份:"&wxuser(13) &VBCrLf
returnstr=returnstr&"所在城市:"&wxuser(11) &VBCrLf
end if

end if'======================================================================

if Eventa="unsubscribe" then
returnstr=returnstr&Eventa &VBCrLf
end if

if Eventa="LOCATION" then
Latitude   =xml_dom.getelementsbytagname("Latitude").item(0).text '地理位置纬度 
Longitude   =xml_dom.getelementsbytagname("Longitude").item(0).text '地理位置经度
Preci  =xml_dom.getelementsbytagname("Precision").item(0).text '地理位置精度 
bdapi=RequestUrl("http://api.map.baidu.com/geocoder?location="&Latitude&","&Longitude&"&output=json&key=CBWspWN0a10oXvGgVP8sVBlG")
bdapi=Replace(Replace(Replace(Replace(Replace(Replace(bdapi, "{", ""),"[",""),"]",""),"}",""),"""",""),":",",")
bdapi=split(bdapi,",")
returnstr=returnstr&"你的当前位置:" &VBCrLf
returnstr=returnstr&bdapi(9) &VBCrLf
end if

set xml_dom=Nothing
Public Function RequestUrl(url)
        Set XmlObj = Server.CreateObject("Microsoft.XMLHTTP")
        XmlObj.open "GET", url, false
        XmlObj.send
        RequestUrl = XmlObj.responseText
        Set XmlObj = nothing
    End Function

'得到IP地址
Function GetIP()
    UserTrueIP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
    If UserTrueIP="" Then UserTrueIP=Request.ServerVariables("REMOTE_ADDR")
    GetIP=UserTrueIP
End Function

ip=getip()

if Eventa="subscribe" or content="首页" or content="home" then
call dantuwen(fromusername,tousername,namesit,Descrip,sypic,siteurl)
end if

if content="笑话" then
xh=RequestUrl("http://api.94qing.com/?type=time")
returnstr=returnstr&xh &VBCrLf
elseif content="你好" then
msg="进入首页请输入:home"
call wenzi(msg)
elseif content="tian" then
msg="发送人:"&fromusername&",收件人:"&tousername&""
call wenzi(msg)
end if

function dantuwen(a,b,c,d,e,f)'图文信息
strresponse="<xml>"
 strresponse=strresponse&"<ToUserName><![CDATA["&a&"]]></ToUserName>"
 strresponse=strresponse&"<FromUserName><![CDATA["&b&"]]></FromUserName>"
 strresponse=strresponse&"<CreateTime>"&now&"</CreateTime>"
 strresponse=strresponse&"<MsgType><![CDATA[news]]></MsgType>"
 strresponse=strresponse&"<ArticleCount>1</ArticleCount>"
 strresponse=strresponse&"<Articles>"
strresponse=strresponse&"<item>"
 strresponse=strresponse&"<Title><![CDATA["&c&"]]></Title>"
 strresponse=strresponse&"<Description><![CDATA["&d&"]]></Description>"
 strresponse=strresponse&"<PicUrl><![CDATA["&e&"]]></PicUrl>"
 strresponse=strresponse&"<Url><![CDATA["&f&"]]></Url>"
 strresponse=strresponse&"</item>"
  strresponse=strresponse&"</Articles>"
 strresponse=strresponse&"</xml>"
response.write strresponse
end function

returnstr=returnstr&"订做微网站联系QQ:"&chr(10)&"190066120"&VBCrLf

call wenzi(returnstr)

function wenzi(a)'文本信息
strresponse="<xml>" &_
     "<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
    "<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
    "<CreateTime>"&now&"</CreateTime>" &_
    "<MsgType><![CDATA[text]]></MsgType>" &_
    "<Content><![CDATA[" & a & "]]></Content>" &_
    "<FuncFlag>0<FuncFlag>" &_
    "</xml>"
response.write strresponse
end function
%>


【版权声明】

本文仅代表作者观点,不代表本站立场。本文系作者授权发表,未经许可,不得转载。

相关文章
# 在线留言