Salinan kode adalah sebagai berikut:
<%
Response.expires = 0
Response.ExpiresAbsolute = Now ()-1
Response.addheader "pragma", "no-cache"
Response.addheader "cache-control", "pribadi"
Response.cachecontrol = "no-cache"
Response.buffer = true
Respons.clear
Server.ScriptTimeout = 999999999
'********************************************************************
'*Tentukan kelas MusicGet
'********************************************************************
ClassgetHttp
PrivateOXML, FSO, Ados
Privatesubclass_initialize
Setoxml = server.createObject ("microsoft.xmlhttp")
SetFSO = server.CreateObject ("Scripting.FilesystemObject")
Setados = server.createObject ("adodb.stream")
Endsub
Privatesubclass_terminate
Setoxml = tidak ada
Setfso = tidak ada
Setados = tidak ada
Endsub
PublicPropertyGetVersion
Versi = "Sistem Akuisisi Dinamis v3.0"
Endproperty
'********************************************************************
'Fungsi (pribadi)
'Fungsi: Gunakan aliran untuk mengkode orang Cina
'Parameter: Vin (karakter yang akan dikodekan)
'********************************************************************
PrivateFunctionByTestObstr (Body)
Dimbdat
Bdat = tubuh
Ados.type = 1
Ados.mode = 3
Ados.open
ADOS.WritebDat
Ados.position = 0
Ados.type = 2
Ados.charset = "GB2312"
BytestoBstr = ados.readtext