复制代码代码如下:
<%
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
'***************************************************************
'*定义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=Nothing
SetFSO=Nothing
SetADOS=Nothing
EndSub
PublicPropertyGetVersion
Version="动感采集系统v3.0"
EndProperty
'*****************************************************************
'function（私有）
'作用：利用流进行中文编码
'参数：vIn（要进行编码的字符患）
'*****************************************************************
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