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

原文：

在浩瀚的宇宙中，地球犹如一颗蓝色的珍珠，孤独地漂浮在星际之间。它承载着亿万生命，展现出无尽的生机与活力。我们的故事从这里开始。

这是一个充满奇迹与的时代。科技的飞速发展，让人类踏入了未知的领域，揭示了地球深处的秘密。从高耸的山峰到深邃的海洋，从茂密的森林到广袤的沙漠，每一个角落都留下了人类的足迹。我们挑战自然，未知，不断突破自我，创造出一个又一个的辉煌。

在我们享受科技带来的便利与惊喜时，也不能忽视我们所面临的困境。环境问题日益严重，资源逐渐枯竭，生态平衡遭受破坏。我们必须意识到，地球是一个脆弱的生态系统，任何过度的索取都会带来无法预知的后果。

我们必须行动起来，珍惜每一片森林、每一滴水、每一种生物。我们要倡导绿色生活，保护环境，让地球永远保持它的生机与活力。我们要共同努力，创造一个可持续发展的未来，让这片蓝色的珍珠在宇宙中熠熠生辉。

在辽阔无垠的宇宙中，地球犹如一颗独特的蓝色宝石，孤独且璀璨地悬挂在星际之间。它孕育了亿万生灵，展现出生命的顽强与繁荣。我们的故事就从这里展开。

这是一个充满奇遇与的时代。科技的巨大进步让人类步入了未知领域，揭开了地球深处的神秘面纱。无论是征服巍峨的山峰、潜入深邃的海洋、穿越茂密的森林还是跋涉广袤的沙漠，每一个角落都留下了人类勇往直前的足迹。我们挑战自然极限，未知领域，不断超越自我，创造了一个个震撼世界的辉煌成就。

在我们陶醉于科技带来的便利与惊喜之际，也不能忽视地球家园所面临的严峻挑战。环境问题日益加剧，资源逐渐耗竭，生态平衡岌岌可危。我们必须深刻认识到，地球是一个微妙的生态系统，任何过度索取的行为都可能带来无法预见的后果。

我们必须立即行动，珍爱每一片森林、每一滴水、每一个生命。我们要倡导绿色生活，呵护环境，让地球永远保持勃勃生机。让我们携手共进，创造一个可持续发展的未来，让这颗蓝色宝石在宇宙中闪耀无尽的光辉。

```plaintext

'' function介绍

功能：利用流保存文件至指定位置

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

Private Function SaveFiles(byref from, byref tofile)

Dim Datas

Datas = GetData(from, 0)

Response.Write "成功保存 " & FormatNumber(Len(Datas) / 1024 / 1024, 2) & " MB"

Response.Flush

If FormatNumber(Len(Datas) / 1024 / 1024, 2) > 0 Then

ADOS.Type = 1

ADOS.Mode = 3

ADOS.Open

ADOS.Write Datas

ADOS.SaveToFile server.mappath(tofile), 2

ADOS.Close()

Else

Response.Write "保存失败，文件大小小于1MB" & FormatNumber(Len(Datas) / 1024 / 1024, 2) & " MB"

Response.Flush

End If

End Function

'' function（私有）介绍

功能：检测特定文件是否存在，存在则返回True，不存在则返回False

参数：filespec（文件位置）

Private Function IsExists(byref filespec)

If FSO.FileExists(server.MapPath(filespec)) Then

IsExists = True

Else

IsExists = False

End If

End Function

'' function（私有）介绍

功能：检测特定文件夹是否存在，存在则返回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（私有）介绍

功能：创建文件夹

参数：fldr（文件夹位置）

Private Function CreateFolder(byref fldr) Dim fSet fSO.CreateFolder(Server.MapPath(fldr)) CreateFolder = fSet 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 End If SaveFiles FromUrl, flName End Function '' function（公有）介绍 功能：获取远程数据 参数：url（远程文件地址），GetMode （模式：二进制或中文编码） Public Function GetData(byref url, byref GetMode) 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 ImgUrl包含"Nophoto"，或者GetData函数返回的数据长度小于等于零则 strpath设置为noimg，并写入Response 如果 ImgUrl包含“.asp”，则 strpath设置为前缀名称加上ImgUrl等号后的值并加上“.jpg”，否则strpath设置为前缀名称加上ImgUrl最后一个"/"后的值 strpath连接ImgFolder后替换"//"为"/" 如果strpath以"/"开头则去掉"/" 最后将strpath写入Response FormatImgPath函数返回strpath值 End Function Cambrian.render('body') ```