<!--#include file="upload_class.asp"-->
<%
 Dim Upload,successful
'===============================================================================
 set Upload=new AnUpload			'創建類實例
 Upload.SingleSize=200*1024					'設置單個文件最大上傳限制,按字節計；默認為不限制
 Upload.MaxSize=200*1024					'設置最大上傳限制,按字節計；默認為不限制
 Upload.Exe="jpg|bmp|gif"					'設置合法擴展名,以|分割,忽略大小寫
 Upload.GetData()						'獲取并保存數據,必須調用本方法
'===============================================================================
 if Upload.Err>0 then						'判斷錯誤號,如果myupload.Err<=0表示正常
 	response.write Upload.Description			'如果出現錯誤,獲取錯誤描述
 else
 	if Upload.forms("file1")<>"" then			'這里判斷你file1是否選擇了文件
    		path=server.mappath("files")			'文件保存路徑(這里是files文件夾)
    		set tempCls=Upload.files("file1") 
			response.ContentType="image/bmp"
			response.BinaryWrite tempCls.getbytes()	'如果您不想直接顯示,可以把他保存到數據庫
			response.Flush 
    		set tempCls=nothing
 	end if
 end if
 set Upload=nothing						'銷毀類實例
%>
</body>
</html>