Asp無組件產生縮圖(2)

來源:互聯網
上載者:User
縮圖|無組件 現在我們先設計一個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()沒有搞定,所以一直使用這個。




相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。