홈페이지>네트워크 프로그래밍 튜토리얼>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. </head>
  5. <본문>
  6. <테이블너비=80%국경=0정렬=가운데>
  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. </form>
  15. </table>
  16. </body>
  17. </html>

uploadimg.asp 콘텐츠--프로그램 제어 파일 업로드

  1. <!--#includeFILE=upload_5xsoft.inc-->
  2. <%
  3. 딤업로드,파일,파일경로
  4. 파일 경로=업로드/
  5. setupload=newupload_5xSoft''업로드 객체 생성
  6. foreachformNameinupload.file''은 업로드된 모든 파일을 나열합니다.
  7. setfile=upload.file(formName)''은 파일 객체를 생성합니다.
  8. iffile.FileSize>0then''FileSize>0이면 파일 데이터가 있음을 의미합니다.
  9. fname=파일.파일 이름
  10. file.SaveAsServer.mappath(파일 경로&f이름)''파일 저장
  11. 엔디프
  12. 세트파일=아무것도 없음
  13. 다음
  14. setupload=nothing''이 개체 삭제

upload_5xsoft.inc 콘텐츠

--이 파일의 내용은 이 훈련의 내용에 속하지 않습니다. 이 훈련은 이 방법을 적용합니다.

  1. <SCRIPTRUNAT=SERVERLANGUAGE=VBSCRIPT>
  2. dimoUpFileStream
  4. Classupload_5xSoft
  6. 희미한 형식, 파일, 버전
  8. PrivateSubClass_Initialize
  9. 희미한RequestBinDate,sStart,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo
  10. dimiFileSize,sFilePath,sFileType,sFormvalue,sFileName
  11. dimiFindStart,iFindEnd
  12. dimiFormStart,iFormEnd,sFormName
  13. 버전=구성요소 업로드 클래스가 없습니다. Version0.93
  14. setForm=Server.CreateObject(Scripting.Dictionary)
  15. setFile=Server.CreateObject(Scripting.Dictionary)
  16. ifRequest.TotalBytes<1thenExitSub
  17. settStream=Server.CreateObject(adodb.stream)
  18. setoUpFileStream=Server.CreateObject(adodb.stream)
  19. oUpFileStream.Type=1
  20. oUpFileStream.Mode=3
  21. oUpFileStream.Open
  22. oUpFileStream.WriteRequest.BinaryRead(Request.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. while(iFormStart+10)<iFormEnd
  33. iInfoEnd=InStrB(iFormStart,RequestBinDate,bCrLf&bCrLf)+3
  34. tStream.유형=1
  35. tStream.모드=3
  36. tStream.Open
  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=Mid(sinfo,iFindStart,iFindEnd-iFindStart)
  48. '파일이라면
  49. ifInStr(45,sInfo,filename=,1)>0then
  50. setoFileInfo=newFileInfo
  51. '파일명을 알아내세요
  52. iFindStart=InStr(iFindEnd,sInfo,파일 이름=,1)+10
  53. iFindEnd=InStr(iFindStart,sInfo,,1)
  54. sFileName=Mid(sinfo,iFindStart,iFindEnd-iFindStart)
  55. oFileInfo.FileName=getFileName(s파일이름)
  56. oFileInfo.FilePath=getFilePath(s파일 이름)
  57. '파일 형식 가져오기
  58. iFindStart=InStr(iFindEnd,sInfo,Content-Type:,1)+14
  59. iFindEnd=InStr(iFindStart,sInfo,vbCr)
  60. oFileInfo.FileType=Mid(sinfo,iFindStart,iFindEnd-iFindStart)
  61. oFileInfo.FileStart=iInfoEnd
  62. oFileInfo.FileSize=iFormStart-iInfoEnd-3
  63. oFileInfo.FormName=sFormName
  64. file.addsFormName,o파일정보
  65. 또 다른
  66. '양식 항목인 경우
  67. tStream.Close
  68. tStream.유형=1
  69. tStream.모드=3
  70. tStream.Open
  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.Close
  80. iFormStart=iFormStart+iStart+1
  81. 향하게 하다
  82. 요청BinDate=
  83. setStream=아무것도 없음
  84. EndSub
  86. PrivateSubClass_Terminate
  87. ifnotRequest.TotalBytes<1then
  88. form.RemoveAll
  89. 파일.모두 제거
  90. 세트폼=아무것도 없음
  91. 세트파일=아무것도 없음
  92. oUpFileStream.Close
  93. setoUpFileStream=아무것도 없음
  94. 엔디프
  95. EndSub
  98. PrivatefunctionGetFilePath(전체 경로)
  99. IfFullPath<>Then
  100. GetFilePath=왼쪽(전체 경로, InStrRev(전체 경로,))
  101. 또 다른
  102. 파일 경로 가져오기=
  103. 종료
  104. 기능 종료
  106. PrivatefunctionGetFileName(전체 경로)
  107. IfFullPath<>Then
  108. GetFileName=mid(FullPath,InStrRev(FullPath,)+1)
  109. 또 다른
  110. 파일이름 가져오기=
  111. 종료
  112. 기능 종료
  114. EndClass
  116. 클래스파일정보
  117. 희미한 형식 이름, 파일 이름, 파일 경로, 파일 크기, 파일 유형, 파일 시작
  118. PrivateSubClass_Initialize
  119. 파일 이름=
  120. 파일 경로=
  121. 파일크기=0
  122. 파일시작=0
  123. 양식 이름=
  124. 파일 유형=
  125. EndSub
  127. PublicfunctionSaveAs(전체 경로)
  128. dimoFileStream,ErrorChar,i
  129. 다른 이름으로 저장=1
  130. iftrim(fullpath)=orright(fullpath,1)=/thenexit함수
  131. setoFileStream=CreateObject(Adodb.Stream)
  132. oFileStream.Type=1
  133. oFileStream.Mode=3
  134. oFileStream.Open
  135. oUpFileStream.position=FileStart
  136. oUpFileStream.copytooFileStream,파일 크기
  137. oFileStream.SaveToFileFullPath,2
  138. oFileStream.Close
  139. setoFileStream=아무것도 없음
  140. 다른 이름으로 저장=0
  141. 최종 기능
  142. EndClass
  143. </SCRIPT>

이 기사에서 설명하는 것은 파일 업로드를 위한 가장 간단한 프로그램입니다. 친구 여러분, 직접 분석해 보십시오. 이 훈련을 배우면 기본적으로 ASP의 일반적인 업로드 기능을 마스터하게 됩니다.

관련 기사