Page d'accueil>Tutoriel de programmation réseau>Tutoriel ASP

asp télécharger des fichiers locaux sur le serveur

Auteur：Eve Cole Date de mise à jour：2025-01-23 17:24:01

Que devez-vous faire si vous souhaitez mettre les images ou les fichiers de votre machine sur le serveur ? Il existe trois options : 1. Téléchargement FTP, 2. Utiliser une clé USB pour copier sur le serveur, 3. Si le serveur prend en charge le Fonction de téléchargement ASP, utilisez la page Web. Le navigateur télécharge le fichier sur le serveur.

Aujourd'hui, nous expliquons comment utiliser la fonction de téléchargement d'asp pour télécharger des fichiers locaux sur le serveur.

Le système le plus simple comprend les trois fichiers suivants :

upload.htm --Télécharger le fichier de port, sélectionnez le fichier local uploadimg.asp --Télécharger le fichier de contrôle du programme upload_5xsoft.inc --Aucune classe de téléchargement de composants, les débutants n'ont pas besoin d'apprendre ce fichier, tant qu'ils peuvent l'utiliser

contenu upload.htm - télécharger le fichier de port, sélectionner le fichier local

  1. <html>
  2. <tête>
  3. </tête>
  5. <corps>
  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=Télécharger des images></td>
  13. </tr>
  14. </form>
  15. </table>
  16. </corps>
  17. </html>

uploadimg.asp content - télécharger le fichier de contrôle du programme

  1. <!--#includeFILE=upload_5xsoft.inc-->
  2. <%
  3. dimupload,fichier,chemin du fichier
  4. chemin du fichier = TÉLÉCHARGER/
  5. setupload=newupload_5xSoft''Créer un objet de téléchargement
  6. foreachformNameinupload.file'' répertorie tous les fichiers téléchargés
  7. setfile=upload.file(formName)'' génère un objet fichier
  8. iffile.FileSize>0then''Si FileSize>0, cela signifie qu'il y a des données de fichier
  9. fname = fichier.nom de fichier
  10. file.SaveAsServer.mappath(filepath&fname)''Enregistrer le fichier
  11. fin
  12. setfile = rien
  13. suivant
  14. setupload=rien''Supprimer cet objet

contenu upload_5xsoft.inc

--Le contenu de ce fichier n'appartient pas au contenu de cet exercice. Cet exercice applique cette méthode.

  1. <SCRIPTRUNAT=SERVERLANGUAGE=VBSCRIPT>
  2. dimoUpFileStream
  4. Classeupload_5xSoft
  6. dimForm, Fichier, Version
  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=Aucune classe de téléchargement de composant Version0.93
  14. setForm=Serveur.CreateObject(Scripting.Dictionary)
  15. setFile=Serveur.CreateObject(Scripting.Dictionary)
  16. ifRequest.TotalBytes<1thenExitSub
  17. settStream=Serveur.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>Durée d'exécution de la page : &FormatNumber((Timer()-time1)*1000,3)&millisecondes</font><br>
  24. oUpFileStream.Position=0
  25. RequestBinDate=oUpFileStream.Read
  26. iFormDébut=1
  27. iFormEnd=LenB(RequestBinDate)
  28. bCrLf=chrB(13)&chrB(10)
  29. sStart=MidB(RequestBinDate,1,InStrB(iFormStart,RequestBinDate,bCrLf)-1)
  30. iDébut=LenB(sDébut)
  31. iFormDébut=iFormDébut+iDébut+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. 'Obtenir le nom de l'élément du formulaire
  44. iFormStart=InStrB(iInfoEnd,RequestBinDate,sStart)
  45. iFindStart=InStr(22,sInfo,nom=,1)+6
  46. iFindEnd=InStr(iFindStart,sInfo,,1)
  47. sFormName=Mid(sinfo,iFindStart,iFindEnd-iFindStart)
  48. 'Si c'est un fichier
  49. ifInStr(45,sInfo,filename=,1)>0then
  50. setoFileInfo=nouveauFileInfo
  51. 'Obtenir le nom du fichier
  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. 'Obtenir le type de fichier
  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=iInfoFin
  62. oFileInfo.FileSize=iFormStart-iInfoEnd-3
  63. oFileInfo.FormName=sFormName
  64. fichier.addsFormName,oFileInfo
  65. autre
  66. 'S'il s'agit d'un élément de formulaire
  67. tStream.Fermer
  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. fin
  79. tStream.Fermer
  80. iFormDébut=iFormDébut+iDébut+1
  81. wend
  82. RequêteBinDate=
  83. setStream = rien
  84. FinSub
  86. PrivateSubClass_Terminate
  87. ifnotRequest.TotalBytes<1then
  88. formulaire.RemoveAll
  89. fichier.RemoveAll
  90. setform = rien
  91. setfile = rien
  92. oUpFileStream.Fermer
  93. setoUpFileStream = rien
  94. fin
  95. FinSub
  98. Fonction privéeGetFilePath(FullPath)
  99. SiCheminComplet<>Alors
  100. GetFilePath=gauche(FullPath,InStrRev(FullPath,))
  101. Autre
  102. GetFilePath=
  103. FinSi
  104. Fin de fonction
  106. Fonction privéeGetFileName (FullPath)
  107. SiCheminComplet<>Alors
  108. GetFileName=mid(FullPath,InStrRev(FullPath,)+1)
  109. Autre
  110. GetFileName=
  111. FinSi
  112. Fin de fonction
  114. Classe de fin
  116. ClassFileInfo
  117. dimFormName, FileName, FilePath, FileSize, FileType, FileStart
  118. PrivateSubClass_Initialize
  119. Nom du fichier =
  120. Chemin de fichier =
  121. Taille du fichier = 0
  122. Départ Fichier=0
  123. NomFormulaire=
  124. Type de fichier =
  125. FinSub
  127. Fonction publiqueEnregistrerAs (FullPath)
  128. dimoFileStream, ErrorChar, je
  129. Enregistrer sous = 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=FileStart
  136. oUpFileStream.copytooFileStream,FileSize
  137. oFileStream.SaveToFileFullPath,2
  138. oFileStream.Fermer
  139. setoFileStream = rien
  140. Enregistrer sous = 0
  141. fonction finale
  142. Classe de fin
  143. </SCRIPT>

Ce que cet article décrit est le programme le plus simple pour télécharger des fichiers. Amis, veuillez l'analyser vous-même. Après avoir appris cet exercice, vous maîtriserez essentiellement la fonction de téléchargement générale d'ASP.

Articles connexes