Direkomendasikan: Unggah bebas komponen ASP dengan bilah kemajuan nyata Unggah bebas komponen ASP dengan bilah kemajuan nyata tanpa unggahan bebas komponen dengan bilah kemajuan nyata, di mana unggah.asp adalah kode inti. Kecuali jika Anda perlu kebutuhan khusus, demo.htm adalah demonstrasi tanpa bilah kemajuan refresh (IE5.5+ dukungan). Demo.asp adalah file yang diunggah oleh demo.asp. Karena demo membutuhkannya, itu hanya diunggah dalam demo.asp dan tidak menyimpannya. Jika Anda perlu menyimpannya, Anda hanya perlu menghapus yang relevan
<%
Function saveremotefile (localfilename, remoteFileUrl)
SaveremoteFile = true
Iklan redup, pengambilan, getremotedata
Set Retrieval = Server.CreateObject (microsoft.xmlhttp)
Dengan pengambilan
.Open Get, RemoteFileurl, False ,,
.Mengirim
Jika .readystate <> 4 lalu
Saveremotefile = false
Fungsi keluar
Akhiri jika
Getremotedata = .responseBody
Berakhir dengan
Atur retrieval = tidak ada
Set ADS = Server.CreateObject (AdodB.Stream)
Dengan iklan
.Type = 1
.Membuka
.Write getremotedata
.Savetofile server.mappath (localfilename), 2
.Membatalkan()
.Menutup()
Berakhir dengan
Setel iklan = tidak ada
Fungsi akhir
%>
<%
'Berikut ini adalah contoh panggilan:
remoteUrl = http: //www.uyux.cn/logo.gif'remote nama file (jalur lengkap absolute)
localfile = ganti (ganti (ganti (sekarang (),-,),),) ,:,) & kanan (remoteurl, 4) 'nama file asli (dapat disesuaikan)
Jika saveremotefile (localfile, remoteUrl) = true maka
Response.write (simpan berhasil: & localfile)
Akhiri jika
%>
-
Bagikan: ASP mewujudkan efek paging bebas penyegaran statis # FormattableId_0# HTML HEAD Title Daftar Berita Sederhana/Judul Bahasa Skrip = JavaScript!- // Kontrol AJAX juga dapat dibuat menjadi file terpisah untuk memfasilitasi fungsi panggilan AJAX () {var xhrobj = null; if (window.xmlHttpRequest) {xhrobj = new xmlHttpRequest (); } lain jika (window.activex