Saat ini, ada banyak komponen kelas pengunggahan .
unggah.asp kode file
<%
strfilename = request.querystring (fn)
Set ObjStream = Server.CreateObject (adodb.stream)
ObjStream.Type = 1 'Metode Biner AddypeBinary
objstream.open
Objstream.LoadFromFile Strfilename
objstream.savetofile server.mappath (zslogo.gif), 2
%>
Menggunakan
Masukkan di browser:
http: //xxx/upload.asp?
Di antara mereka, xxx adalah alamat nama domain situs web Anda, seperti: www.jzxue.com
Setelah dieksekusi, Anda akan melihat zslogo.gif di bawah direktori Anda, yang merupakan file yang baru saja Anda unggah!
Menurut prinsip unggahan asp no component, kami memperluas kode di atas ke kode berikut:
unggah.asp kode file
<%
Function getFileName (Byval FN)
Jika fn <> thetfilename = mid (fn, instrrev (fn,/)+1) lain getFileName =
Fungsi endfungsi
strfilename = request.form (file1)
Set ObjStream = Server.CreateObject (adodb.stream)
objstream.type = 1 'adtypeBinary
objstream.open
Objstream.LoadFromFile Strfilename
objstream.savetofile server.mappath (getFileName (strfilename)), 2
objstream.close
%>
unggah.htm kode file
<Form name = upform action = unggah.asp Metode = posting enctype = multipart/form-data>
<input type = file nama = file1 style = lebar: 400px;
<Input Type = Kirim Nama = Kirim Nilai = Unggah File/>
</form>