The code copy is as follows:
<%
Response.Expires=0
Response.expiresabsolute=Now()-1
Response.addHeader"pragma","no-cache"
Response.addHeader"cache-control","private"
Response.CacheControl="no-cache"
Response.Buffer=True
Response.Clear
Server.ScriptTimeOut=999999999
'************************************************************************
'*Define MusicGet class
'************************************************************************
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=Nothing
SetFSO=Nothing
SetADOS=Nothing
EndSub
PublicPropertyGetVersion
Version="Dynamic Acquisition System v3.0"
EndProperty
'************************************************************************
'function (private)
'Function: Use streams to encode Chinese
'Parameter: vIn (character to be encoded)
'************************************************************************
PrivateFunctionBytesToBstr(body)
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