dim ADOS dim width,height,imgSize,imgType,imgName,fileName dim preName,extName dim SavePath,SaveName,SaveMode dim DiskPath,XuPath,NewUrl dim textStr dim i
Private Sub Class_Initialize set ADOS=Server.CreateObject("Adodb.Stream") ADOS.Type=1 ADOS.Mode=3 ADOS.Open getImageSize End Sub
Private Sub Class_Terminate ADOS.close set ADOS=nothing End Sub