La palabra clave de la interfaz personalizada de la cuenta pública de WeChat activa el código detallado de la interfaz de terceros

'################################

'#Por POST?datos en formato raw/xml#

'############################# ## #

'#La codificación debe ser utf-8.

Cset="utf-8"

'#¿Tolerancia a fallos? #

En caso de error, continúe con el siguiente paso

'#¿Desactivar caché?

Response.Buffer?=?True?

Response.ExpiresAbsolute?=?Now()?-? 1?

Respuesta. ¿Caduca? =? 0?

Respuesta.CacheControl? =? "sin caché"

'#post? #

¿Función?PostHttpPage(RefererUrl, PostUrl, PostData)? &?"TP")?xmlHttp.Open?"POST",?PostUrl?False XmlHTTP.setRequestHeader?"Content-Length",Len(PostData)? xmlHttp.setRequestHeader?"Content-Type",? "raw/xml"

'Función?BytesToBstr(Body, Cset)

Dim?Objstream

Establecer ?Objstream?=?Server.CreateObject("adodb.stream")

Set?Objstream?=?Server.CreateObject("adodb.

Set?Objstream?=?Server. CreateObject("adodb.stream")

Objstream .=?Server.CreateObject("adodb.stream")

Set?Objstream?=?Set?/p>

objstream.Type?=?1

objstream.Mode?=?3

objstream.Open

objstream.Write?body

objstream.Posición?=?0