コードコピーは次のとおりです。
<％
Response.Expires = 0
Response.ExpiresAbsolute = now（）-1
response.addheader「プラグマ」、「ノーキャッシュ」
response.addheader「キャッシュコントロール」、「プライベート」
Response.cachecontrol = "no-cache"
Response.buffer = true
Response.Clear
server.scripttimeout = 999999999
'****************************************************************
'*音楽クラスを定義します
'****************************************************************
classgethttp
privateoxml、fso、ados
privatesubclass_initialize
setoxml = server.createObject（ "microsoft.xmlhttp"）
setFSO = server.createObject（ "Scripting.filesystemObject"）
setados = server.createObject（ "adodb.stream"）
Endingub
privatesubclass_terminate
setoxml =何もない
setfso =何もない
setados =何もない
Endingub
publicPropertygetversion
version = "Dynamic Acquisition System v3.0"
Endproperty
'****************************************************************
'機能（プライベート）
'機能：ストリームを使用して中国語をエンコードします
'パラメーター：vin（エンコードされる文字）
'****************************************************************
privateFunctionByTestobstr（ボディ）
dimbdat
bdat = body
ados.type = 1
ados.mode = 3
ados.open
ados.writebdat
Ados.Position = 0
ados.type = 2
ados.charset = "gb2312"
bytestobstr = ados.readText