复制代码代码如下:
<%
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