Главная страница>Учебник по сетевому программированию>Учебное пособие по 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 content — загрузить файл порта, выбрать локальный файл.

  1. <html>
  2. <голова>
  3. </голова>
  5. <тело>
  6. <tablewidth=80%border=0align=center>
  7. <formname=form1method=postaction=uploadimg.aspenctype=multipart/form-data>
  8. <тр>
  9. <tdalign=center><inputname=upfiletype=fileid=upfile></td>
  10. </tr>
  11. <тр>
  12. <tdalign=center><inputtype=submitname=Submitvalue=Загрузить изображения></td>
  13. </tr>
  14. </форма>
  15. </таблица>
  16. </тело>
  17. </html>

uploadimg.asp content — загрузить управляющий файл программы.

  1. <!--#includeFILE=upload_5xsoft.inc-->
  2. <%
  3. dimupload, файл, путь к файлу
  4. путь к файлу = ЗАГРУЗИТЬ/
  5. setupload=newupload_5xSoft''Создать объект загрузки
  6. foreachformNameinupload.file'' перечисляет все загруженные файлы
  7. setfile=upload.file(formName)'' генерирует файловый объект
  8. iffile.FileSize>0then''Если 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. димифиндстарт, iFindEnd
  12. dimiFormStart, iFormEnd, sFormName
  13. Версия = Нет класса загрузки компонентов Версия 0.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. бКрЛф=хрБ(13)&хрБ(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.Type=1
  35. tStream.Mode=3
  36. tStream.Open
  37. oUpFileStream.Position=iFormStart
  38. oUpFileStream.CopyTotStream,iInfoEnd-iFormStart
  39. tStream.Position=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. еслиInStr(45,sInfo,filename=,1)>0то
  50. setoFileInfo=newFileInfo
  51. 'Получаем имя файла
  52. iFindStart=InStr(iFindEnd,sInfo,filename=,1)+10
  53. iFindEnd=InStr(iFindStart,sInfo,,1)
  54. sFileName=Mid(sinfo,iFindStart,iFindEnd-iFindStart)
  55. oFileInfo.FileName=getFileName(sFileName)
  56. oFileInfo.FilePath=getFilePath(sFileName)
  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, oFileInfo
  65. еще
  66. 'Если это элемент формы
  67. tStream.Close
  68. tStream.Type=1
  69. tStream.Mode=3
  70. tStream.Open
  71. oUpFileStream.Position=iInfoEnd
  72. oUpFileStream.CopyTotStream,iFormStart-iInfoEnd-3
  73. tStream.Position=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. RequestBinDate=
  83. setStream = ничего
  84. EndSub
  86. PrivateSubClass_Terminate
  87. ifnotRequest.TotalBytes<1тогда
  88. форма.RemoveAll
  89. файл.RemoveAll
  90. setform=ничего
  91. setfile=ничего
  92. oUpFileStream.Close
  93. setoUpFileStream=ничего
  94. конец
  95. EndSub
  98. Частная функцияGetFilePath(FullPath)
  99. ЕслиПолныйПуть<>Тогда
  100. GetFilePath = влево (FullPath, InStrRev (FullPath,))
  101. Еще
  102. GetFilePath=
  103. КонецЕсли
  104. Конечная функция
  106. Частная функцияGetFileName(FullPath)
  107. ЕслиПолныйПуть<>Тогда
  108. GetFileName=mid(FullPath,InStrRev(FullPath,)+1)
  109. Еще
  110. ПолучитьИмяФайла=
  111. КонецЕсли
  112. Конечная функция
  114. Конечныйкласс
  116. Классфилеинфо
  117. dimFormName, FileName, FilePath, FileSize, FileType, FileStart
  118. PrivateSubClass_Initialize
  119. ИмяФайла=
  120. FilePath=
  121. РазмерФайла=0
  122. ФилеСтарт=0
  123. ИмяФормы=
  124. ТипФайла=
  125. EndSub
  127. Публичная функцияSaveAs (FullPath)
  128. dimoFileStream, ErrorChar, я
  129. Сохранить как=1
  130. iftrim(fullpath)=orright(fullpath,1)=/thenexitfunction
  131. setoFileStream=CreateObject(Adodb.Stream)
  132. oFileStream.Type=1
  133. oFileStream.Mode=3
  134. oFileStream.Open
  135. oUpFileStream.position=Начало файла
  136. oUpFileStream.copytooFileStream, FileSize
  137. oFileStream.SaveToFileFullPath, 2
  138. oFileStream.Close
  139. setoFileStream = ничего
  140. СохранитьКак=0
  141. конечная функция
  142. Конечныйкласс
  143. </СКРИПТ>

В этой статье описывается простейшая программа для загрузки файлов. Друзья, пожалуйста, проанализируйте ее самостоятельно. Изучив это упражнение, вы в основном освоите общую функцию загрузки ASP.

Связанные статьи