*****************************************************************
功能
效果：按流保存文件
参数：从（远程文件地址），提交（保存文件的位置）
*****************************************************************
私有函数SaveFiles（ByRef，ByRef文件）
模糊的数据
数据= GetData（，0）
响应。写保存成功formatnumber（Len（数据）/ 1024×2,2）KB
响应。冲洗
如果formatnumber（Len（数据）/ 1024×2,2）> 1
ADOS类型= 1。
ADOS。模式= 3
打开ADOS。
ados.write数据
ados.savetofile server.mappath（日本），2
ADOS密切（）。
其他的
响应。写拯救失败：文件大小formatnumber（Len（IMGS） / 1024×2,2）KB，小于1K
响应。冲洗
最后如果
端功能

*****************************************************************
函数（私有）
函数：使用FSO检测文件的存在，返回true，不返回false。
参数：filespes（文件位置）
*****************************************************************
私有函数isexists（ByRef filespec）
如果（fso.fileexists（server.mappath（filespec）））然后
isexists =真
其他的
isexists = false
最后如果
端功能

*****************************************************************
函数（私有）
功能：使用FSO检测文件夹的存在，返回true，不返回false。
参数：文件夹（文件夹位置）
*****************************************************************
私有函数isfolder（ByRef文件夹）
如果fso.folderexists（server.mappath（文件夹））然后
isfolder =真
其他的
isfolder = false
最后如果
端功能

*****************************************************************
函数（私有）
角色：使用FSO创建文件夹
参数：科学（文件夹）
*****************************************************************
私有函数CreateFolder（ByRef FLDR）
昏暗的F
集F = fso.createfolder（server.mappath（FLDR））
创建文件夹= F路径
设置f =无
端功能

*****************************************************************
功能（公共）
角色：保存文件并自动创建多级文件夹
参数：fromurl（远程文件地址），文件（保存位置）
*****************************************************************
公共函数的SaveData（byref FromUrl，byref ToFiles）
文件=装饰（取代（文件， / /
flname =文件
科学=
如果isexists（flname）= false
getnewsfold =分裂（flname， / ）
我= 0，UBound（getnewsfold）- 1
如果科学= 然后
科学= getnewsfold（我）
其他的
科学=科学getnewsfold（我）
最后如果
如果IsFolder（FLDR）= false
创建科学
最后如果
下一个
SaveFiles FromUrl，flname
最后如果
端功能
*****************************************************************
功能（公共）
效果：获取远程数据
参数：（远程文件的URL地址），getmode（模式：0是二进制的，1是中国的代码）
*****************************************************************
公共函数GetData（ByRef URL，byref GetMode）
下次继续出错
源代码= oxml.open（拿
OXML.send（）
如果oxml。readyState <> 4然后退出功能
如果getmode = 0
GetData = oxml.responsebody
其他的
GetData = bytestobstr（oxml。responsebody）
最后如果
如果错误，数字＜0，那么错误。
端功能

*****************************************************************
功能（公共）
效果：为本地位置格式化远程图像地址
参数：imgurl（远程图片地址），imgfolder（本地图片目录），fristname（的添加前缀的名称）
*****************************************************************
公共功能formatimgpath（byref ImgUrl，byref ImgFolder，byref FristName，我noimg）
strpath =
imgurl = imgurl
如果仪器（imgurl，照片）或lenb（GetData（imgurl，0））< = 0
Strpath=noimg
响应。写vbcrlf strpath
其他的
如果Instr（imgurl，ASP）然后
strpath = fristname_ 中（imgurl，instrrev（imgurl=+ 1.jpg ））
其他的
strpath = fristname_ 中（imgurl，instrrev（imgurl / + 1））
最后如果
strpath = imgfolder / strpath
strpath =取代（strpath， /
如果左（strpath，1）= / 然后strpath =右（strpath，len（strpath）- 1）
strpath =装饰（strpath）
响应。写vbcrlf strpath
Savedata ImgUrl，strpath
最后如果
formatimgpath = strpath
端功能