Xinsoft ：应用之美，在于药到病除

ABCUpload组件应用一例- -

                                      

ABCUpload组件是一个优秀的文件上传组件，而且它还能读出上传的图片文件的长、宽、图像格式等属性。

以下代码是摘自我程序中的一个片断，借此说明其使用方法：

<%
     Dim theForm,theField
     Set theForm = Server.CreateObject("ABCUpload4.XForm")
     
     theForm.Overwrite = True
     Set theField = theForm.Files("Upfile")
     
     FileName=theField.FileName
     FileExtName=GetFileExtStr( FileName )
     FileName=SessionID&"."&SessionVer&"."& GetTimeVal() &"."&FileExtName
     Calc_FilePathURL
     
     If theField.FileExists Then theField.Save FilePath & "\" & FileName
     
     Dim W,H,S,T
     W=theField.imageWidth
     H=theField.imageHeight
     S=theField.Length
     T=theField.imageType
     
     Set theForm = Nothing
%>

- 作者： Xinsoft 2004年11月11日, 星期四 14:56 加入博采