leExists(IMGPath)) Then
Set IMGFile = FSO.GetFile(IMGPath)
FileExt=FSO.GetExtensionName(IMGPath)
Select Case FileExt
Case "gif","bmp","jpg","png":
Arr=getImageSize(IMGFile.Path)
imgH = Arr(2)
End Select
Set IMGFile=Nothing
Else
imgH = 0
End If
Set FSO=Nothing
End Function
End Class
%>
<%
IMGPath="/uploadfile/201306/17/AA154618717.jpg"
Set PP = New ImgWHInfo
W = PP.imgW(Server.Mappath(IMGPath))
H = PP.imgH(Server.Mappath(IMGPath))
Set pp = Nothing
%>
<%
Dim W,PXHeight
Dim Pp ''//Proportion
If W=0 or W="" Then
PXWidth=0
PXHeight=0
Else
Pp=FormatNumber(W/H,2) ''//长宽比
End If
If W>=H Then
If W>=300 Then
PXWidth=300
PXHeight=FormatNumber(300/Pp,0)
Else
PXWidth=W
PXHeight=H
End If
Else
If PHeight>=260 Then
PXHeight=260
PXWidth=FormatNumber(260*Pp,0)
Else
PXWidth=W
PXHeight=H
End If
End If
response.Write(PXWidth)
%>
<img src="/uploadfile/201306/17/AA154618717.jpg" border="0" width=<%=PXWidth%>
height=<%=PXHeight%>>
