upload.asp

来自「本组件是继作者原“艾恩ASP无组件上传类”修改整合而成, 具有和无组件上传类相」· ASP 代码 · 共 28 行

<!--#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>