Beranda>Tutorial Pemrograman Jaringan>tutorial ASP

asp mengunggah file lokal ke server

Penulis：Eve Cole Waktu Pembaruan：2025-01-23 17:24:01

Apa yang harus Anda lakukan jika Anda ingin meletakkan gambar atau file mesin Anda di server? Ada tiga pilihan: 1. Upload FTP, 2. Gunakan flash drive USB untuk menyalin ke server, 3. Jika server mendukung Fungsi unggah ASP, gunakan halaman web Browser mengunggah file ke server.

Hari ini kami menjelaskan cara menggunakan fungsi unggah asp untuk mengunggah file lokal ke server.

Sistem paling sederhana mencakup tiga file berikut:

upload.htm --Unggah file port, pilih file lokal uploadimg.asp --Unggah file kontrol program upload_5xsoft.inc --Tidak ada kelas unggah komponen, pemula tidak perlu mempelajari file ini, selama mereka bisa menggunakannya

upload.htm content--upload file port, pilih file lokal

  1. <html>
  2. <kepala>
  3. </kepala>
  5. <tubuh>
  6. <tablewidth=80%border=0align=center>
  7. <formname=form1method=postaction=uploadimg.aspenctype=multipart/form-data>
  8. <tr>
  9. <tdalign=center><inputname=upfiletype=fileid=upfile></td>
  10. </tr>
  11. <tr>
  12. <tdalign=center><inputtype=submitname=Submitvalue=Unggah gambar></td>
  13. </tr>
  14. </bentuk>
  15. </tabel>
  16. </tubuh>
  17. </html>

uploadimg.asp content--upload file kontrol program

  1. <!--#includeFILE=upload_5xsoft.inc-->
  2. <%
  3. dimupload,file,jalur file
  4. jalur file=UPLOAD/
  5. setupload=newupload_5xSoft''Buat objek unggahan
  6. foreachformNameinupload.file'' mencantumkan semua file yang diunggah
  7. setfile=upload.file(formName)'' menghasilkan objek file
  8. iffile.FileSize>0maka''Jika FileSize>0 berarti ada data file
  9. fname=file.namafile
  10. file.SaveAsServer.mappath(jalur file&fname)''Simpan file
  11. endif
  12. setfile=tidak ada
  13. Berikutnya
  14. setupload=nothing''Hapus objek ini

upload_5xsoft.inc konten

--Isi file ini bukan milik konten latihan ini. Latihan ini menerapkan metode ini

  1. <SCRIPTRUNAT=SERVERLANGUAGE=VBSCRIPT>
  2. dimoUpFileStream
  4. Classupload_5xSoft
  6. dimForm, File, Versi
  8. PrivateSubClass_Inisialisasi
  9. dimRequestBinDate,sStart,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo
  10. dimiFileSize,sFilePath,sFileType,sFormvalue,sFileName
  11. dimiFindStart,iFindEnd
  12. dimiFormStart,iFormEnd,sFormName
  13. Versi=Tidak ada kelas unggah komponen Versi0.93
  14. setForm=Server.CreateObject(Scripting.Kamus)
  15. setFile=Server.CreateObject(Scripting.Kamus)
  16. ifRequest.TotalBytes<1thenExitSub
  17. settStream=Server.CreateObject(adodb.stream)
  18. setoUpFileStream=Server.CreateObject(adodb.stream)
  19. oUpFileStream.Jenis=1
  20. oUpFileStream.Mode=3
  21. oUpFileStream.Buka
  22. oUpFileStream.WriteRequest.BinaryRead(Permintaan.TotalBytes)
  23. Response.Write<fontsize=2>Waktu eksekusi halaman: &FormatNumber((Timer()-time1)*1000,3)&milidetik</font><br>
  24. oUpFileStream.Posisi=0
  25. RequestBinDate=oUpFileStream.Baca
  26. iFormMulai=1
  27. iFormEnd=LenB(RequestBinDate)
  28. bCrLf=chrB(13)&chrB(10)
  29. sStart=MidB(RequestBinDate,1,InStrB(iFormStart,RequestBinDate,bCrLf)-1)
  30. iMulai=LenB(sMulai)
  31. iFormMulai=iFormMulai+iMulai+1
  32. sementara(iFormStart+10)<iFormEnd
  33. iInfoEnd=InStrB(iFormStart,RequestBinDate,bCrLf&bCrLf)+3
  34. tStream.Jenis=1
  35. tStream.Mode=3
  36. tStream.Buka
  37. oUpFileStream.Position=iFormStart
  38. oUpFileStream.CopyTotStream,iInfoEnd-iFormStart
  39. tStream.Posisi=0
  40. tStream.Jenis=2
  41. tStream.Charset=gb2312
  42. sInfo=tStream.BacaTeks
  43. 'Dapatkan nama item formulir
  44. iFormStart=InStrB(iInfoEnd,RequestBinDate,sMulai)
  45. iFindStart=InStr(22,sInfo,nama=,1)+6
  46. iFindEnd=InStr(iFindStart,sInfo,,1)
  47. sFormName=Pertengahan(sinfo,iFindStart,iFindEnd-iFindStart)
  48. 'Jika itu adalah file
  49. ifInStr(45,sInfo,namafile=,1)>0lalu
  50. setoFileInfo=newFileInfo
  51. 'Dapatkan nama file
  52. iFindStart=InStr(iFindEnd,sInfo,namafile=,1)+10
  53. iFindEnd=InStr(iFindStart,sInfo,,1)
  54. sFileName=Pertengahan(sinfo,iFindStart,iFindEnd-iFindStart)
  55. oFileInfo.FileName=getFileName(sFileName)
  56. oFileInfo.FilePath=getFilePath(sFileName)
  57. 'Dapatkan jenis file
  58. iFindStart=InStr(iFindEnd,sInfo,Tipe Konten:,1)+14
  59. iFindEnd=InStr(iFindStart,sInfo,vbCr)
  60. oFileInfo.FileType=Tengah(sinfo,iFindStart,iFindEnd-iFindStart)
  61. oFileInfo.FileStart=iInfoEnd
  62. oFileInfo.FileSize=iFormStart-iInfoEnd-3
  63. oFileInfo.FormName=sFormName
  64. file.addsFormName,oFileInfo
  65. kalau tidak
  66. 'Jika itu adalah item formulir
  67. tStream.Tutup
  68. tStream.Jenis=1
  69. tStream.Mode=3
  70. tStream.Buka
  71. oUpFileStream.Position=iInfoEnd
  72. oUpFileStream.CopyTotStream,iFormStart-iInfoEnd-3
  73. tStream.Posisi=0
  74. tStream.Jenis=2
  75. tStream.Charset=gb2312
  76. sFormvalue=tStream.BacaTeks
  77. form.AddsFormName,sFormvalue
  78. endif
  79. tStream.Tutup
  80. iFormMulai=iFormMulai+iMulai+1
  81. pergi ke
  82. PermintaanBinTanggal=
  83. setStream=tidak ada
  84. Sub Akhir
  86. PrivateSubClass_Terminate
  87. ifnotRequest.TotalBytes<1lalu
  88. form.RemoveAll
  89. file.HapusSemua
  90. bentuk set=tidak ada
  91. setfile=tidak ada
  92. oUpFileStream.Tutup
  93. setoUpFileStream=tidak ada
  94. endif
  95. Sub Akhir
  98. Fungsi PribadiGetFilePath(Path Lengkap)
  99. IfFullPath<>Lalu
  100. GetFilePath=kiri(FullPath,InStrRev(FullPath,))
  101. Kalau tidak
  102. DapatkanJalur File=
  103. AkhirJika
  104. Fungsi akhir
  106. Fungsi PribadiDapatkanNamaFile(Path Lengkap)
  107. IfFullPath<>Lalu
  108. GetFileName=tengah(FullPath,InStrRev(FullPath,)+1)
  109. Kalau tidak
  110. Dapatkan Nama File=
  111. AkhirJika
  112. Fungsi akhir
  114. Kelas Akhir
  116. Info File Kelas
  117. dimFormName,Nama File,Jalur File,Ukuran File,Jenis File,FileStart
  118. PrivateSubClass_Inisialisasi
  119. Nama File=
  120. Jalur File=
  121. Ukuran File=0
  122. FileMulai=0
  123. Nama Formulir=
  124. Tipe File=
  125. Sub Akhir
  127. Fungsi PublikSaveAs(FullPath)
  128. dimoFileStream,ErrorChar,i
  129. Simpan Sebagai=1
  130. iftrim(fullpath)=orright(fullpath,1)=/lalu keluarfungsi
  131. setoFileStream=Buat Objek(Adodb.Stream)
  132. oFileStream.Jenis=1
  133. oFileStream.Mode=3
  134. oFileStream.Buka
  135. oUpFileStream.position=FileMulai
  136. oUpFileStream.copytooFileStream,Ukuran File
  137. oFileStream.SaveToFileFullPath,2
  138. oFileStream.Tutup
  139. setoFileStream=tidak ada
  140. Simpan Sebagai=0
  141. fungsi akhir
  142. Kelas Akhir
  143. </SKRIP>

Apa yang dijelaskan dalam artikel ini adalah program paling sederhana untuk mengunggah file. Teman-teman, silakan analisis sendiri. Setelah mempelajari latihan ini, pada dasarnya Anda akan menguasai fungsi unggahan umum ASP.

Artikel Terkait