private sub GetImageSize(nFilePath, nThumbPath, byref imageW, byref imageH, byref thumbW, byref thumbH) dim myImage select case clng(ResizeComponent) case 1 line 407 >>>> set myImage = server.CreateObject("AspImage.Image") myImage.LoadImage nFilePath imageW = myImage.MaxX imageW = myImage.MaxY myImage.LoadImage nThumbPath thumbW = myImage.MaxX thumbH = myImage.MaxY set myImage = nothing
... come mai mi rispondi in inglese? |
|
|