Código de implementação da interface da plataforma pública ASP WeChat

Autor：Eve Cole Data da Última Atualização：2025-01-24 11:24:02

O código de implementação da interface da plataforma pública ASP WeChat visto por bluedidea, amigos necessitados podem consultá-lo.

Copie o código do código da seguinte forma:

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

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

'Notas

'Os arquivos ASP precisam ser salvos no formato UTF-8, caso contrário, ficarão ilegíveis.

'As duas linhas de código a seguir são para verificação por meio da interface do WeChat.

'solicitação de resposta.write("echostr")

'resposta.fim

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

dim assinatura 'Assinatura criptografada do WeChat

dim timestamp 'timestamp

dim nonce 'número aleatório

'dim echostr 'string aleatória

dimToken

dimsignaturetmp

token="ldwz"'o token que você adicionou em segundo plano

assinatura = Solicitação("assinatura")

nonce = Solicitação("nonce")

carimbo de data/hora = Solicitação("carimbo de data/hora")

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

dim ToUserName 'Conta WeChat do desenvolvedor

dim conta do remetente do FromUserName (um OpenID)

dim CreateTime 'Hora de criação da mensagem (inteiro)

dim MsgType 'texto

dim Content 'Conteúdo da mensagem de texto

set xml_dom = Server.CreateObject("MSXML2.DOMDocument")'Isso é reescrito de acordo com a situação real do seu servidor

solicitação xml_dom.load

FromUserName=xml_dom.getelementsbytagname("FromUserName").item(0).text 'Conta WeChat do remetente

ToUserName=xml_dom.getelementsbytagname("ToUserName").item(0).text 'Conta WeChat do destinatário. Essa é a nossa conta de plataforma pública.

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

se MsgType="texto" então

Content=xml_dom.getelementsbytagname("Conteúdo").item(0).texto

terminar se

'escuro misturando

'misturando=substituir(conteúdo,chr(13),"")

'mistura=trim(substituir(mistura,chr(10),""))

if (MsgType="evento") então

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

if strEventType="subscribe" then 'Indica assinatura da plataforma pública WeChat

strsend=gz(FromUserName,ToUserName)

ElseIf strEventType = "unsubscribe" Then'Cancel fechar

strsend=gz(FromUserName,ToUserName)

terminar se

Outro

'strsend=text(donomedeusuário,paranomedeusuário,Conteúdo)

strsend=""

terminar se

resposta.write strsend

definir xml_dom=Nada

'******************O código a seguir é apenas para depuração**********

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

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

'set fopen = fso.OpenTextFile (caminho do arquivo, 8, verdadeiro)

'fopen.writeline(strsend)

'set fso=nada

'set fopen=Nada

'******************Fim da depuração************************

função gz(fromusername,tousername)

gz="<xml>" &_

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

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

"<CreateTime>"&agora&"</CreateTime>" &_

"<MsgType>notícias</MsgType>" &_

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

"<Artigos>" &_

"<item>" &_

"<Title>Um mercado de comércio de carros usados sem margem de lucro</Title>" &_

"<Descrição> Carros usados Liaocheng é um mercado de carros usados que combina carros usados online e físicos. Ele fornece principalmente informações sobre transações de carros usados em Liaocheng e cidades vizinhas com informações de carros usados Liaocheng. Você pode visualizar e publicar informações sobre carros usados gratuitamente e lidar com negócios relacionados a carros usados.

"</Descrição>" &_