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
%>

　　將上面的代碼複製到的上面就OK了！

　　當然，有人會說，擷取路徑不一定要用PATH_INFO，直接用server.mappath()不就可以了嘛，呵呵，蘿蔔青菜各有所愛，主要是我用PATH_INFO可以實現FSO的一些功能而用server.mappath()沒有搞定，所以一直使用這個。