Asp無組件產生縮圖 （3）

縮圖|無組件 3.定義縮圖尺寸

　　這部分代碼就是仁者見仁，智者見智了。首先，我們需要規定縮圖顯示尺寸範圍，譬如：300X260，代碼可以這樣寫：
<%
Dim PXWidth,PXHeight
Dim Pp '//Proportion
If PWidth=0 Or PWidth="" Then
PXWidth=0
PXHeight=0
Else
Pp=FormatNumber(PWidth/PHeight,2) '//長寬比
End If
If PWidth>=PHeight Then
If PWidth>=300 Then
PXWidth=300
PXHeight=FormatNumber(300/Pp,0)
Else
PXWidth=PWidth
PXHeight=PHeight
End If
Else
If PHeight>=260 Then
PXHeight=260
PXWidth=FormatNumber(260*Pp,0)
Else
PXWidth=PWidth
PXHeight=PHeight
End If
End If
%>

　　將上面的代碼緊接第二步寫下即可。調用時代碼如下：
<img src=<%=curfilename%> border="0" width=<%=PXWidth%>
height=<%=PXHeight%>>

　　至於圖片格式可以用得到，圖片尺寸可以寫成
<%
response.write PXWidth&"X"&PXHeight
%>

　　圖片大小可以用FSO.GetFileSize(filename)來實現，而點擊次數可以簡單地用SQL語句實現，具體編碼就不再累述了。

　　這樣，一個無組件產生縮圖程式就寫好了，可能有點拿來主義，不過只要大家能將方法掌握相信還是有很大提高的。