Los desarrolladores de WeChat conectan el código ASP
No escuches a los que no pueden.
La interfaz de la que hablo se refiere a una interfaz que puede ser llamada en cualquier idioma. No sólo PHP.
Lo único que puedo decir es que algunas personas no tienen suficientes habilidades o les da pereza hacerlo. Mi cuenta oficial usa ASP para la interfaz. Para darle una referencia simple: <%@Language="VBScript"?CodePage="65001"%>
<%
'Los archivos ASP se guardan en formato UTF-8, de lo contrario, pueden aparecer caracteres confusos.
'=====================================
'Estas dos líneas de código se utilizan para la verificación inicial a través de la interfaz del token WeChat. Ya no se usa después de la verificación.
'response.write?request("ehostr")
'response.end
'============== = =======================
dim?signature 'Firma cifrada de WeChat
dim?timestamp 'Marca de tiempo
dim?nonce'número aleatorio
'dim?ehostr'cadena aleatoria
dim?token
dim?signaturetmp
token=" myweixincode" 'El token que escribiste en segundo plano
signature?=?Request("signature")
nonce?=?Request( "nonce" )
marca de tiempo?=?Request("marca de tiempo")
dim?ToUserName 'Cuenta de WeChat del desarrollador
dim?FromUserName 'Cuenta de remitente (OpenID)
dim?CreateTime 'Hora de creación del mensaje (entero)
dim?MsgType 'Texto
dim?wxCont 'Contenido del mensaje
dim?MsgId 'ID de mensaje, entero de 64 bits
Sub?getMSG()
on?request
ToUserName=xDom.getelementsbytagname(" ToUserName").item( 0).text
FromUserName=xDom.getelementsbytagname("FromUserName").item(0).text
MsgType=xDom.if?MsgType=" text"?then?wxCont =xDom.getelementsbytagname("Contenido") .item(0).text
if?MsgType="event"?then?wxCont=xDom.getelementsbytagname("Mensaje") item(0).text.
Si MsgType="text"?then?wxCont=xDom.getelementsbytagname("Content") .item(0).text
Si MsgType="evento"?
getelementsbytagname("Evento").item(0).text
set?xDom=Nada
End?sub
call?getMSG( )
if?FromUserName=""?and?wxCont=""?then?response.end?'Sin fuente ni contenido, cancelar el procesamiento'.
wxCont=reemplazar(wxCont,chr(13),"")
wxCont=reemplazar(wxCont,chr(10),"")
wxCont =recortar(wxCont)
función?siguiente
dim?ss,i
teclas=reemplazar(teclas,";",";")
ss=split(keys,";")
for?i=0?to?ubound(ss)
if?instr(?lcase(wxCont) ,lcase(?ss(i)?) >0?entonces
tiene=verdadero
salida?función
fin?si
next
has=false
end?function
if?wxCont=" subscribe"?then?' indica que hay un nuevo usuario a seguir. La interfaz anterior es Hello2BizUser
reMSG="Bienvenido a
elseIf ?wxCont="unsubscribe"?Entonces 'Cancelar suscripción
elseIf?wxCont="0"?Entonces
'Manejar códigos de respuesta personalizados
reMSG ="Nota útil :"? &?VBCrLf?& "Responder 1 para nuestra URL; Responder 2 para información de contacto;"
elseif?wxCont="1" Entonces
reMSG= "Nuestra URL:"&?VBCrLf?&?" www.fj543.com"
else
reMSG="Gracias por su mensaje, el equipo de servicio técnico de TI de Wu Shichang le responderá lo antes posible, espere pacientemente "
end?if
reMSG=reMSG?&?vbcrlf&?vbcrlf?&?"Responda con el número 0 para ver las instrucciones de ayuda".
'? &?err.description
outXML="
"
"
"
"
"
"
" "
respuesta.write?outXML
%>
""?