ASP保存远程图片到本地 同时得到第一张图片并创建缩略图的代码

采集中 或者 在线添加文章中 都可以用到此功能

俺自己在baidu上搜索的保存远程图片到本地的代码 感觉比较难用点 而且没有现成的比较全的代码 俺也看不懂

俺从 SNA新闻采集系统 For 3.62 (程序制作:ansir)里提取了点函数 用下 比较简单好用

以下是函数

程序代码 

代码如下:

<%

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

'函数名：CheckDir2

'作 用：检查文件夹是否存在

'参 数：FolderPath ------文件夹地址

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

Function CheckDir2(byval FolderPath)

dim fso

folderpath=Server.MapPath(".")&"/"&folderpath

Set fso = Server.CreateObject("Scripting.FileSystemObject")

If fso.FolderExists(FolderPath) then

'存在

CheckDir2 = True

Else

'不存在

CheckDir2 = False

End if

Set fso = nothing

End Function

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

'函数名：MakeNewsDir2

'作 用：创建新的文件夹

'参 数：foldername ------文件夹名称

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

Function MakeNewsDir2(byval foldername)

dim fso

Set fso = Server.CreateObject("Scripting.FileSystemObject")

fso.CreateFolder(Server.MapPath(".") &"/" &foldername)

If fso.FolderExists(Server.MapPath(".") &"/" &foldername) Then

MakeNewsDir2 = True

Else

MakeNewsDir2 = False

End If

Set fso = nothing

End Function

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

'函数名：DefiniteUrl

'作 用：将相对地址转换为绝对地址

'参 数：PrimitiveUrl ------要转换的相对地址

'参 数：ConsultUrl ------当前网页地址

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

Function DefiniteUrl(Byval PrimitiveUrl,Byval ConsultUrl)

Dim ConTemp,PriTemp,Pi,Ci,PriArray,ConArray

If PrimitiveUrl="" or ConsultUrl="" or PrimitiveUrl="$False$" Then

DefiniteUrl="$False$"

Exit Function

End If

If Left(ConsultUrl,7)<>"HTTP://" And Left(ConsultUrl,7)<>"http://" Then

ConsultUrl= "http://" & ConsultUrl

End If

ConsultUrl=Replace(ConsultUrl,"://","://")

If Right(ConsultUrl,1)<>"/" Then

If Instr(ConsultUrl,"/")>0 Then

If Instr(Right(ConsultUrl,Len(ConsultUrl)-InstrRev(ConsultUrl,"/")),".")>0 then

Else

ConsultUrl=ConsultUrl & "/"

End If

Else

ConsultUrl=ConsultUrl & "/"

End If

End If

ConArray=Split(ConsultUrl,"/")

If Left(PrimitiveUrl,7) = "http://" then

DefiniteUrl=Replace(PrimitiveUrl,"://","://")

ElseIf Left(PrimitiveUrl,1) = "/" Then

DefiniteUrl=ConArray(0) & PrimitiveUrl

ElseIf Left(PrimitiveUrl,2)="./" Then

DefiniteUrl=ConArray(0) & Right(PrimitiveUrl,Len(PrimitiveUrl)-1)

ElseIf Left(PrimitiveUrl,3)="../" then

Do While Left(PrimitiveUrl,3)="../"

PrimitiveUrl=Right(PrimitiveUrl,Len(PrimitiveUrl)-3)

Pi=Pi+1

Loop

For Ci=0 to (Ubound(ConArray)-1-Pi)

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!