<!--#include file="../upload_class.asp"-->
<%
 on error resume next
 Dim Upload : set Upload=new AnUpLoad				 			'創建類實例
 Upload.GetData()												'獲取并保存數據,必須調用本方法
 filename=Upload.save("file1").AsThis(server.mappath("."),0)	'調用簡易保存方法1,保存上傳文件到本頁面所在文件夾
 'filename=Upload.saveAs("file1",server.mappath("."),0)			'調用簡易保存方法2,保存上傳文件到本頁面所在文件夾;和上面的方法功能完全一樣
 response.write filename										'輸出文件名,由上面的函數返回
 set Upload=nothing												'銷毀類實例
 if err then response.write err.description
%>