La copie de code est la suivante:
<%
Response.expires = 0
Réponse.ExpiresAbsolute = Now () - 1
Response.Addheader "Pragma", "No-Cache"
Response.Addheader "Cache-Control", "Private"
Réponse.cacheControl = "Non-cache"
Réponse.buffer = true
Réponse.
Server.scriptTimeout = 999999999
'**************************************************************************
'* Définir la classe Musicget
'**************************************************************************
Classgethttp
Privateoxml, FSO, ados
PrivésubClass_Initialize
SetOxml = server.createObject ("Microsoft.xmlhttp")
Setfso = server.createObject ("scripting.filesystemObject")
Setados = server.createObject ("adodb.stream")
Fin
PrivésUbclass_termince
SetOxml = rien
Setfso = rien
Setados = rien
Fin
PublicPropertygetVersion
Version = "Dynamic Acquisition System v3.0"
Endproperty
'**************************************************************************
'fonction (privé)
'Fonction: utilisez des flux pour coder chinois
'Paramètre: vin (caractère à coder)
'**************************************************************************
PrivateFunctionBytestobstr (corps)
Dibdat
Bdat = corps
Ados.Type = 1
Ados.Mode = 3
Ados.open
Ados.writebdat
Ados.Position = 0
Ados.Type = 2
Ados.Charset = "GB2312"
ByTestObstr = Ados.readText