一个采集入库生成本地文件的几种设计好的函数

　　一个采集入库生成本地文件的几种设计好的函数

　　本文讲解ASP实现采集程序的编程思想。先介绍几个设计好的功能

　　'本程序已完成更换工作。如有其他需求，可继续进行类似更换操作。

　　'================================================

　　'采集storage 生成本地文件的几个功能

　　'---------------------------------------------- ----------------------------------

　　'************************************************** ***********************

　　’函数

　　’ 作用：使用流式保存文件

　　’参数：from（远程文件地址），tofile（保存文件位置）

　　'************************************************** ***********************

　　私有函数SaveFiles(byref from,byref tofile)

　　模糊数据

　　Datas=GetData(from,0)

　　Response.Write "保存成功:"&formatnumber(len(Datas)/1024*2,2)&"Kb"

　　response.Flush

　　if formatnumber(len(Datas)/1024*2,2)>1 then

　　ADOS.Type = 1

　　ADOS.Mode =3

　　ADOS.Open

　　ADOS.write 数据

　　ADOS.SaveToFile server.mappath(tofile),2

　　ADOS.Close()

　　其他

　　Response.Write "保存失败：文件大小"&formatnumber(len(imgs)/1024*2,2)&"Kb，小于1K"

　　response.Flush

　　如果结束

　　结束函数

　　'************************************************** ***********************

　　’函数（私有）

　　’ 功能：使用fso检测文件是否存在，存在则返回true，不存在则返回false

　　' 参数：filespes（文件位置）

　　'************************************************** ***********************

　　私有函数 IsExists(byref filespec)

　　如果 (FSO.FileExists(server.MapPath(filespec))) 然后

　　IsExists = True

　　其他

　　IsExists = 错误

　　如果结束

　　结束函数

　　'************************************************** ***********************

　　’函数（私有）

　　’ 功能：使用fso检测文件夹是否存在，存在则返回true，不存在则返回false

　　’参数：文件夹（文件夹位置）

　　'************************************************** ***********************

　　私有函数IsFolder(byref Folder)

　　如果 FSO.FolderExists(server.MapPath(Folder)) 那么

　　IsFolder = True

　　其他

　　IsFolder = False

　　如果结束

　　结束函数

　　'************************************************** ***********************

　　’函数（私有）

　　’作用：使用fso创建文件夹

　　’参数：fldr（文件夹位置）

　　'************************************************** ***********************

　　私有函数CreateFolder(byref fldr)

　　昏暗的 f

　　设置 f = FSO.CreateFolder(Server.MapPath(fldr))

　　CreateFolder = f.Path

　　设置 f=nothing

　　结束函数

　　'************************************************** ***********************

　　’函数（公共）

　　’ 功能：保存文件并自动创建多级文件夹

　　’参数：fromurl（远程文件地址）、tofiles（保存位置）

　　'************************************************** ***********************

　　公共函数SaveData(byref FromUrl,byref ToFiles)

　　ToFiles=trim(Replace(ToFiles,"//","/"))

　　flName=ToFiles

　　fldr=""

　　如果 IsExists(flName)=false 那么

　　GetNewsFold=split(flName,"/")

　　对于 i=0 到 Ubound(GetNewsFold)-1

　　如果 fldr="" 那么

　　fldr=GetNewsFold(i)

　　其他

　　fldr=fldr&""&GetNewsFold(i)

　　如果结束

　　如果 IsFolder(fldr)=false 那么

　　创建文件夹 fldr

　　如果结束

　　下一步

　　SaveFiles FromUrl,flName

　　如果结束

　　结束函数

　　'************************************************** ***********************

　　’函数（公共）

　　’作用：获取远程数据

　　’参数：url（远程文件地址），getmode（模式：0为二进制，1为中文编码）

　　'************************************************** ***********************

　　公共函数GetData(byref url,byref GetMode)

　　'on error resume next

　　SourceCode = OXML.open ("GET",url,false)

　　OXML.send()

　　如果 OXML.readystate4 则退出函数

　　如果 GetMode=0 那么

　　GetData = OXML.responseBody

　　其他

　　GetData = BytesToBstr(OXML.responseBody)

　　如果结束

　　如果 err.number0 则 err.Clear

　　结束函数

　　'************************************************** ***********************

　　’函数（公共）

　　' 功能：将远程图片地址格式化为本地位置

　　’参数：imgurl（远程图片地址）、imgfolder（本地图片目录）、fristname（添加前缀名）

　　'************************************************** ***********************

　　公共函数格式ImgPath(byref ImgUrl,byref ImgFolder,byref FristName,byref noimg)

　　strpath=""

　　ImgUrl=ImgUrl

　　如果 instr(ImgUrl,"Nophoto") 或 lenb(GetData(ImgUrl,0))

　　现在对几种提取方法进行分类介绍。

　　窃贼的原理也很简单：就是使用XMLHTTP远程读取网页内容，然后根据需要对读取的内容进行处理（过滤、替换、分类），最后得到数据您需要，并且在数据库中。