Stimson (karya asli)
saat ini memiliki banyak kelas unggah tanpa komponen. Saya melihatnya dan menemukan bahwa kebanyakan dari mereka cukup rumit. Beberapa hanya dapat mengirimkan teks kode :) Saya menghabiskan sepanjang malam. Saya mempelajari ADODB.Stream dan menggunakan 6 baris kode untuk mengimplementasikan unggahan tanpa komponen:
strFileName = Request.QueryString("file1")
Setel objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Buka
objStream.LoadFromFile strFileName
objStream.SaveToFile Server."123_onweb.gif",2
Cara menggunakan:
Tulis kode di atas sebagai upload.asp
Masuk ke browser:
GetFileName = pertengahan(strFile,InStrRev(strFile, "")+1)
Kalau tidak
DapatkanNamaFile = ""
Akhiri Jika
Fungsi akhir
strFileName = Permintaan.Form("file1")
Setel objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Buka
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
objStream.Tutup
%>
unggah file.htm
<form nama="FORM" action="upload.asp" metode="post">
<input type="kirim" nama="kirim" value="OK">
<masukan tipe="file" nama="file1" style="lebar:400" value="">
</bentuk>