asp实现的7xi音乐网的采集源代码(3)

  .Open "Get", url, False, "", ""  
  .Send  
  GetBody = .ResponseBody 
  End With  
  Set Retrieval = Nothing  
End Function 

'---重组文件名 
Function GetFileName(RemotePath, FileName) 
  Dim arrTmp 
  Dim strFileExt 
  arrTmp = Split(RemotePath, ".") 
  strFileExt = arrTmp(UBound(arrTmp)) 
  GetFileName = FileName & "." & strFileExt 
End Function 

'---将流内容保存为文件 
Function SaveToFile(Stream, FilePath) 
  Dim objStream 
  On Error Resume Next 
  '---建立ADODB.Stream对象，必须要ADO 2.5以上版本 
  Set objStream = Server.CreateObject("ADODB.Stream") 
  objStream.Type = 1 '以二进制模式打开 
  objStream.Open 
  objstream.write Stream 
  objstream.SaveToFile FilePath, 2 
  objstream.Close() 
  '---关闭对象，释放资源 
  Set objstream = Nothing 
  if err.Number <> 0 then 
    SaveToFile = false 
  else 
    SaveToFile = true 
  end if 
End Function 

'---读取文本文件 
Function FSOlinedit(filename,lineNum) 
  if linenum < 1 then exit function 
  dim fso,f,temparray,tempcnt 
  set fso = server.CreateObject("scripting.filesystemobject") 
  if not fso.fileExists(server.mappath(filename)) then exit function 
  set f = fso.opentextfile(server.mappath(filename),1) 
  if not f.AtEndofStream then 
    tempcnt = f.readall 
    f.close 
    set f = nothing 
    temparray = split(tempcnt,chr(13)&chr(10)) 
    if lineNum>ubound(temparray)+1 then 
      exit function 
    else 
      FSOlinedit = temparray(lineNum-1) 
    end if 
  end if 
End function 

'---检查绝对路径是否存在