现在我们先设计一个ShowImg.asp页面用来显示缩略图及相关信息。具体设计如下：
图片：
图片格式：
图片尺寸：
图片大小：
点击次数：
下面，我们获取图片的绝对路径。代码如下：
<%
'/////获取ShowImg.asp的绝对路径/////
Dim curFile
curFile=Server.mappath(Request.servervariables("PATH_INFO"))
Dim curfilename,filename
'/////图片相对路径（存于数据库中）
cufilename=rs("ImgURL")
'/////因为ShowImg.asp与images在同一目录，所以我们用instrrev获取images的路径/////
filename=left(curFile,instrrev(curFile,"/"))&cufilename
'/////建立GPS类实体/////
Dim GetPicSize
Set GetPicSize=new GPS
Set fs=Server.CreateObject("Scripting.FileSystemObject")
'/////获取图片类型/////
Dim PicSuffixName
PicSuffixName=fs.GetExtensionName(filename)
Dim PD '//Picture Dimension
Dim PWidth,PHeight
Select Case PicSuffixName
Case "gif","bmp","jpg","png":
'/////调用GPS通用类中的GetImageSize函数获取图片尺寸/////
PD=GetPicSize.GetImageSize(filename)
PWidth=PD(1) '//获取图片宽度
PHeight=PD(2) '//获取图片高度
Case "swf"
PD=GetPicSize.GetImageSize(filename)
PWidth=PD(1) '//获取Flash宽度
PHeight=PD(2) '//获取Flash高度
Case Else
End Select
Set fs=Nothing
Set GetPicSize=Nothing
%>
将上面的代码复制到<body>的上面就OK了！
当然，有人会说，获取路径不一定要用PATH_INFO，直接用server.mappath()不就可以了嘛，呵呵，萝卜青菜各有所爱，主要是我用PATH_INFO可以实现FSO的一些功能而用server.mappath()没有搞定，所以一直使用这个。
分享到：
相关推荐
asp无组件上传程序 好用！带缩略图 ASP无组件生成缩略图程序
asp无组件上传图片，aspjpeg生成缩略图和添加水印.zip
网上有不少生成缩略图的ASP组件。若你的虚拟空间不支持注册新组件，可能会感觉自己的网站失色不少。心晴不才，结合网上资源写了个无组件生成缩略图程序，仅供参考。
asp上传图片生成缩略图,添加文件水印 程序已经在Function.asp里面.直接在index.asp中调用的.只需要安装好aspjpeg组件即可正常使用!
在ASP.NET中上传图片并生成缩略图,这个无需组件，动态调用，还可以提交水印，找了好久才找到的，学习了
功能齐全的.Net缩略图水印组件V2.0正式版，提供图片旋转加水印、图片无损生成、水印文字中文字竖形排列,增加文字纵横排列参数开关、水印图片过滤背景色等功能。
2.自动按指定的尺寸生成缩略图(需要服务器支持) 3.如果服务器不支持生成缩略图,则可以自己设置是否上传缩略图(为了更快浏览速度,我们建议您上传) 4.无组件上传功能 5.评论功能,可在后台设置是否开启评论 6.可在线...
更详细"强大的flash头像上传插件(支持旋转、拖拽、剪裁、生成缩略图等)"教程，http://www.sucaihuo.com/js/29.html。你也可以在素材火网页特效下载 http://www.sucaihuo.com/js，很多资源真的不错，最主要是既有教程...
3、高效率生成缩略图，5种导出方式，方便灵活。 4、能购获取图片尺寸。5、支持文字水印，可自定义字体、颜色、旋转角度等。6、支持图片水印，图片水引支持透明度。7、性能更稳定，消耗系统资源少。
fsn=生成缩略图选项0或空=关闭缩略图生成1开启缩略图生成2缩略图覆盖原图，需要AspJpeg组件支持！！ fss=缩略图水印的文字,0或空表示不加水印，需要AspJpeg组件支持！！ 请仔细阅读该说明，并花点时间看看上传代码...
2.新增图片旋转加水印； 3.修复水印位置旋转控制的精准度； 4.新增原图自定义删除; 5.新增图像亮度、对比度、RGB颜色值的调整； 6.新增可获取生成后的图片路径; 7.修复图片无损生成; 8.修复之前的几处Bug; 9.新增...
企业SEO站 v17.1 无组件生成HTML 企业SEO网站安装 1、上传至虚拟主机[根目录]。 2、若上传至虚拟主机根目录则要修改文件(特别注意修改 网站配置中 网站地址 域名 “/” 如然后 点击生成静态化 因为本站专注优化...
Dim Jpeg ””//声明变量 Set Jpeg = Server.CreateObject(“Persits.Jpeg”) ””//调用组件 Jpeg.Open Server.MapPath(“aaa.JPG”) ””//源图片位置 Jpeg.Canvas.Font.Color = &H000000 ””//水印字体颜色 ...
企业SEO站 v17.1 无组件生成HTML 企业SEO网站安装： 1、上传至虚拟主机[根目录]。 2、若上传至虚拟主机根目录则要修改文件(特别注意修改 网站配置中 网站地址 域名 “/” 如然后 点击生成静态化 因为本站专注...
企业SEO站 v17.0 无组件生成HTML 企业SEO网站安装： 1、上传至虚拟主机[根目录]。 2、若上传至虚拟主机根目录则要修改文件(特别注意修改 网站配置中 网站地址 域名 “/” 如然后 点击生成静态化 因为本站专注...
内容索引:.NET源码,上传下载,图片上传,水印,生成缩略图 图片上传：生成缩略图，并加文字水印或图片水印，远程图片抓取（保存到本地）支持jpg、gif、bmp、png等，将抓取的图片以日期+原名称命名并保存，支持Html输入...
摘要:.NET源码,控件组件,图片上传,水印 缩略图水印组件带上传源码，带有图片单张和批量上传，而且水印的自定义功能非常强大，确实是一款超不错的图片上传+缩略图水印组件。缩略图水印组件。它支持的功能有： 图片...