Implementierungscode für die öffentliche ASP WeChat-Plattformschnittstelle

Autor：Eve Cole Aktualisierungszeit：2025-01-24 11:24:02

Der von bluedidea gesehene Implementierungscode für die öffentliche ASP-WeChat-Plattformschnittstelle, Freunde in Not können sich darauf beziehen.

Kopieren Sie den Codecode wie folgt:

<%@Language="VBScript" CodePage="65001"%>

'*********************************************

„Notizen

„ASP-Dateien müssen im UTF-8-Format gespeichert werden, sonst werden sie verstümmelt.“

„Die folgenden zwei Codezeilen dienen der Überprüfung über die WeChat-Schnittstelle.“

'response.write request("echostr")

'response.end

'*********************************************

schwache Signatur „WeChat-verschlüsselte Signatur

dim timestamp 'timestamp

dim nonce 'Zufallszahl

'dim echostr 'zufällige Zeichenfolge

dimToken

dimsignaturetmp

token="ldwz"'das Token, das Sie im Hintergrund hinzugefügt haben

signatur = Request("signatur")

nonce = Request("nonce")

timestamp = Request("timestamp")

'*********************************************

dim ToUserName 'WeChat-Konto des Entwicklers

Absenderkonto von FromUserName dimmen (eine OpenID)

dim CreateTime 'Erstellungszeit der Nachricht (Ganzzahl)

dim MsgType 'text

dim Content 'Textnachrichteninhalt

set xml_dom = Server.CreateObject("MSXML2.DOMDocument")'Dies wird entsprechend Ihrer tatsächlichen Serversituation neu geschrieben

xml_dom.load-Anfrage

FromUserName=xml_dom.getelementsbytagname("FromUserName").item(0).text 'WeChat-Konto des Absenders

ToUserName=xml_dom.getelementsbytagname("ToUserName").item(0).text 'WeChat-Konto des Empfängers. Das ist unser öffentliches Plattformkonto.

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

wenn MsgType="text", dann

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

Ende wenn

'dunkle Vermischung

'mingling=replace(content,chr(13),"")

'mingling=trim(replace(mingling,chr(10),""))

if (MsgType="event") dann

strEventType=xml_dom.getelementsbytagname("Event").item(0).text 'WeChat-Ereignis

if strEventType="subscribe" dann 'Zeigt an, dass Sie die öffentliche WeChat-Plattform abonnieren

strsend=gz(FromUserName,ToUserName)

ElseIf strEventType="unsubscribe" Then'Cancel close

strsend=gz(FromUserName,ToUserName)

Ende wenn

Anders

'strsend=text(fromusername,tousername,Content)

strsend=""

Ende wenn

Response.write strsend

set xml_dom=Nichts

'******************Der folgende Code dient nur zum Debuggen**********

'filepath=server.mappath(".")&"/wx.txt"

'Setze fso = Server.CreateObject("Scripting.FileSystemObject")

'set fopen=fso.OpenTextFile(filepath, 8,true)

'fopen.writeline(strsend)

'set fso=nichts

'set fopen=Nichts

'******************Debugging Ende****************************

Funktion gz(fromusername,tousername)

gz="<xml>" &_

"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_

"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_

„<CreateTime>“&now&“</CreateTime>“ &_

„<MsgType>Nachrichten</MsgType>“ &_

„<ArticleCount>5</ArticleCount>“ &_

„<Artikel>“ &_

"<item>" &_

„<Title>Ein Gebrauchtwagenhandelsmarkt ohne Gewinnspanne</Title>“ &_

„<Beschreibung>Liaocheng-Gebrauchtwagen ist ein Gebrauchtwagenmarkt, der Online- und physische Gebrauchtwagen kombiniert. Er bietet hauptsächlich Informationen zu Gebrauchtwagentransaktionen in Liaocheng und den umliegenden Städten mit Liaocheng-Gebrauchtwageninformationen. Das können Sie Informationen zu Gebrauchtwagen kostenlos anzeigen und veröffentlichen sowie Gebrauchtwagengeschäfte abwickeln.

"</Description>" &_