MusicGet 类(5)

    '    作用 ：格式化远程图片地址为本地位置
    '    参数 ：imgurl（远程图片地址），imgfolder （本地图片目录），fristname（加入的前缀名称）
    '*****************************************************************
    Public Function FormatImgPath(byref ImgUrl,byref ImgFolder,byref FristName,byref noimg)
        strpath=""
        ImgUrl=ImgUrl
        if instr(ImgUrl,"Nophoto") or lenb(GetData(ImgUrl,0))<=0 then
            strpath=noimg
            Response.Write "<a href="&strpath&">"&strpath&"</a>" &vbcrlf
        else
            if Instr(ImgUrl,".asp") then
                strpath=FristName&"_"&Mid(ImgUrl, InStrRev(ImgUrl, "=")+1)&".jpg"
            else
                strpath=FristName&"_"&Mid(ImgUrl, InStrRev(ImgUrl, "/")+1)
            end if
            strpath = ImgFolder&"/"&strpath
            strpath = Replace(strpath,"//","/")
            if left(strpath,1)="/" then strpath=right(strpath,len(strpath)-1)
            strpath = trim(strpath)
            Response.Write "<a href="&strpath&">"&strpath&"</a>" &vbcrlf
            savedata ImgUrl,strpath
        end if
        FormatImgPath = strpath
    End function

    '*****************************************************************
    '    function（公有）
    '    作用 ：格式化远程音乐文件地址为本地位置
    '    参数 ：MusicUrl（远程文件地址），oServerUrl （原服务连接地址），MusicFolder（本地音乐文件目录）