IDC资讯中心
现在我们先设计一个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()没有搞定，所以一直使用这个。
