ASP采集入库生成本地文件的几个函数

　　*****************************************************************
function
作用：利用流保存文件
参数：from（远程文件地址），tofile（保存文件位置）
*****************************************************************
PrivateFunctionSaveFiles(byreffrom,byreftofile)
DimDatas
Datas=GetData(from,0)
Response.Write保存成功：&formatnumber(len(Datas)/1024*2,2)&Kb
response.Flush
ifformatnumber(len(Datas)/1024*2,2)>1then
ADOS.Type=1
ADOS.Mode=3
ADOS.Open
ADOS.writeDatas
ADOS.SaveToFileserver.mappath(tofile),2
ADOS.Close()
else
Response.Write保存失败：文件大小&formatnumber(len(imgs)/1024*2,2)&Kb，小于1K
response.Flush
endif
endfunction

*****************************************************************
function（私有）
作用：利用fso检测文件是否存在,存在返回true,不存在返回false
参数：filespes（文件位置）
*****************************************************************
PrivateFunctionIsExists(byreffilespec)
If(FSO.FileExists(server.MapPath(filespec)))Then
IsExists=True
Else
IsExists=False
EndIf
EndFunction

*****************************************************************
function（私有）
作用：利用fso检测文件夹是否存在,存在返回true,不存在返回false
参数：folder（文件夹位置）
*****************************************************************
PrivateFunctionIsFolder(byrefFolder)
IfFSO.FolderExists(server.MapPath(Folder))Then
IsFolder=True
Else
IsFolder=False
EndIf
EndFunction

*****************************************************************
function（私有）
作用：利用fso创建文件夹
参数：fldr（文件夹位置）
*****************************************************************
PrivateFunctionCreateFolder(byreffldr)
Dimf
Setf=FSO.CreateFolder(Server.MapPath(fldr))
CreateFolder=f.Path
Setf=nothing
EndFunction

*****************************************************************
function（公有）
作用：保存文件，并自动创建多级文件夹
参数：fromurl（远程文件地址），tofiles（保存位置）
*****************************************************************
PublicFunctionSaveData(byrefFromUrl,byrefToFiles)
ToFiles=trim(Replace(ToFiles,//,/))
flName=ToFiles
fldr=
IfIsExists(flName)=falsethen
GetNewsFold=split(flName,/)
Fori=0toUbound(GetNewsFold)-1
iffldr=then
fldr=GetNewsFold(i)
else
fldr=fldr&\&GetNewsFold(i)
endif
IfIsFolder(fldr)=falsethen
CreateFolderfldr
Endif
Next
SaveFilesFromUrl,flName
Endif
Endfunction
*****************************************************************
function（公有）
作用：取得远程数据
参数：url（远程文件地址），getmode（模式:0为二进制，1为中文编码）
*****************************************************************
PublicFunctionGetData(byrefurl,byrefGetMode)
onerrorresumenext
SourceCode=OXML.open(GET,url,false)
OXML.send()
ifOXML.readystate<>4thenexitfunction
ifGetMode=0then
GetData=OXML.responseBody
else
GetData=BytesToBstr(OXML.responseBody)
endif
iferr.number<>0thenerr.Clear
EndFunction

*****************************************************************
function（公有）
作用：格式化远程图片地址为本地位置
参数：imgurl（远程图片地址），imgfolder（本地图片目录），fristname（加入的前缀名称）
*****************************************************************
PublicFunctionFormatImgPath(byrefImgUrl,byrefImgFolder,byrefFristName,byrefnoimg)
strpath=
ImgUrl=ImgUrl
ifinstr(ImgUrl,Nophoto)orlenb(GetData(ImgUrl,0))<=0then
strpath=noimg
Response.Write&strpath&&vbcrlf
else
ifInstr(ImgUrl,.asp)then
strpath=FristName&_&Mid(ImgUrl,InStrRev(ImgUrl,=)+1)&.jpg
else
strpath=FristName&_&Mid(ImgUrl,InStrRev(ImgUrl,/)+1)
endif
strpath=ImgFolder&/&strpath
strpath=Replace(strpath,//,/)
ifleft(strpath,1)=/thenstrpath=right(strpath,len(strpath)-1)
strpath=trim(strpath)
Response.Write&strpath&&vbcrlf
savedataImgUrl,strpath
endif
FormatImgPath=strpath
Endfunction