图片:
图片格式:
图片尺寸:
图片大小:
点击次数:
下面,我们获取图片的绝对路径。代码如下:
<%
/////获取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/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!