asp采集常用的几个FUCTION（2）

Public Function SaveData(byref FromUrl,byref ToFiles)
 ToFiles=trim(Replace(ToFiles,"//","/"))
 flName=ToFiles
 fldr=""
 If IsExists(flName)=false then 
  GetNewsFold=split(flName,"/")
 For i=0 to Ubound(GetNewsFold)-1
  if fldr="" then
   fldr=GetNewsFold(i)
  else
   fldr=fldr&"\"&GetNewsFold(i)
  end if
  If IsFolder(fldr)=false then
   CreateFolder fldr
  End if
 Next
 SaveFiles FromUrl,flName
 End if
End function

6. function GetData
  作用 ：取得远程数据
  参数 ：url（远程文件地址），getmode （模式:0为二进制，1为中文编码）

Public Function GetData(byref url,byref GetMode) 
 ’on error resume next 
 SourceCode = OXML.open ("GET",url,false)
 OXML.send() 
 if OXML.readystate<>4 then exit function
 if GetMode=0 then
 GetData = OXML.responseBody
 else
 GetData = BytesToBstr(OXML.responseBody)
 end if
 if err.number<>0 then err.Clear
End Function

7. function FormatImgPath
  作用 ：格式化远程图片地址为本地位置
  参数 ：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

相关阅读：

ASP中常用的22个FSO文件操作函数