获取远程flash并保存到本地(2)

    else 
       nextcharcode = ascb(midb(vin,i+1,1)) 
       strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode)) 
       i = i + 1 
    end if 
  next 
  bytes2bstr = strreturn 
end function
Function GetKey(HTML,Start,Last)
  filearray=split(HTML,Start)
  filearray2=split(filearray(1),Last)
  GetKey=filearray2(0)
End Function
'------------------------------------
Function SaveRemoteFile(s_LocalFileName, s_RemoteFileUrl)
    Dim Ads, Retrieval, GetRemoteData
    Dim bError
    bError = False
    SaveRemoteFile = False
    On Error Resume Next
    Set Retrieval = Server.CreateObject("Msxml2.ServerXMLHTTP")
    With Retrieval
        .Open "GET", s_RemoteFileUrl, False
        .Send
        If .Status = 200 Then
            GetRemoteData = .ResponseBody
        Else
            bError = True
        End If
    End With
    Set Retrieval = Nothing
    If Not bError Then
        Set Ads = Server.CreateObject("Adodb.Stream")
        With Ads
            .Type = 1
            .Open
            .Write GetRemoteData
            .SaveToFile Server.MapPath(s_LocalFileName), 2
            .Cancel()
            .Close()
        End With
        Set Ads=nothing
    End If
    If Err.Number = 0 And Not bError Then