- '*****************************************************************
- ' function
- ' 作用 :利用流保存文件
- ' 参数 :from(远程文件地址),tofile(保存文件位置)
- '*****************************************************************
- Private Function SaveFiles(byref from,byref tofile)
- Dim Datas
- 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 Datas
- ADOS.SaveToFile server.mappath(tofile),2
- ADOS.Close()
- else
- Response.Write "保存失败:文件大小"&formatnumber(len(imgs)/1024*2,2)&"Kb,小于1K"
- response.Flush
- end if
- end function
- '*****************************************************************
- ' function(私有)
- ' 作用 :利用fso检测文件是否存在,存在返回true,不存在返回false
- ' 参数 :filespes(文件位置)
- '*****************************************************************
- Private Function IsExists(byref filespec)
- If (FSO.FileExists(server.MapPath(filespec))) Then
- IsExists = True
- Else
- IsExists = False
- End If
- End Function
- '*****************************************************************
- ' function(私有)
- ' 作用 :利用fso检测文件夹是否存在,存在返回true,不存在返回false
- ' 参数 :folder(文件夹位置)
- '*****************************************************************
- Private Function IsFolder(byref Folder)
- If FSO.FolderExists(server.MapPath(Folder)) Then
- IsFolder = True
- Else
- IsFolder = False
- End If
- End Function
- '*****************************************************************
- ' function(私有)
- ' 作用 :利用fso创建文件夹
- ' 参数 :fldr(文件夹位置)
- '*****************************************************************
- Private Function CreateFolder(byref fldr)
- Dim f
- Set f = FSO.CreateFolder(Server.MapPath(fldr))
- CreateFolder = f.Path
- Set f=nothing
- End Function
- '*****************************************************************
- ' function(公有)
- ' 作用 :保存文件,并自动创建多级文件夹
- ' 参数 :fromurl(远程文件地址),tofiles (保存位置)
- '*****************************************************************
- 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
- '*****************************************************************
- ' function(公有)
- ' 作用 :取得远程数据
- ' 参数 :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
- '*****************************************************************
- ' function(公有)
- ' 作用 :格式化远程图片地址为本地位置
- ' 参数 :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 ""&strpath&"" &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 ""&strpath&"" &vbcrlf
- savedata ImgUrl,strpath
- end if
- FormatImgPath = strpath
- End function
ASP采集入库生成本地文件的几个函数
2019-11-04 12:21asp教程网 ASP教程
ASP采集入库生成本地文件的几个函数
延伸 · 阅读
- 2022-03-11Python 函数装饰器应用教程
- 2022-03-11Python全栈之文件函数和函数参数
- 2022-03-10C++ 函数的介绍
- 2022-03-10Python全栈之路正则函数
- 2022-03-10详解Python的函数与异常
- 2022-03-09C语言system函数使用方法详解
精彩推荐
- ASP教程
asp 采集实战代码
最近实在是太流行采集了,本人是不喜欢采集的,但对采集的原理我却很有兴趣进行研究,拿到了网上采集常用函数,对其进行了一番研究,并实战,结果...
- ASP教程
ASP常用函数:getpy()
ASP常用函数:getpy()...
- ASP教程
JScript中遍历Request表单参数集合的方法
这篇文章主要介绍了JScript中遍历Request表单参数集合的方法,本文以遍历Request.QueryString集合为例给出了实现代码,需要的朋友可以参考下...
- ASP教程
asp 标记字符串中指定字符变色不区分大小写
今天遇到这种问题,单纯的使用replace函数不行,他会改变原有的字符串的大小写,在网上找到相关的代码,自己备份下...
- ASP教程
ASP.NET 数据源
数据源 一个 data sourse 控件与数据绑定的控件相互作用,并隐藏了复杂的数据的联编过程。这些是提供数据给 data bound 控件的工具,并且支持如插入,删除...
- ASP教程
asp+javascript实现404页的处理转换
asp+javascript实现404页的处理转换...
- ASP教程
asp之基于adodb.stream的文件操作类
asp之基于adodb.stream的文件操作类...
- ASP教程
asp Access数据备份,还原,压缩类代码
asp Access数据备份,还原,压缩类实现代码,大家可以参考下。...