WEB技术论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

搜索
热搜: ASP asp.net php
查看: 421|回复: 0
打印 上一主题 下一主题

asp公众号开发验证域名

[复制链接]

534

主题

541

帖子

2044

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
2044
跳转到指定楼层
楼主
发表于 2018-1-21 14:58:22 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
<!--#include file="sha1.asp"-->
'字典排序
        Function Sort(ary)
                Dim KeepChecking,I,FirstValue,SecondValue
                KeepChecking = TRUE
                Do Until KeepChecking = FALSE
                KeepChecking = FALSE
                For I = 0 to UBound(ary)
                If I = UBound(ary) Then Exit For
                If ary(I) > ary(I+1) Then
                FirstValue = ary(I)
                SecondValue = ary(I+1)
                ary(I) = SecondValue
                ary(I+1) = FirstValue
                KeepChecking = TRUE
                End If
                Next
                Loop
                Sort = ary
        End Function


dim signature        '微信加密签名
dim timestamp        '时间戳
dim nonce                '随机数
'dim echostr                '随机字符串
dim Token
dim signaturetmp
token="wap"'您在后台添写的 token
signature = Request("signature")
nonce = Request("nonce")
timestamp = Request("timestamp")
echostr=request("echostr")

dim ToUserName        '开发者微信号
dim FromUserName'发送方帐号(一个OpenID)
dim CreateTime        '消息创建时间(整型)
dim MsgType                'text
dim Content                '文本消息内容
dim MsgId                '消息id,64位整型

'验证微信接口
        If echostr<>"" then
               
                dim str,M
                dim Myarray:Myarray=Sort(Array(token,timestamp,nonce))
                For M=0 To Ubound(Myarray)
                        str=str&Myarray(M)
                Next
                if signature=Lcase(sha1(str)) then
                        response.write echostr
                        response.end
                end if
        End if

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="event" then
Eventa=xml_dom.getelementsbytagname("Event").item(0).text

if Eventa="CLICK" then'====================================================

EventKey=xml_dom.getelementsbytagname("EventKey").item(0).text

if EventKey="home" then
call wenzi("aaaaa")
end if

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

end if



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
爱仿站的中年人
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

|手机版|码农集营 ( ) 深圳龙岗交友群

GMT+8, 2018-11-7 19:13 , Processed in 0.088016 second(s), 23 queries .

Powered by 码农集营 X3.4

快速回复 返回顶部 返回列表