test.asp

教学平台

<!-- #include file="upfile_class.asp" -->
<%
	dim objUp
	set objUp = new UpFile_Class
	objUp.AllowExt = "jpg;gif;rar;doc;zip;ppt;txt;mp3;xls;rtf;docx;jar"
	objUp.GetData(1024*1024*10)
	objUp.AutoSave "file1",Server.mappath("files")& "\"

	set oFile = objUp.file("file1")
	Response.write oFile.fileName & "<br />"
	Response.write "New Name:" & objUp.file("file1").filename & "<br />"
	Select Case objUp.isErr
		Case 0
			response.write "上传成功"
		case 1
			response.write "没有数据上传"
		case 2
			response.write "文件大小超出"
		case 3
			response.write "该类型不允许上传"
	End select
	set objUp = nothing
%>