Inicio>Tutorial de programación de red>Tutorial ASP

asp carga archivos locales al servidor

Autor：Eve Cole Fecha de actualización：2025-01-23 17:24:01

¿Qué debe hacer si desea colocar las imágenes o archivos de su máquina en el servidor? Hay tres opciones: 1. Carga FTP, 2. Usar una unidad flash USB para copiar al servidor, 3. Si el servidor admite el Función de carga ASP, utilice la página web. El navegador carga el archivo en el servidor.

Hoy explicamos cómo utilizar la función de carga de asp para cargar archivos locales al servidor.

El sistema más simple incluye los siguientes tres archivos:

upload.htm --Cargar archivo de puerto, seleccionar archivo local uploadimg.asp --Cargar archivo de control del programa upload_5xsoft.inc --Sin clases de carga de componentes, los principiantes no necesitan aprender este archivo, siempre que puedan usarlo

cargar contenido.htm: cargar el archivo de puerto, seleccionar el archivo local

  1. <html>
  2. <cabeza>
  3. </cabeza>
  5. <cuerpo>
  6. <ancho de tabla=80%border=0align=centro>
  7. <nombre del formulario=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=Subir imágenes></td>
  13. </tr>
  14. </formulario>
  15. </tabla>
  16. </cuerpo>
  17. </html>

contenido uploadimg.asp: cargar archivo de control del programa

  1. <!--#includeFILE=upload_5xsoft.inc-->
  2. <%
  3. dimupload,archivo,ruta del archivo
  4. ruta de archivo = SUBIR/
  5. setupload=newupload_5xSoft''Crear objeto de carga
  6. foreachformNameinupload.file'' enumera todos los archivos cargados
  7. setfile=upload.file(formName)'' genera un objeto de archivo
  8. iffile.FileSize>0entonces''Si FileSize>0, significa que hay datos de archivo
  9. fname=archivo.nombredearchivo
  10. file.SaveAsServer.mappath(filepath&fname)''Guardar archivo
  11. endif
  12. setfile=nada
  13. próximo
  14. setupload=nada''Eliminar este objeto

contenido upload_5xsoft.inc

--El contenido de este archivo no pertenece al contenido de este simulacro. Este simulacro aplica este método.

  1. <SCRIPTRUNAT=IDIOMA DEL SERVIDOR=VBSCRIPT>
  2. dimoUpFileStream
  4. Classupload_5xSoft
  6. dimForm,Archivo,Versión
  8. PrivateSubClass_Initialize
  9. dimRequestBinDate,sStart,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo
  10. dimiFileSize,sFilePath,sFileType,sFormvalue,sFileName
  11. dimiBuscarInicio,iBuscarFin
  12. dimiFormStart,iFormEnd,sNombreForm
  13. Versión=Sin clase de carga de componente Versión0.93
  14. setForm=Servidor.CreateObject(Scripting.Diccionario)
  15. setFile=Servidor.CreateObject(Scripting.Diccionario)
  16. ifRequest.TotalBytes<1entoncesSalirSub
  17. settStream=Servidor.CreateObject(adodb.stream)
  18. setoUpFileStream=Servidor.CreateObject(adodb.stream)
  19. oUpFileStream.Type=1
  20. oUpFileStream.Modo=3
  21. oUpFileStream.Open
  22. oUpFileStream.WriteRequest.BinaryRead(Solicitud.TotalBytes)
  23. Response.Write<fontsize=2>Tiempo de ejecución de la página: &FormatNumber((Timer()-time1)*1000,3)&millisegundos</font><br>
  24. oUpFileStream.Position=0
  25. RequestBinDate=oUpFileStream.Read
  26. iFormInicio=1
  27. iFormEnd=LenB(RequestBinDate)
  28. bCrLf=chrB(13)&chrB(10)
  29. sInicio=MidB(RequestBinDate,1,InStrB(iFormStart,RequestBinDate,bCrLf)-1)
  30. iInicio=LenB(sInicio)
  31. iFormInicio=iFormInicio+iInicio+1
  32. mientras(iFormInicio+10)<iFormEnd
  33. iInfoEnd=InStrB(iFormStart,RequestBinDate,bCrLf&bCrLf)+3
  34. tStream.Tipo=1
  35. tStream.Modo=3
  36. tStream.Open
  37. oUpFileStream.Position=iFormInicio
  38. oUpFileStream.CopyTotStream,iInfoEnd-iFormStart
  39. tStream.Position=0
  40. tStream.Tipo=2
  41. tStream.Charset=gb2312
  42. sInfo=tStream.ReadText
  43. 'Obtener nombre del elemento del formulario
  44. iFormStart=InStrB(iInfoEnd,RequestBinDate,sInicio)
  45. iFindStart=InStr(22,sInfo,nombre=,1)+6
  46. iFindEnd=InStr(iFindStart,sInfo,,1)
  47. sFormName=Mid(sinfo,iFindStart,iFindEnd-iFindStart)
  48. 'Si es un archivo
  49. ifInStr(45,sInfo,nombre de archivo=,1)>0entonces
  50. setoFileInfo=nueva información de archivo
  51. 'Obtener el nombre del archivo
  52. iFindStart=InStr(iFindEnd,sInfo,nombre de archivo=,1)+10
  53. iFindEnd=InStr(iFindStart,sInfo,,1)
  54. sFileName=Mid(sinfo,iFindStart,iFindEnd-iFindStart)
  55. oFileInfo.FileName=getFileName(sFileName)
  56. oFileInfo.FilePath=getFilePath(sNombreArchivo)
  57. 'Obtener tipo de archivo
  58. iFindStart=InStr(iFindEnd,sInfo,Tipo de contenido:,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=sNombredelformulario
  64. archivo.addsFormName,oFileInfo
  65. demás
  66. 'Si es un elemento de formulario
  67. tStream.Cerrar
  68. tStream.Tipo=1
  69. tStream.Modo=3
  70. tStream.Open
  71. oUpFileStream.Position=iInfoEnd
  72. oUpFileStream.CopyTotStream,iFormStart-iInfoEnd-3
  73. tStream.Position=0
  74. tStream.Tipo=2
  75. tStream.Charset=gb2312
  76. sFormvalue=tStream.ReadText
  77. form.AddsFormName,sFormvalue
  78. endif
  79. tStream.Cerrar
  80. iFormInicio=iFormInicio+iInicio+1
  81. encaminarse a
  82. SolicitudBinDate=
  83. setStream=nada
  84. FinSub
  86. PrivateSubClass_Terminate
  87. si noRequest.TotalBytes<1entonces
  88. formulario.RemoveAll
  89. archivo.RemoveAll
  90. establecer formulario = nada
  91. setfile=nada
  92. oUpFileStream.Cerrar
  93. setoUpFileStream=nada
  94. endif
  95. FinSub
  98. Función privadaGetFilePath(Ruta completa)
  99. Si ruta completa <> entonces
  100. GetFilePath=izquierda(RutaCompleta,InStrRev(RutaCompleta,))
  101. Demás
  102. Obtener ruta de archivo =
  103. Fin si
  104. Función final
  106. Función privadaGetFileName(Ruta completa)
  107. Si ruta completa <> entonces
  108. GetFileName=mid(RutaCompleta,InStrRev(RutaCompleta,)+1)
  109. Demás
  110. Obtener nombre de archivo =
  111. Fin si
  112. Función final
  114. Clase final
  116. Información de archivo de clase
  117. dimFormName, nombre de archivo, ruta de archivo, tamaño de archivo, tipo de archivo, inicio de archivo
  118. PrivadaSubClass_Initialize
  119. Nombre de archivo =
  120. RutaDeArchivo=
  121. Tamaño de archivo = 0
  122. Inicio de archivo = 0
  123. Nombre del formulario =
  124. Tipo de archivo =
  125. FinSub
  127. Función públicaGuardar como (ruta completa)
  128. dimoFileStream,ErrorChar,i
  129. Guardar como=1
  130. iftrim(ruta completa)=oright(ruta completa,1)=/thenexitfunction
  131. setoFileStream=CrearObjeto(Adodb.Stream)
  132. oFileStream.Type=1
  133. oFileStream.Mode=3
  134. oFileStream.Open
  135. oUpFileStream.position=Inicio de archivo
  136. oUpFileStream.copytooFileStream,Tamaño de archivo
  137. oFileStream.SaveToFileFullPath,2
  138. oFileStream.Cerrar
  139. setoFileStream=nada
  140. Guardar como=0
  141. función final
  142. Clase final
  143. </SCRIPT>

Lo que este artículo describe es el programa más simple para cargar archivos. Amigos, analícelo usted mismo. Después de aprender este ejercicio, básicamente dominará la función de carga general de ASP.

Artículos relacionados