หน้าแรก>บทช่วยสอนการเขียนโปรแกรมเครือข่าย>กวดวิชา ASP

asp อัพโหลดไฟล์ในเครื่องไปยังเซิร์ฟเวอร์

ผู้เขียน：Eve Cole เวลาอัปเดต：2025-01-23 17:24:01

คุณควรทำอย่างไรหากต้องการวางรูปภาพหรือไฟล์ของเครื่องของคุณไว้บนเซิร์ฟเวอร์ มีสามตัวเลือก: 1. อัปโหลด FTP 2. ใช้แฟลชไดรฟ์ USB เพื่อคัดลอกไปยังเซิร์ฟเวอร์ 3. หากเซิร์ฟเวอร์รองรับ ฟังก์ชั่นอัพโหลด ASP ใช้หน้าเว็บ เบราว์เซอร์อัพโหลดไฟล์ไปยังเซิร์ฟเวอร์

วันนี้เราจะอธิบายวิธีใช้ฟังก์ชันอัพโหลดของ ASP เพื่ออัพโหลดไฟล์ในเครื่องไปยังเซิร์ฟเวอร์

ระบบที่ง่ายที่สุดประกอบด้วยสามไฟล์ต่อไปนี้:

upload.htm --อัปโหลดไฟล์พอร์ต เลือกไฟล์ในเครื่อง uploadimg.asp --อัปโหลดไฟล์ควบคุมโปรแกรม upload_5xsoft.inc --ไม่มีคลาสอัปโหลดส่วนประกอบ ผู้เริ่มต้นไม่จำเป็นต้องเรียนรู้ไฟล์นี้ ตราบใดที่ยังสามารถใช้งานได้

เนื้อหา upload.htm--อัปโหลดไฟล์พอร์ต เลือกไฟล์ในเครื่อง

  1. <html>
  2. <หัว>
  3. </หัว>
  5. <ร่างกาย>
  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=อัพโหลดรูปภาพ></td>
  13. </tr>
  14. </แบบฟอร์ม>
  15. </ตาราง>
  16. </ร่างกาย>
  17. </html>

เนื้อหา uploadimg.asp - อัปโหลดไฟล์ควบคุมโปรแกรม

  1. <!--#includeFILE=upload_5xsoft.inc-->
  2. -
  3. dimupload, ไฟล์, พาธไฟล์
  4. filepath=อัพโหลด/
  5. setupload=newupload_5xSoft''สร้างวัตถุอัปโหลด
  6. foreachformNameinupload.file'' แสดงรายการไฟล์ที่อัพโหลดทั้งหมด
  7. setfile=upload.file(formName)'' สร้างวัตถุไฟล์
  8. iffile.FileSize>0then''If FileSize>0 หมายความว่ามีข้อมูลไฟล์
  9. fname=file.ชื่อไฟล์
  10. file.SaveAsServer.mappath(filepath&fname)''บันทึกไฟล์
  11. สิ้นสุด
  12. setfile=ไม่มีอะไร
  13. ต่อไป
  14. setupload=nothing''ลบวัตถุนี้

เนื้อหา upload_5xsoft.inc

--เนื้อหาของไฟล์นี้ไม่ได้อยู่ในเนื้อหาของการเจาะนี้

  1. <SCRIPTRUNAT=SERVERLANGUAGE=VBSCRIPT>
  2. dimoUpFileStream
  4. Classupload_5xSoft
  6. dimForm,ไฟล์,เวอร์ชัน
  8. PrivateSubClass_Initialize
  9. dimRequestBinDate, sStart, bCrLf, sInfo, iInfoStart, iInfoEnd, tStream, iStart, oFileInfo
  10. dimiFileSize,sFilePath,sFileType,sFormvalue,sFileName
  11. dimiFindStart, iFindEnd
  12. dimiFormStart,iFormEnd,sFormName
  13. Version=ไม่มีคลาสอัพโหลดส่วนประกอบ Version0.93
  14. setForm=Server.CreateObject(สคริปต์.พจนานุกรม)
  15. setFile=Server.CreateObject(สคริปต์.พจนานุกรม)
  16. ifRequest.TotalBytes<1แล้วExitSub
  17. settStream=Server.CreateObject(adodb.stream)
  18. setoUpFileStream=Server.CreateObject(adodb.stream)
  19. oUpFileStream.Type=1
  20. oUpFileStream.Mode=3
  21. oUpFileStream.เปิด
  22. oUpFileStream.WriteRequest.BinaryRead (คำขอ TotalBytes)
  23. Response.Write<fontsize=2>เวลาดำเนินการเพจ: &FormatNumber((Timer()-time1)*1000,3)&มิลลิวินาที</font><br>
  24. oUpFileStream.Position=0
  25. RequestBinDate=oUpFileStream.Read
  26. iFormStart=1
  27. iFormEnd=LenB(RequestBinDate)
  28. bCrLf=chrB(13)&chrB(10)
  29. sStart=MidB(RequestBinDate,1,InStrB(iFormStart,RequestBinDate,bCrLf)-1)
  30. iStart=LenB(sStart)
  31. iFormStart=iFormStart+iStart+1
  32. ในขณะที่(iFormStart+10)<iFormEnd
  33. iInfoEnd=InStrB(iFormStart,RequestBinDate,bCrLf&bCrLf)+3
  34. tStream.Type=1
  35. tStream.Mode=3
  36. tStream.เปิด
  37. oUpFileStream.Position=iFormStart
  38. oUpFileStream.CopyTotStream,iInfoEnd-iFormStart
  39. tStream.ตำแหน่ง=0
  40. tStream.Type=2
  41. tStream.Charset=gb2312
  42. sInfo=tStream.ReadText
  43. 'รับชื่อรายการแบบฟอร์ม
  44. iFormStart=InStrB(iInfoEnd,RequestBinDate,sStart)
  45. iFindStart=InStr(22,sInfo,name=,1)+6
  46. iFindEnd=InStr(iFindStart,sInfo,,1)
  47. sFormName=กลาง(sinfo,iFindStart,iFindEnd-iFindStart)
  48. 'ถ้าเป็นไฟล์
  49. ifInStr(45,sInfo,filename=,1)>0แล้ว
  50. setoFileInfo=newFileInfo
  51. 'รับชื่อไฟล์
  52. iFindStart=InStr(iFindEnd,sInfo,ชื่อไฟล์=,1)+10
  53. iFindEnd=InStr(iFindStart,sInfo,,1)
  54. sFileName=กลาง(sinfo,iFindStart,iFindEnd-iFindStart)
  55. oFileInfo.FileName=getFileName(sFileName)
  56. oFileInfo.FilePath=getFilePath(sFileName)
  57. 'รับประเภทไฟล์
  58. iFindStart=InStr(iFindEnd,sInfo,ประเภทเนื้อหา:,1)+14
  59. iFindEnd=InStr(iFindStart,sInfo,vbCr)
  60. oFileInfo.FileType=กลาง(sinfo,iFindStart,iFindEnd-iFindStart)
  61. oFileInfo.FileStart=iInfoEnd
  62. oFileInfo.FileSize=iFormStart-iInfoEnd-3
  63. oFileInfo.FormName=sFormName
  64. file.addsFormName,oFileInfo
  65. อื่น
  66. 'ถ้าเป็นไอเทมรูปแบบ
  67. tStream.ปิด
  68. tStream.Type=1
  69. tStream.Mode=3
  70. tStream.เปิด
  71. oUpFileStream.Position=iInfoEnd
  72. oUpFileStream.CopyTotStream,iFormStart-iInfoEnd-3
  73. tStream.ตำแหน่ง=0
  74. tStream.Type=2
  75. tStream.Charset=gb2312
  76. sFormvalue=tStream.ReadText
  77. form.AddsFormName,sFormvalue
  78. สิ้นสุด
  79. tStream.ปิด
  80. iFormStart=iFormStart+iStart+1
  81. เวน
  82. RequestBinDate=
  83. setStream=ไม่มีอะไร
  84. สิ้นสุดย่อย
  86. PrivateSubClass_Terminate
  87. ifnotRequest.TotalBytes<1แล้ว
  88. แบบฟอร์ม RemoveAll
  89. ไฟล์ RemoveAll
  90. setform=ไม่มีอะไร
  91. setfile=ไม่มีอะไร
  92. oUpFileStream.ปิด
  93. setoUpFileStream=ไม่มีอะไร
  94. สิ้นสุด
  95. สิ้นสุดย่อย
  98. PrivatefunctionGetFilePath (FullPath)
  99. IfFullPath<>จากนั้น
  100. GetFilePath=ซ้าย(FullPath,InStrRev(FullPath,))
  101. อื่น
  102. GetFilePath=
  103. สิ้นสุดถ้า
  104. สิ้นสุดฟังก์ชัน
  106. PrivatefunctionGetFileName (FullPath)
  107. IfFullPath<>จากนั้น
  108. GetFileName=mid(FullPath,InStrRev(FullPath,)+1)
  109. อื่น
  110. GetFileName=
  111. สิ้นสุดถ้า
  112. สิ้นสุดฟังก์ชัน
  114. จบคลาส
  116. ClassFileInfo
  117. dimFormName, ชื่อไฟล์, FilePath, ขนาดไฟล์, ประเภทไฟล์, FileStart
  118. PrivateSubClass_Initialize
  119. ชื่อไฟล์=
  120. เส้นทางไฟล์=
  121. ขนาดไฟล์=0
  122. ไฟล์สตาร์ท=0
  123. ชื่อแบบฟอร์ม=
  124. ประเภทไฟล์=
  125. สิ้นสุดย่อย
  127. ฟังก์ชั่นสาธารณะบันทึกเป็น (FullPath)
  128. dimoFileStream,ErrorChar,i
  129. บันทึกเป็น=1
  130. iftrim(fullpath)=orright(fullpath,1)=/thenexitfunction
  131. setoFileStream=CreateObject(Adodb.Stream)
  132. oFileStream.Type=1
  133. oFileStream.Mode=3
  134. oFileStream.เปิด
  135. oUpFileStream.position=FileStart
  136. oUpFileStream.copytooFileStream,ขนาดไฟล์
  137. oFileStream.SaveToFileFullPath,2
  138. oFileStream.ปิด
  139. setoFileStream=ไม่มีอะไร
  140. บันทึกเป็น=0
  141. ฟังก์ชั่นสุดท้าย
  142. จบคลาส
  143. </สคริปต์>

สิ่งที่บทความนี้อธิบายคือโปรแกรมที่ง่ายที่สุดสำหรับการอัพโหลดไฟล์ เพื่อนๆ โปรดวิเคราะห์ด้วยตัวเอง หลังจากเรียนรู้การเจาะลึกนี้ คุณจะเชี่ยวชาญฟังก์ชันการอัพโหลดทั่วไปของ ASP

บทความที่เกี่ยวข้อง