A cópia do código é a seguinte:
<%
Response.Expires = 0
Response.expiresabsolute = agora ()-1
Response.addheader "Pragma", "No-Cache"
Response.addheader "Controle de cache", "privado"
Response.CacheControl = "No-Cache"
Response.Buffer = true
Response.clear
Server.scriptTimeout = 999999999
'***********************************************
'*Defina a classe MusicGet
'***********************************************
Classgethttp
Privatexml, FSO, Ados
Privatesubclass_initialize
Scetoxml = server.createObject ("Microsoft.xmlHttp")
Setfso = server.createObject ("scripting.filesystemobject")
Setados = server.createObject ("adodb.stream")
Endsub
Privatesubclass_termine
Sedexml = nada
Setfso = nada
Setados = nada
Endsub
PublicPropertyGetVersion
Versão = "Sistema de aquisição dinâmica v3.0"
EndProperty
'***********************************************
'Função (privado)
'Função: use fluxos para codificar chinês
'Parâmetro: Vin (personagem a ser codificado)
'***********************************************
PrivateFunctionByTestobstr (corpo)
Dimbdat
Bdat = corpo
Ados.type = 1
Ados.mode = 3
Ados.open
ADOS.WRITEBDAT
Ados.Position = 0
Ados.type = 2
Ados.charset = "gb2312"
Bytestobstr = ados.readText