<!-- #include file="Upload.asp" -->

<%
Server.ScriptTimeout = 900

formPath = "UploadFiles/"

Set upload= New DoteyUpload

Upload.SaveTo(formPath) '將文件根據其文件名統一保存在某路徑下

If upload.ErrMsg = "" then
	Response.Write ("列出所有form數據:<BR>")
	For each formName in upload.Form ''列出所有form數據
		Response.write formName & "=" & upload.Form(formName) & "<br>"
	next

	Response.Write ("<BR><BR>列出所有上傳了的文件:<BR>")
	For Each formName In upload.Files ''列出所有上傳了的文件
		Set file = upload.Files(formName)  ''生成一個文件對象
		response.write file.FilePath  & " (" & file.FileType & "/" & file.FileSize/1024 &"K) => <a target=_blank href='" & formPath & File.FileName & "'>" & formPath & File.FileName & "</a> 成功!<br>"
		response.write "<br /><BR>"
		Set file=nothing
	Next
Else
	Response.Write("上傳過程中出現錯誤:<br>" & Upload.ErrMsg)
End If

Set upload=nothing
%>