Home>Network programming tutorial>ASP tutorial

asp upload local files to server

Author：Eve Cole Update Time：2025-01-23 17:24:01

What should you do if you want to put the pictures or files of your machine on the server? There are three options: 1. FTP upload, 2. Use a USB flash drive to copy to the server, 3. If the server supports the ASP upload function, use the web page The browser uploads the file to the server.

Today we explain how to use the upload function of asp to upload local files to the server.

The simplest system includes the following three files:

upload.htm --Upload port file, select local file uploadimg.asp --Upload program control file upload_5xsoft.inc --No component upload class, beginners do not need to learn this file, as long as they can use it

upload.htm content--upload port file, select local file

  1. <html>
  2. <head>
  3. </head>
  5. <body>
  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=Upload pictures></td>
  13. </tr>
  14. </form>
  15. </table>
  16. </body>
  17. </html>

uploadimg.asp content--upload program control file

  1. <!--#includeFILE=upload_5xsoft.inc-->
  2. <%
  3. dimupload,file,filepath
  4. filepath=UPLOAD/
  5. setupload=newupload_5xSoft''Create upload object
  6. foreachformNameinupload.file'' lists all uploaded files
  7. setfile=upload.file(formName)'' generates a file object
  8. iffile.FileSize>0then''If FileSize>0, it means there is file data
  9. fname=file.filename
  10. file.SaveAsServer.mappath(filepath&fname)''Save file
  11. endif
  12. setfile=nothing
  13. next
  14. setupload=nothing''Delete this object

upload_5xsoft.inc content

--The content of this file does not belong to the content of this drill. This drill applies this method

  1. <SCRIPTRUNAT=SERVERLANGUAGE=VBSCRIPT>
  2. dimoUpFileStream
  4. Classupload_5xSoft
  6. dimForm,File,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=No component upload class 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>Page execution time: &FormatNumber((Timer()-time1)*1000,3)&milliseconds</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.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. 'Get form item name
  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. 'If it is a file
  49. ifInStr(45,sInfo,filename=,1)>0then
  50. setoFileInfo=newFileInfo
  51. 'Get the file name
  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. 'Get file type
  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. else
  66. 'If it is a form item
  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. endif
  79. tStream.Close
  80. iFormStart=iFormStart+iStart+1
  81. wend
  82. RequestBinDate=
  83. setStream=nothing
  84. EndSub
  86. PrivateSubClass_Terminate
  87. ifnotRequest.TotalBytes<1then
  88. form.RemoveAll
  89. file.RemoveAll
  90. setform=nothing
  91. setfile=nothing
  92. oUpFileStream.Close
  93. setoUpFileStream=nothing
  94. endif
  95. EndSub
  98. PrivatefunctionGetFilePath(FullPath)
  99. IfFullPath<>Then
  100. GetFilePath=left(FullPath,InStrRev(FullPath,))
  101. Else
  102. GetFilePath=
  103. EndIf
  104. End function
  106. PrivatefunctionGetFileName(FullPath)
  107. IfFullPath<>Then
  108. GetFileName=mid(FullPath,InStrRev(FullPath,)+1)
  109. Else
  110. GetFileName=
  111. EndIf
  112. End function
  114. EndClass
  116. ClassFileInfo
  117. dimFormName,FileName,FilePath,FileSize,FileType,FileStart
  118. PrivateSubClass_Initialize
  119. FileName=
  120. FilePath=
  121. FileSize=0
  122. FileStart=0
  123. FormName=
  124. FileType=
  125. EndSub
  127. PublicfunctionSaveAs(FullPath)
  128. dimoFileStream,ErrorChar,i
  129. SaveAs=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.Close
  139. setoFileStream=nothing
  140. SaveAs=0
  141. endfunction
  142. EndClass
  143. </SCRIPT>

What this article describes is the simplest program for uploading files. Friends, please analyze it yourself. After learning this drill, you will basically master the general upload function of ASP.

Related Articles