Код реализации интерфейса общедоступной платформы ASP WeChat

Автор：Eve Cole Время обновления：2025-01-24 11:24:02

Код реализации интерфейса общедоступной платформы ASP WeChat, просмотренный bluedidea, друзья, нуждающиеся в этом, могут обратиться к нему.

Скопируйте код кода следующим образом:

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

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

'Примечания

«Файлы ASP необходимо сохранять в формате UTF-8, иначе они будут искажены.

«Следующие две строки кода предназначены для проверки через интерфейс WeChat.

'response.write request("echostr")

'ответ.конец

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

dim Signature 'Зашифрованная подпись WeChat

dim timestamp 'метка времени

dim nonce 'случайное число

'dim echostr' случайная строка

димтокен

dimsignaturetmp

token="ldwz"'токен, который вы добавили в фоновом режиме

подпись = Запрос («подпись»)

одноразовый номер = Запрос («одноразовый номер»)

временная метка = Запрос («метка времени»)

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

dim ToUserName 'Учетная запись разработчика WeChat

учетная запись отправителя dim FromUserName (OpenID)

dim CreateTime 'Время создания сообщения (целое число)

dim MsgType 'текст

dim Content 'Содержимое текстового сообщения

set xml_dom = Server.CreateObject("MSXML2.DOMDocument")'Это переписано в соответствии с вашей фактической ситуацией на сервере

запрос xml_dom.load

FromUserName=xml_dom.getelementsbytagname("FromUserName").item(0).text 'Учетная запись отправителя WeChat

ToUserName=xml_dom.getelementsbytagname("ToUserName").item(0).text 'Учетная запись получателя WeChat. Это наша общедоступная учетная запись на платформе.

MsgType=xml_dom.getelementsbytagname("MsgType").item(0).текст

если MsgType="текст", то

Content=xml_dom.getelementsbytagname("Содержимое").item(0).текст

конец, если

'тусклое смешение

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

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

если (MsgType="событие") тогда

strEventType=xml_dom.getelementsbytagname("Событие").item(0).text 'Событие WeChat

if strEventType="subscribe" then 'Указывает на подписку на общедоступную платформу WeChat

strsend=gz(FromUserName,ToUserName)

ElseIf strEventType="отменить подписку" Тогда "Отмена" закрыть

strsend=gz(FromUserName,ToUserName)

конец, если

Еще

'strsend=text(fromusername,tousername,Content)

стрсенд=""

конец, если

ответ.пишите стрсенд

установить xml_dom=Ничего

'****************Следующий код предназначен только для отладки**********

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

'Установить fso = Server.CreateObject("Scripting.FileSystemObject")

'set fopen=fso.OpenTextFile(путь к файлу, 8, true)

'fopen.writeline(strsend)

'установить fso=ничего

'set fopen=Ничего

'******************Завершение отладки************************

функция gz(fromusername,tousername)

gz="<xml>" &_

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

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

"<CreateTime>"&now&"</CreateTime>" &_

"<MsgType>новости</MsgType>" &_

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

"<Статьи>" &_

"<элемент>" &_

"<Title>Рынок подержанных автомобилей без прибыли</Title>" &_

«<Описание>Подержанные автомобили Ляочэн — это рынок подержанных автомобилей, который сочетает в себе онлайн и физические подержанные автомобили. Он в основном предоставляет информацию о сделках с подержанными автомобилями в Ляочэне и соседних городах с информацией о подержанных автомобилях Ляочэна. Вы можете бесплатно просматривать и публиковать информацию о подержанных автомобилях, а также вести бизнес, связанный с подержанными автомобилями.

"</Description>" &_