ASP:高效保存远程图片并创建缩略图的代码示例
本文档主要讨论了在ASP开发环境中如何高效地保存远程图片到本地服务器,并创建缩略图的功能。对于信息采集或在线文章添加场景而言,这个功能非常实用。作者在寻找通用的图片下载代码时遇到了困难,发现百度上的资源不易理解和使用。他们从名为SNA新闻采集系统For 3.62(由ansir制作)的源代码中找到了两个关键函数:`CheckDir2` 和 `MakeNewsDir2`,这两个函数简化了处理流程。 首先,`CheckDir2` 函数的作用是检查指定文件夹是否已存在于服务器上。它接收一个参数 `FolderPath`,通过 `Server.MapPath()` 函数将相对路径转换为服务器实际路径,然后使用 `Scripting.FileSystemObject` 对象检查文件夹是否存在。如果文件夹存在,返回 `True`;否则返回 `False`。 `MakeNewsDir2` 函数则是用于创建新的文件夹。同样,它接受一个 `foldername` 参数,利用 `Server.MapPath()` 创建指定名称的新文件夹。如果文件夹成功创建,返回 `True`,否则返回 `False`。这个函数确保了图片下载前所需的目录结构能够被正确创建。 为了实现保存远程图片并创建缩略图,可以结合一个图片下载函数和一个缩略图生成函数。这通常涉及到使用HTTP请求库(如WinHttpRequest对象)下载图片,然后使用图像处理库(如GDI+或ImageMagick)来生成缩略图。这部分代码可能包括URL解析、文件流读取、以及使用适当的图像处理API创建缩略图。 然而,文档中并没有提供具体的图片下载和缩略图生成的代码。因此,开发者需要根据需求,结合这两个辅助函数,编写一段完整的代码,示例如下: ```asp <% Dim imgUrl As String ' 远程图片URL Dim imgFileName As String ' 本地保存的文件名 Dim imgStream As Object ' 图片输入流 Dim thumbStream As Object ' 缩略图输出流 ' 假设有一个下载图片的函数 DownloadImage imgFileName = DownloadImage(imgUrl) ' 使用图片处理库生成缩略图 Set imgStream = CreateObject("ADODB.Stream") imgStream.Open imgStream.Type = 1 ' 图像类型 imgStream.LoadFromFile Server.MapPath(imgFileName) Set thumbStream = CreateObject("ADODB.Stream") thumbStream.Type = 1 CreateThumbnail imgStream, thumbStream, ' 假设这里的CreateThumbnail是一个自定义函数 thumbStream.SaveToFile Server.MapPath("thumbnails\" & Replace(imgFileName, ".jpg", "_thumbnail.jpg")), 2 ' 保存缩略图 Set imgStream = Nothing Set thumbStream = Nothing %> ``` 这段文档提供了解决ASP环境下载远程图片并创建缩略图问题的关键步骤和部分代码片段,开发者可以根据这些基础函数扩展出符合实际需求的完整解决方案。
下载后可阅读完整内容,剩余5页未读,立即下载
- 粉丝: 10
- 资源: 941
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
最新资源
- 十种常见电感线圈电感量计算公式详解
- 军用车辆:CAN总线的集成与优势
- CAN总线在汽车智能换档系统中的作用与实现
- CAN总线数据超载问题及解决策略
- 汽车车身系统CAN总线设计与应用
- SAP企业需求深度剖析:财务会计与供应链的关键流程与改进策略
- CAN总线在发动机电控系统中的通信设计实践
- Spring与iBATIS整合:快速开发与比较分析
- CAN总线驱动的整车管理系统硬件设计详解
- CAN总线通讯智能节点设计与实现
- DSP实现电动汽车CAN总线通讯技术
- CAN协议网关设计:自动位速率检测与互连
- Xcode免证书调试iPad程序开发指南
- 分布式数据库查询优化算法探讨
- Win7安装VC++6.0完全指南:解决兼容性与Office冲突
- MFC实现学生信息管理系统:登录与数据库操作