久久69国产一区二区蜜臀,国产精品久久一区主播,jizzjizz欧美69巨大

訂閱本欄目 RSS您所在的位置: 深山工作室 > 微信公眾號(hào)開發(fā) > 正文

微信公眾號(hào)生成帶參數(shù)的二維碼asp源碼下載

2020/12/18 14:10:56 字體:大中小瀏覽 2421

<%
'**********************************************
'注意事項(xiàng)
'ASP文件需要以UTF-8的格式保存,否則亂碼.
'作者 :565449214
'**********************************************
dim Signature    '微信加密簽名
dim Timestamp    '時(shí)間戳
dim Nonce        '隨機(jī)數(shù)
dim Echostr        '隨機(jī)字符串
dim Token        '與微信后臺(tái)設(shè)置的token一致
dim encrypt_type '加密類型
dim msg_signature '簽名

Token="qwbmqwbm"'

Signature = request.QueryString("signature")
Nonce = request.QueryString("nonce")
Timestamp = request.QueryString("timestamp")
Echostr = request.QueryString("echostr")
encrypt_type = request.QueryString("encrypt_type")
msg_signature = request.QueryString("msg_signature")

'驗(yàn)證微信接口
If EchoStr<>"" then
        '下面進(jìn)行Token,TimesTamp,Nonce三個(gè)參數(shù)的字典排序
        dim str,i
        dim Myarray:Myarray=Sort(Array(Token,TimesTamp,Nonce))
        For i=0 To Ubound(Myarray)
            str=str&Myarray(i)
        Next
        if Lcase(SignaTure)=Lcase(SHA1(str,"Hex")) then
            Response.Write EchoStr    '驗(yàn)證成功，返回正確EchoStr給微信，接通接口API
            Response.End()
        end if
End if

'獲取微信主動(dòng)發(fā)送過來的內(nèi)容
Set xmldom = Server.CreateObject("MSXML2.DOMDocument")
            xmldom.load request
            xml = xmldom.documentElement.xml
            'call CreateTextFile(request.QueryString&xml,"a.txt")
            If encrypt_type = "aes" Then
               res = ToAes(xml,0)
               xmldom.loadxml res
            End If
            ToUserName=xmldom.getelementsbytagname("ToUserName").item(0).text '接收者微信賬號(hào)。即我們的公眾平臺(tái)賬號(hào)。
            FromUserName=xmldom.getelementsbytagname("FromUserName").item(0).text '發(fā)送者微信賬號(hào)Openid
            CreateTime=xmldom.getelementsbytagname("CreateTime").item(0).text
            MsgType=xmldom.getelementsbytagname("MsgType").item(0).text
            if (MsgType="event") then
                strEventType=xmldom.getelementsbytagname("Event").item(0).text '微信事件
                if strEventType="subscribe" then '表示訂閱微信公眾平臺(tái)
                        EventKey=xmldom.getelementsbytagname("EventKey").item(0).text
                        Content="感謝關(guān)注"
                        if EventKey<>"" then
                            EventKey=replace(EventKey,"qrscene_","")
                            Content = "你的上線ID:"&EventKey
                        Else
                            EventKey= 0
                            Content = "感謝關(guān)注"
                        end if
                        Call Login(EventKey,FromUserName)
                        Call Return_Text(Content)
                ElseIf strEventType="unsubscribe" Then'取消關(guān)注
                        Content="取消關(guān)注"
                        Call Return_Text(Content)
                ElseIf strEventType="CLICK" Then'點(diǎn)擊菜單獲取關(guān)鍵字，獲取
                        EventKey=xmldom.getelementsbytagname("EventKey").item(0).text
                        Content=EventKey
                        Call Return_Text(Content)
                ElseIf strEventType="VIEW" Then'點(diǎn)擊菜單獲取關(guān)鍵字，跳轉(zhuǎn)到鏈接
                        EventKey=xmldom.getelementsbytagname("EventKey").item(0).text
                        Content=EventKey
                        Call Return_Text(Content)
                ElseIf strEventType="SCAN" Then '掃描二維碼
                        EventKey=xmldom.getelementsbytagname("EventKey").item(0).text
                        Content= "歡迎再次光臨"
                        Call Return_Text(Content)
                ElseIf strEventType="scancode_push" or strEventType="scancode_waitmsg" Then    '點(diǎn)擊菜單，調(diào)用掃碼推事件的事件推送
                        EventKey=xmldom.getelementsbytagname("EventKey").item(0).text
                        ScanResult=xmldom.getelementsbytagname("ScanResult").item(0).text
                        Content=ScanResult
                        Call Return_Text(Content)
                ElseIf strEventType="pic_sysphoto" or strEventType="pic_photo_or_album" or strEventType="pic_weixin" Then    '點(diǎn)擊菜單，調(diào)用系統(tǒng)拍照發(fā)圖
                        EventKey=xmldom.getelementsbytagname("EventKey").item(0).text
                        Counts=xmldom.getelementsbytagname("Count").item(0).text
                        Content="拍照發(fā)圖，接收【"&Counts&"】張圖片"
                        Call Return_Text(Content)
                ElseIf strEventType="location_select" Then    '點(diǎn)擊菜單，調(diào)用位置發(fā)送
                        EventKey=xmldom.getelementsbytagname("EventKey").item(0).text
                        Location_X=xmldom.getelementsbytagname("Location_X").item(0).text
                        Location_Y=xmldom.getelementsbytagname("Location_Y").item(0).text
                        Scale=xmldom.getelementsbytagname("Scale").item(0).text
                        Label=xmldom.getelementsbytagname("Label").item(0).text
                        Content="發(fā)送位置"&EventKey
                        Call Return_Text(Content)
                ElseIf strEventType="LOCATION" Then'獲取用戶地理位置，當(dāng)用戶打開對話框時(shí)，自動(dòng)獲取微信用戶的實(shí)時(shí)地址。本功能需要配合服務(wù)號(hào)的LEB接口。
                        Latitude=xmldom.getelementsbytagname("Latitude").item(0).text
                        Longitude=xmldom.getelementsbytagname("Longitude").item(0).text
                        Precision=xmldom.getelementsbytagname("Precision").item(0).text
                        '記錄用戶LEB信息
                end if
            else
                MsgId=xmldom.getelementsbytagname("MsgId").item(0).text
            End If
            If MsgType="text" then'接收文本信息
                Content=xmldom.getelementsbytagname("Content").item(0).text
                Call Return_Text(Content)
            elseif MsgType="image" then'接收圖片信息
                MediaId=xmldom.getelementsbytagname("MediaId").item(0).text
                PicUrl=xmldom.getelementsbytagname("PicUrl").item(0).text
                Content=PicUrl
                Call Return_Text(Content)
            elseif MsgType="voice" then'"接收語音信息
                MediaId=xmldom.getelementsbytagname("MediaId").item(0).text
                Format=xmldom.getelementsbytagname("Format").item(0).text
                Content=MediaId
                Call Return_Text(Content)
            elseif MsgType="video" then'接收視頻信息
                MediaId=xmldom.getelementsbytagname("MediaId").item(0).text
                ThumbMediaId=xmldom.getelementsbytagname("ThumbMediaId").item(0).text
                Content=MediaId
                Call Return_Text(Content)
            elseif MsgType="location" then'接收位置信息
                Location_X=xmldom.getelementsbytagname("Location_X").item(0).text
                Location_Y=xmldom.getelementsbytagname("Location_Y").item(0).text
                Scale=xmldom.getelementsbytagname("Scale").item(0).text
                Label=xmldom.getelementsbytagname("Label").item(0).text
                Content="地理位置"&Location_X&","&Location_Y&"你發(fā)的是地址信息:"&Label
                Call Return_Text(Content)
            elseif MsgType="link" then'接收鏈接信息
                Title=xmldom.getelementsbytagname("Title").item(0).text
                Descriptions=xmldom.getelementsbytagname("Description").item(0).text
                Url=xmldom.getelementsbytagname("Url").item(0).text
                Content=Url
                Call Return_Text(Content)
            end if
set xmldom=Nothing

'多圖文消息
Function Return_News(Articles)
ArticleCount = Ubound(Articles)+1
str = "<xml>"&_
      "<ToUserName><![CDATA["&FromUserName&"]]></ToUserName>"&_
      "<FromUserName><![CDATA["&ToUserName&"]]></FromUserName>"&_
      "<CreateTime>"&DateDiff("s","1970-01-01 08:00:00",Now())&"</CreateTime>"&_
      "<MsgType><![CDATA[news]]></MsgType>"&_
      "<ArticleCount>"&ArticleCount&"</ArticleCount>"&_
      "<Articles>"
For i = 0 To ArticleCount-1
str = str & "<item>"&_
      "<Title><![CDATA["&Articles(i)(0)&"]]></Title>"&_
      "<Description><![CDATA["&Articles(i)(1)&"]]></Description>"&_
      "<PicUrl><![CDATA["&Articles(i)(2)&"]]></PicUrl>"&_
      "<Url><![CDATA["&Articles(i)(3)&"]]></Url>"&_
      "</item>"
Next
str = str & "</Articles>"&_
      "</xml>"
Response.Write str
End Function

'文本消息
Function Return_Text(Content)
str = "<xml>"&_
      "<ToUserName><![CDATA["&FromUserName&"]]></ToUserName>"&_
      "<FromUserName><![CDATA["&ToUserName&"]]></FromUserName>"&_
      "<CreateTime>"&DateDiff("s","1970-01-01 08:00:00",Now())&"</CreateTime>"&_
      "<MsgType><![CDATA[text]]></MsgType>"&_
      "<Content><![CDATA["&Content&"]]></Content>"&_
      "</xml>"
Response.Write str
End Function

'字典排序
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

Function PostHTTPPage(url,data)
    dim Http
    set Http=server.createobject("MSXML2.SERVERXMLHTTP.3.0")
    Http.open "POST",url,false
    Http.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
    Http.send(data)
    if Http.readystate<>4 then
    exit function
    End if
    PostHTTPPage=Http.responseText
    set http=nothing
    if err.number<>0 then err.Clear
End Function

Function SHA1(ByVal Str,ByVal Types)
    Dim TAsc,Enc,Bytes,objXML,objXMLNode,Outstr
    'Borrow some objects from .NET (supported from 1.1 onwards)
    Set TAsc = Server.CreateObject("System.Text.UTF8Encoding")
    Set Enc = Server.CreateObject("System.Security.Cryptography.SHA1CryptoServiceProvider")
    'Convert the string to a byte array and hash it
    Bytes = TAsc.GetBytes_4(Str)
    Bytes = Enc.ComputeHash_2((Bytes))
    'Convert the byte array to a hex or bsae64 string
    Outstr = ""
    If Types = "Base64" Then
        Set objXML = Server.CreateObject("Msxml2.DOMDocument")
        Set objXMLNode = objXML.createElement("a")
        objXMLNode.DataType = "bin.base64"
        objXMLNode.NodeTypedValue = Bytes
        Outstr = Replace(objXMLNode.Text,Chr(10),"")
        Set objXML = Nothing
        Set objXMLNode = Nothing
    ElseIf Types = "Hex" Then
        Set objXML = Server.CreateObject("Msxml2.DOMDocument")
        Set objXMLNode = objXML.createElement("a")
        objXMLNode.DataType = "bin.hex"
        objXMLNode.NodeTypedValue = Bytes
        Outstr = Replace(objXMLNode.Text,Chr(10),"")
        Set objXML = Nothing
        Set objXMLNode = Nothing
    End If
    SHA1 = Outstr
    Set Enc = Nothing
    Set TAsc = Nothing
End Function

Sub Login(genKey,openid)
    Set Rs = Conn.ExeCute("Select * From [Wx_user] Where openid='"&openid&"'")
    If Rs.Eof Then
    UserInfo = Wx.Get_UserInfo(openid)
      nickname = UserInfo(0)
    sex = UserInfo(1)
    icon = UserInfo(2)
    province = UserInfo(4)
    city = UserInfo(5)
    Conn.ExeCute("Insert Into [Wx_user]([username],[password],headurl,sex,province,city,openid,genkey,pid) values('"&nickname&"','"&openid&"','"&icon&"',"&sex&",'"&province&"','"&city&"','"&openid&"','"&genkey&"',"&genkey&")")
    End If
End Sub

%>

前一頁:公眾號(hào)被動(dòng)回復(fù)與客服接口主動(dòng)推送音樂封面縮略圖ThumbMediaId不顯示bug問題

后一頁:下載微信小程序

相關(guān)閱讀: asp統(tǒng)計(jì)信息/文章每日、每周、每月、總訪問量的方法; 跳轉(zhuǎn)菜單,跳轉(zhuǎn)后用新窗口打開; 圣誕節(jié)12.5號(hào)，白雪天地留言板模板; 復(fù)制信息給好友代碼; 購買系統(tǒng)可以免費(fèi)提供修改服務(wù)嗎？; 萬圣節(jié)留言板模板; 四川省中國青年旅行社有限公司高新分社; CSS教程：弄懂閉合浮動(dòng)元素

共有0條關(guān)于《微信公眾號(hào)生成帶參數(shù)的二維碼asp源碼下載》的評論: 發(fā)表評論

正在加載評論......

返回頂部發(fā)表評論

呢稱:
表情:
內(nèi) 容:	評論內(nèi)容:不能超過 1000 字,需審核,請自覺遵守互聯(lián)網(wǎng)相關(guān)政策法規(guī)。
驗(yàn)證碼:

網(wǎng)友評論聲明,請自覺遵守互聯(lián)網(wǎng)相關(guān)政策法規(guī)。

您發(fā)布的評論即表示同意遵守以下條款:
一、不得利用本站危害國家安全、泄露國家秘密,不得侵犯國家、社會(huì)、集體和公民的合法權(quán)益;
二、不得發(fā)布國家法律、法規(guī)明令禁止的內(nèi)容;互相尊重,對自己在本站的言論和行為負(fù)責(zé);
三、本站對您所發(fā)布內(nèi)容擁有處置權(quán)。

更多信息>>欄目類別選擇: 百度小程序開發(fā); 微信小程序開發(fā); 微信公眾號(hào)開發(fā); uni-app; asp函數(shù)庫; ASP; DIV+CSS; HTML; python

更多>>同類信息: 微信公眾號(hào)用戶關(guān)注時(shí)自動(dòng)推送回復(fù)小程序卡片(圖文卡片)不需要第三方平臺(tái)就可以做; 微信公眾號(hào)用客服接口推送菜單消息; 微信公眾號(hào)回復(fù)圖文消息或用客服接口推送圖文消息; 微信公眾號(hào)回復(fù)音樂消息或用客服接口推送音樂消息; 微信公眾號(hào)回復(fù)視頻消息或用客服接口推送視頻消息; 微信公眾號(hào)回復(fù)語音消息或用客服接口推送語音消息

更多>>最新添加文章: dw里面查找替換使用正則刪除sqlserver里面的CONSTRAINT; Android移動(dòng)端自動(dòng)化測試：使用UIAutomatorViewer與Selenium定位元素; 抖音直播音掛載小雪花懂車帝小程序; javascript獲取瀏覽器指紋可以用來做投票; 火狐Mozilla Firefox出現(xiàn)：無法載入您的Firefox配置文件它可能已經(jīng)丟失或是無法訪問問題解決集合處理辦法; 在Android、iOS、Windows、MacOS中微信小程序的文件存放路徑; python通過代碼修改pip下載源讓下載庫飛起; python里面requests.post返回的res.text還有其它的嗎

更多>>隨機(jī)抽取信息: css改變頁面中的文字顏色與字體粗體; 億菇緣; 利用javascript做的頁內(nèi)(詳細(xì)頁)搜索功能并將結(jié)果高亮突出顯示; 屏幕兩種色彩左右像電影屏幕一樣分開; 設(shè)為首頁代碼; 利用window.open函數(shù)控制彈出窗口,設(shè)置個(gè)性的彈出窗口

更多標(biāo)簽熱門標(biāo)簽

設(shè)為首頁淘寶自適應(yīng) 滑輪格式化標(biāo)簽目標(biāo) ewebeditor adobe 三級框架適應(yīng) word-spacing access 工具 png 信息 input 性能風(fēng)格繁體黑白選擇符返回變色 weatherxml IE8 考試 imprt blog 彩色翻滾全選模仿 msn 垂直青春縮放 dt split DropShadow getElementById 定律藍(lán)色理想浮動(dòng) 版權(quán)聲明萬年歷工作預(yù)覽對聯(lián)