ASP正则判断取出HTML的图片地址的函数

作者佚名技术来源 ASP编程浏览发布时间 2012-03-11

e<>4 then
exit function
end if
getHTTPPage=Http.responseBody
set http=nothing
if err.number<>0 then err.Clear
end function
''保存图片
function saveimage(from,tofile)
dim geturl,objStream,imgs
geturl=trim(from)
imgs=gethttppage(geturl)''取得图片的具休内容的过程
Set objStream = Server.CreateObject("ADODB.Stream")''建立ADODB.Stream对象，必须要ADO 2.5以上版本
objStream.Type =1''以二进制模式打开
objStream.Open
objstream.write imgs''将字符串内容写入缓冲
objstream.SaveToFile server.mappath(tofile),2''-将缓冲的内容写入文件
objstream.Close()''关闭对象
set objstream=nothing
end function
''调用实例
Dim strpic,i,fname
strpic = ShowPic("<DIV align=center><IMG src=""图片地址"" border=0></DIV>")
strpic = Split(strpic,"||")
If UBound(strpic) > 0 Then
For i = 0 To UBound(strpic) - 1
''保存图片
fname=cstr(i&mid(strpic(i),instrrev(strpic(i),".")))
saveimage(strpic(i),fname)
Next
Else
End If

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

上一页 1 2

分享到：更多

你可能对下面的文章感兴趣

上一篇: ASP动态网页制作常用错误处理下一篇: ASP实现网页打开任何类型文件都保存的方法

关于 ASP正则判断取出HTML的图片地址的函数的所有评论