asp将本地的文件上传到服务器

如果你想把自己机器的图片或者文件放到服务器上该怎么办呢? 可选有三种办法1、ftp上传，2、用u盘拷贝到服务器上，3、如果服务器支持asp上传功能，用网页浏览器将文件上传到服务器上。

今天我们讲解如何利用asp的上传功能将本地的文件上传到服务器上。

最简系统包括下面三个文件：

upload.htm --上传口文件，选择本地文件 uploadimg.asp --上传程序控制文件 upload_5xsoft.inc --无组件上传类，此文件初学者不用学习，只要会用就可以了

upload.htm内容--上传口文件，选择本地文件

uploadimg.asp内容--上传程序控制文件

2. <%
3. dimupload,file,filepath
4. filepath=UPLOAD/
5. setupload=newupload_5xSoft''建立上传对象
6. foreachformNameinupload.file''列出所有上传了的文件
7. setfile=upload.file(formName)''生成一个文件对象
8. iffile.FileSize>0then''如果FileSize>0说明有文件数据
9. fname=file.filename
10. file.SaveAsServer.mappath(filepath&fname)''保存文件
11. endif
12. setfile=nothing
13. next
14. setupload=nothing''删除此对象

upload_5xsoft.inc内容

--此文件内容不属于本演练程序内容，本演练应用此类的方法

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=无组件上传类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页面执行时间：&FormatNumber((Timer()-time1)*1000,3)&毫秒
    
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)
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. ifInStr(45,sInfo,filename=,1)>0then
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. else
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. endif
79. tStream.Close
80. iFormStart=iFormStart+iStart+1
81. wend
82. RequestBinDate=
83. settStream=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. Endfunction
106. PrivatefunctionGetFileName(FullPath)
107. IfFullPath<>Then
108. GetFileName=mid(FullPath,InStrRev(FullPath,)+1)
109. Else
110. GetFileName=
111. EndIf
112. Endfunction
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

此文所诉的内容是上传文件的最简化程式，请朋友们自己分析一下，学会本演练，asp一般的上传功能就基本掌握了