La copia del código es la siguiente:
<%
Respuesta.expires = 0
Respuesta.ExpeesabSolute = Now ()-1
Respuesta.AddHeader "Pragma", "No-Cache"
Respuesta.AddHeader "Cache-Control", "privado"
Respuesta.cacheControl = "No-cache"
Respuesta.Buffer = True
Respuesta.
Server.scripttimeout = 999999999
'************************************************************************
'*Defina la clase de MusicGet
'************************************************************************
Classgethttp
Privatexml, FSO, ADOS
Privatesubclass_initialize
Satoxml = server.createObject ("Microsoft.xmlhttp")
Setfso = server.createObject ("scripting.filesystemObject")
Setados = server.createObject ("ADODB.Stream")
Endsub
Privatesubclass_merminate
SETOXML = nada
Setfso = nada
SetAdos = nada
Endsub
PublicPropertygetversion
Versión = "Sistema de adquisición dinámica v3.0"
Endpropertía
'************************************************************************
'función (privada)
'Función: use transmisiones para codificar chino
'Parámetro: Vin (el personaje que se codificará)
'************************************************************************
PrivateFunctionByTestObstr (cuerpo)
Dimbdat
Bdat = cuerpo
ADOS.TYPE = 1
ADOS.MODE = 3
ADOS. Abierto
ADOS.WRITEBDAT
Ados.position = 0
ADOS.TYPE = 2
ADOS.CHARSET = "GB2312"
Bytestobstr = ados.readText