Select a file to upload:   <% 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 %> Noted: In order to reduce your file transfer time, don't upload any file larger than 1,024K. To see the file you upload click here.
	No. 48, Lane 349, Hwa Chen Rd., Hsin Chuang, Taipei Hsien, Taiwan, R.O.C. Tel: +886-2-8521-6285 Fax: +886-2-8521-2282 E-Mail:sales@singyuan.com.tw