MusicGet 類

2024-05-04 10:58:48

字體：大中小

來源：轉載

供稿：網友

復制代碼代碼如下:

<%
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="動感采集系統v3.0"
    End Property

    '*****************************************************************
    '    function（私有）
    '    作用：利用流進行中文編碼
    '    參數：vIn（要進行編碼的字符患）
    '*****************************************************************
    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
        ADOS.Close
    End Function

上一篇：ASP中FSO的神奇功能 - 權限許可

下一篇：ASP動態生成的javascript表單驗證代碼

發表評論

共有條評論