請選擇您要上傳的檔案:
 
<% Dim upl, NewFileName Set upl = Server.CreateObject("ASPSimpleUpload.Upload") If Len(upl.Form("File1")) > 0 Then NewFileName = "/upload/" & upl.ExtractFileName(upl.Form("File1")) If upl.SaveToWeb("File1", NewFileName) Then Response.Write("File successfully written to disk.") Else Response.Write("There was an error saving the file to disk.") End If End If %>
請注意:為節省您檔案上傳時間,請勿上傳大小超過1,024Kb的檔案,
如果您想知道您上傳的結果請按這裡