MusicGet 類

2024-05-04 11:02:28

字體：大中小

供稿：網(wǎng)友

復(fù)制代碼代碼如下:
<%
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 類
'***************************************************************
Class GetHttp
    Private OXML,FSO,ADOS
    Private Sub Class_Initialize
        Set OXML = server.CreateObject("Microsoft.XMLHTTP")
        Set FSO  =  Server.CreateObject("Scripting.FileSystemObject")
        Set ADOS = Server.CreateObject("ADODB.Stream")
    End Sub

    Private Sub Class_Terminate
        Set OXML = Nothing
        Set FSO  = Nothing
        Set ADOS = Nothing
    End Sub

    Public Property Get Version
        Version="動感采集系統(tǒng)v3.0"
    End Property

    '*****************************************************************
    '    function（私有）
    '    作用：利用流進(jìn)行中文編碼
    '    參數(shù) ：vIn（要進(jìn)行編碼的字符患）
    '*****************************************************************
    Private Function BytesToBstr(body)
        Dim Bdat
        Bdat=Body
        ADOS.Type = 1
        ADOS.Mode =3
        ADOS.Open
        ADOS.Write Bdat
        ADOS.Position = 0
        ADOS.Type = 2
        ADOS.Charset = "GB2312"
        BytesToBstr = ADOS.ReadText

上一篇：忠網(wǎng)廣告系統(tǒng) 用到的幾個函數(shù)

下一篇：ASP中FSO的神奇功能 - 權(quán)限許可