MusicGet 类(6)

    '*****************************************************************
    Public Function FormatMusicPath(byref MusicUrl,byref oServerUrl,byref MusicFolder)
        strpath=""
        strpath = Replace(MusicUrl,oServerUrl,"")
        strpath = MusicFolder&"/"&strpath
        strpath = Replace(strpath,"//","/")
        if left(strpath,1)="/" then strpath=right(strpath,len(strpath)-1)
        FormatMusicPath=trim(strpath)
    End function

    '*****************************************************************
    '    function（公有）
    '    作用 ：格式化html
    '*****************************************************************
    Public Function FormatHtml(Str,itype)
        if itype=0 then
            Str=replace(Str,chr(39),"'") 
            Str=replace(Str,chr(34),""") 
            Str=replace(Str,"<","<") 
            Str=replace(Str,">",">") 
        else
            Str=replace(Str,"chr(39)","") 
            Str=replace(Str,"chr(34)","") 
        end if
        FormatHtml=Str
    End function 

    '*****************************************************************
    '    function（公有）
    '    作用 ：截取字符
    '    参数 ：str要操作的对像,start开始字符,last结束字符,n模式
    '*****************************************************************
    Public Function GetContent(byref str,byref start,byref last,byref n)
        If Instr(lcase(str),lcase(start))>0 then
            select case n