ASP中取得图片宽度和高度的类（无组件）

;     Set IMGFile=Nothing
        Else
            imgH = 0
        End If     
        Set FSO=Nothing
    End Function
End Class

IMGPath="Test.jpg"

Set PP = New ImgWHInfo  
W = PP.imgW(Server.Mappath(IMGPath))  
H = PP.imgH(Server.Mappath(IMGPath))
Set pp = Nothing

Response.Write("<img src=''"&IMGPath&"'' border=0><br>宽:"&W&";高:"&H)
%>