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

<%

  Server.ScriptTimeout = 9999
 
  set Upload = new DoteyUpload
  Upload.MaxTotalBytes = 10 *1024 *1024	' 最大10MB

  Upload.ProgressID = Request.QueryString("ProgressID")
  Upload.Upload() '上傳演示，不保存到硬盤

  If Request.TotalBytes > 10 *1024 *1024 Then
	Response.Write "不要上傳超過(guò)10MB的文件"
	Response.End
  End If 

  if Upload.ErrMsg <> "" then 
    Response.Write(Upload.ErrMsg)
    Response.End()
  end if

  if Upload.Files.Count > 0 then
	Items = Upload.Files.Items
  end if

  Response.Write("您已上傳 " & Upload.Files.Count & " 個(gè)文件到: " & path & "<hr>")
  for each File in Upload.Files.Items
	'File.SaveAs("c:\" & File.FileName)	''如果要保存，則去掉前面的注釋
    Response.Write("文件名: " & File.FileName & "<br>")
    Response.Write("文件大小: " & File.FileSize/1024 & " KB<br>")
    Response.Write("文件類型: " & File.FileType & "<br>")
    Response.Write("客戶端路徑: " & File.FilePath & "<br>")
    Response.Write("<hr>")
  next
  Response.Write("<br>")
%>