Página Inicial>Tutorial de programação de redes>Tutorial ASP

asp carrega arquivos locais para o servidor

Autor：Eve Cole Data da Última Atualização：2025-01-23 17:24:01

O que você deve fazer se quiser colocar as fotos ou arquivos da sua máquina no servidor Existem três opções: 1. Upload via FTP, 2. Usar uma unidade flash USB para copiar para o servidor, 3. Se o servidor suportar o? Função de upload ASP, use a página da web O navegador carrega o arquivo para o servidor.

Hoje explicamos como usar a função de upload do asp para fazer upload de arquivos locais para o servidor.

O sistema mais simples inclui os três arquivos a seguir:

upload.htm --Carregar arquivo de porta, selecionar arquivo local uploadimg.asp --Carregar arquivo de controle do programa upload_5xsoft.inc --Sem classe de upload de componente, iniciantes não precisam aprender este arquivo, contanto que possam usá-lo

conteúdo upload.htm - faça upload do arquivo da porta, selecione o arquivo local

  1. <html>
  2. <cabeça>
  3. </head>
  5. <corpo>
  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=Fazer upload de fotos></td>
  13. </tr>
  14. </form>
  15. </tabela>
  16. </body>
  17. </html>

conteúdo uploadimg.asp - faz upload do arquivo de controle do programa

  1. <!--#includeFILE=upload_5xsoft.inc-->
  2. <%
  3. dimupload,arquivo,caminho do arquivo
  4. caminho do arquivo=UPLOAD/
  5. setupload=newupload_5xSoft''Criar objeto de upload
  6. foreachformNameinupload.file'' lista todos os arquivos enviados
  7. setfile=upload.file(formName)'' gera um objeto de arquivo
  8. iffile.FileSize>0then''If FileSize>0, significa que há dados do arquivo
  9. fname=arquivo.nomedoarquivo
  10. file.SaveAsServer.mappath(filepath&fname)''Salvar arquivo
  11. fim
  12. setfile = nada
  13. próximo
  14. setupload=nothing''Excluir este objeto

conteúdo upload_5xsoft.inc

--O conteúdo deste arquivo não pertence ao conteúdo deste exercício. Este exercício aplica este método.

  1. <SCRIPTRUNAT=SERVERLANGUAGE=VBSCRIPT>
  2. dimoUpFileStream
  4. Classupload_5xSoft
  6. dimForm,Arquivo,Versão
  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. Versão = Nenhuma classe de upload de componente Versão 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>Tempo de execução da página: &FormatNumber((Timer()-time1)*1000,3)&milissegundos</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. iInício=LenB(sInício)
  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. 'Obtém o nome do item do formulário
  44. iFormStart=InStrB(iInfoEnd,RequestBinDate,sStart)
  45. iFindStart=InStr(22,sInfo,nome=,1)+6
  46. iFindEnd=InStr(iFindStart,sInfo,,1)
  47. sFormName=Mid(sinfo,iFindStart,iFindEnd-iFindStart)
  48. 'Se for um arquivo
  49. ifInStr(45,sInfo,nomedoarquivo=,1)>0então
  50. setoFileInfo=newFileInfo
  51. 'Pegue o nome do arquivo
  52. iFindStart=InStr(iFindEnd,sInfo,nome do arquivo=,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. 'Obtém o tipo de arquivo
  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. arquivo.addsFormName,oFileInfo
  65. outro
  66. 'Se for um item de formulário
  67. tStream.Fechar
  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. formulário.AddsFormName,sFormvalue
  78. fim
  79. tStream.Fechar
  80. iFormStart=iFormStart+iStart+1
  81. vamos
  82. DataBinSolicitação=
  83. setStream = nada
  84. Fim Sub
  86. PrivateSubClass_Terminate
  87. ifnotRequest.TotalBytes<1then
  88. formulário.Remover tudo
  89. arquivo.Remover tudo
  90. setform = nada
  91. setfile = nada
  92. oUpFileStream.Close
  93. setoUpFileStream = nada
  94. fim
  95. Fim Sub
  98. Função privadaGetFilePath(FullPath)
  99. IfFullPath<>Então
  100. GetFilePath = left(FullPath,InStrRev(FullPath,))
  101. Outro
  102. ObterCaminhoDoArquivo=
  103. FimSe
  104. Função final
  106. Função privadaGetFileName(FullPath)
  107. IfFullPath<>Então
  108. GetFileName=mid(FullPath,InStrRev(FullPath,)+1)
  109. Outro
  110. ObterNomeArquivo=
  111. FimSe
  112. Função final
  114. Fim da Classe
  116. ClassFileInfo
  117. dimFormName,FileName,FilePath,FileSize,FileType,FileStart
  118. PrivateSubClass_Initialize
  119. NomeDoArquivo=
  120. Caminho do arquivo=
  121. Tamanho do arquivo=0
  122. ArquivoIniciar=0
  123. NomeDoFormulário=
  124. Tipo de arquivo=
  125. Fim Sub
  127. Função públicaSaveAs(FullPath)
  128. dimoFileStream,ErrorChar,i
  129. Salvar como=1
  130. iftrim(caminho completo)=orright(caminho completo,1)=/thenexitfunction
  131. setoFileStream=CreateObject(Adodb.Stream)
  132. oFileStream.Type=1
  133. oFileStream.Mode=3
  134. oFileStream.Open
  135. oUpFileStream.position=FileStart
  136. oUpFileStream.copytooFileStream,FileSize
  137. oFileStream.SaveToFileFullPath,2
  138. oFileStream.Close
  139. setoFileStream = nada
  140. Salvar como=0
  141. função final
  142. Fim da Classe
  143. </SCRIPT>

O que este artigo descreve é ​​o programa mais simples para fazer upload de arquivos. Amigos, analise-o você mesmo. Depois de aprender este exercício, você basicamente dominará a função geral de upload do ASP.

Artigos Relacionados