Código de implementación de la interfaz de la plataforma pública ASP WeChat

Autor：Eve Cole Fecha de actualización：2025-01-24 11:24:02

El código de implementación de la interfaz de la plataforma pública ASP WeChat visto por bluedidea, los amigos que lo necesiten pueden consultarlo.

Copie el código de código de la siguiente manera:

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

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

'Notas

'Los archivos ASP deben guardarse en formato UTF-8; de lo contrario, quedarán confusos.

'Las siguientes dos líneas de código son para verificación a través de la interfaz WeChat.

'respuesta.solicitud de escritura ("ehostr")

'respuesta.end

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

firma tenue 'firma cifrada de WeChat

marca de tiempo tenue 'marca de tiempo

dim nonce 'número aleatorio

'dim echostr 'cadena aleatoria

token tenue

firma tenue

token="ldwz"'el token que agregaste en segundo plano

firma = Solicitud ("firma")

nonce = Solicitud("nonce")

marca de tiempo = Solicitud ("marca de tiempo")

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

dim ToUserName 'Cuenta WeChat de desarrollador

atenuar la cuenta del remitente de FromUserName (un OpenID)

dim CreateTime 'Tiempo de creación del mensaje (entero)

texto tenue MsgType '

contenido tenue 'Contenido del mensaje de texto

set xml_dom = Server.CreateObject("MSXML2.DOMDocument")'Esto se reescribe de acuerdo con la situación real de su servidor

solicitud xml_dom.load

FromUserName=xml_dom.getelementsbytagname("FromUserName").item(0).text 'Cuenta WeChat del remitente

ToUserName=xml_dom.getelementsbytagname("ToUserName").item(0).text 'Cuenta WeChat del destinatario. Esa es nuestra cuenta de plataforma pública.

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

si MsgType="texto" entonces

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

terminar si

'mezcla débil

'mezclando=reemplazar(contenido,chr(13),"")

'mezclando=recortar(reemplazar(mezclando,chr(10),""))

si (MsgType="evento") entonces

strEventType=xml_dom.getelementsbytagname("Evento").item(0).text 'Evento de WeChat

si strEventType="subscribe" entonces 'Indica que se está suscribiendo a la plataforma pública WeChat

strsend=gz(FromUserName,ToUserName)

ElseIf strEventType="cancelar suscripción" Entonces'Cancelar cerrar

strsend=gz(FromUserName,ToUserName)

terminar si

Demás

'strsend=texto(de nombre de usuario,a nombre de usuario,Contenido)

strsend=""

terminar si

respuesta.escribir strsend

establecer xml_dom=Nada

'******************El siguiente código es solo para depuración**********

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

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

'set fopen=fso.OpenTextFile(ruta de archivo, 8,verdadero)

'fopen.writeline(stringenviar)

'establecer fso=nada

'set fopen=Nada

'******************Fin de depuración************************

función gz(de nombre de usuario, a nombre de usuario)

gz="<xml>" &_

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

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

"<CreateTime>"&ahora&"</CreateTime>" &_

"<MsgType>noticias</MsgType>" &_

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

"<Artículos>" &_

"<elemento>" &_

"<Title>Un mercado de venta de coches de segunda mano sin margen de beneficio</Title>" &_

"<Descripción>El automóvil de segunda mano de Liaocheng es un mercado de automóviles de segunda mano que combina automóviles de segunda mano físicos y en línea. Proporciona principalmente información sobre transacciones de automóviles de segunda mano en Liaocheng y las ciudades circundantes con información sobre automóviles de segunda mano de Liaocheng. Puede vea y publique información sobre automóviles usados de forma gratuita y maneje negocios relacionados con automóviles usados.

"</Descripción>" &_