Code d'implémentation de l'interface de la plateforme publique ASP WeChat

Auteur：Eve Cole Date de mise à jour：2025-01-24 11:24:02

Le code d'implémentation de l'interface de la plate-forme publique ASP WeChat vu par bluedidea, les amis dans le besoin peuvent s'y référer.

Copiez le code comme suit :

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

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

'Remarques

« Les fichiers ASP doivent être enregistrés au format UTF-8, sinon ils seront tronqués.

« Les deux lignes de code suivantes sont destinées à être vérifiées via l'interface WeChat.

'requête de réponse.write("echostr")

'réponse.fin

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

signature faible 'signature cryptée WeChat

horodatage faible 'horodatage

faible occasionnellement "nombre aléatoire"

'dim echostr 'chaîne aléatoire

dimToken

dimsignaturetmp

token="ldwz"'le jeton que vous avez ajouté en arrière-plan

signature = Demande("signature")

occasionnel = Demande("occasion")

horodatage = Demande("horodatage")

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

dim ToUserName 'Compte WeChat du développeur

dim le compte expéditeur de FromUserName (un OpenID)

dim CreateTime 'Durée de création du message (entier)

dim MsgType 'texte

dim Content 'Contenu du message texte

set xml_dom = Server.CreateObject("MSXML2.DOMDocument")'Ceci est réécrit en fonction de la situation réelle de votre serveur

requête xml_dom.load

FromUserName=xml_dom.getelementsbytagname("FromUserName").item(0).text 'Compte WeChat de l'expéditeur

ToUserName=xml_dom.getelementsbytagname("ToUserName").item(0).text 'Compte WeChat du destinataire. Il s'agit de notre compte de plateforme publique.

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

si MsgType="texte" alors

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

finir si

'faible mélange

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

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

si (MsgType="événement") alors

strEventType=xml_dom.getelementsbytagname("Event").item(0).text 'Événement WeChat

if strEventType="subscribe" then 'Indique un abonnement à la plateforme publique WeChat

strsend=gz(FromUserName,ToUserName)

ElseIf strEventType="unsubscribe" Then'Annuler fermer

strsend=gz(FromUserName,ToUserName)

finir si

Autre

'strsend=text(fromusername,tousername,Content)

strsend=""

finir si

réponse.write strsend

set xml_dom=Rien

'******************Le code suivant est destiné au débogage uniquement **********

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

'Définir fso = Server.CreateObject("Scripting.FileSystemObject")

'set fopen=fso.OpenTextFile(chemin du fichier, 8,true)

'fopen.writeline(strsend)

'set fso=rien

'set fopen=Rien

'******************Fin du débogage************************

fonction gz (du nom d'utilisateur, du nom d'utilisateur)

gz="<xml>" &_

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

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

"<CreateTime>"&maintenant&"</CreateTime>" &_

"<MsgType>actualités</MsgType>" &_

"<ArticleCount>5</ArticleCount>" &_

"<Articles>" &_

"<élément>" &_

"<Title>Un marché de négoce de voitures d'occasion sans marge bénéficiaire</Title>" &_

"<Description>Les voitures d'occasion de Liaocheng sont un marché de voitures d'occasion qui combine des voitures d'occasion en ligne et physiques. Il fournit principalement des informations sur les transactions de voitures d'occasion à Liaocheng et dans les villes environnantes avec des informations sur les voitures d'occasion de Liaocheng. Vous pouvez consultez et publiez gratuitement des informations sur les voitures d'occasion et gérez les activités liées aux voitures d'occasion.

"</Description>" &_