ASP无组件上传图片

<%       Dim   oUpFileStream       Class   UpFile_Class       Dim   Form,File,Version,Err       Private   Sub   Class_Initialize       Version   =   "Version   V1.0"       Err   =   -1       End   Sub           Private   Sub   Class_Terminate           '清除变量及对像       If   Err   <   0   Then             Form.RemoveAll             Set   Form   =   Nothing             File.RemoveAll             Set   File   =   Nothing             oUpFileStream.Close             Set   oUpFileStream   =   Nothing