Кода -копия выглядит следующим образом:
<%
Response.expires = 0
Response.expiresabsolute = теперь ()-1
Ответ.
Ответ.
Response.cachecontrol = "Без сэша"
Response.buffer = true
Response.clear
Server.scriptTimeout = 999999999
'***************************************************
'*Определить класс Musicget
'***************************************************
ClassGethttp
PrivateOxml, FSO, Ados
Privatesubclass_initialize
SetOxml = server.createObject ("microsoft.xmlhttp")
Setfso = server.createObject ("scripting.filesystemobject")
SetAdos = server.createObject ("adodb.stream")
Заканчивая
PrivateBclass_terminate
Setoxml = ничего
Setfso = ничего
SetAdos = ничего
Заканчивая
Publicpropertygetversion
Версия = "Система динамического сбора v3.0"
EndProperty
'***************************************************
'функция (частная)
'Функция: используйте потоки, чтобы кодировать китайский
'Параметр: VIN (символ, который должен быть закодирован)
'***************************************************
Privatefunctionbytestobstr (тело)
Dimbdat
Bdat = тело
Ados.Type = 1
Ados.mode = 3
Ados.open
Ados.writebdat
Ados.position = 0
Ados.Type = 2
Ados.charset = "gb2312"
Bytestobstr = ados.readtext