【顶】Asp无组件生成缩略图(2)

现在我们先设计一个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/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!
原文地址:https://www.cnblogs.com/pricks/p/1660050.html