【顶】Asp无组件生成缩略图(2)
2010-01-30 15:12
246 查看
现在我们先设计一个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()没有搞定,所以一直使用这个。
文章整理:站长天空 网址:http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!
图片:
图片格式:
图片尺寸:
图片大小:
点击次数:
下面,我们获取图片的绝对路径。代码如下:
<%
/////获取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()没有搞定,所以一直使用这个。
文章整理:站长天空 网址:http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!
相关文章推荐
- Asp无组件生成缩略图
- Asp无组件生成缩略图
- Asp无组件生成缩略图
- Asp无组件生成缩略图
- 【顶】Asp无组件生成缩略图(1)
- Asp无组件生成缩略图 [2]
- Asp无组件生成缩略图 [2]
- 【顶】Asp无组件生成缩略图 (3)
- Asp无组件生成缩略图 [1] (转)
- Asp无组件生成缩略图 [2]
- ASP组件AspJpeg(加水印)生成缩略图等使用方法
- Asp无组件生成缩略图
- Asp无组件生成缩略图
- ASP无组件生成缩略图
- Asp无组件生成缩略图 [3]
- Asp无组件生成缩略图 [3]
- ASP组件AspJpeg(加水印)生成缩略图等使用方法
- Asp无组件生成缩略图 [2] (转)
- Asp无组件生成缩略图 [3]
- Asp无组件生成缩略图 [2]