ASP تحميل الملفات المحلية إلى الخادم

ماذا يجب أن تفعل إذا كنت تريد وضع الصور أو الملفات الخاصة بجهازك على الخادم؟ هناك ثلاثة خيارات: 1. تحميل FTP، 2. استخدام محرك أقراص USB محمول للنسخ إلى الخادم، 3. إذا كان الخادم يدعم وظيفة تحميل ASP، استخدم صفحة الويب. يقوم المتصفح بتحميل الملف إلى الخادم.

نشرح اليوم كيفية استخدام وظيفة التحميل الخاصة بـ asp لتحميل الملفات المحلية إلى الخادم.

يتضمن أبسط نظام الملفات الثلاثة التالية:

upload.htm - تحميل ملف المنفذ، حدد الملف المحلي uploadimg.asp - تحميل ملف التحكم في البرنامج upload_5xsoft.inc - لا توجد فئة تحميل مكون، لا يحتاج المبتدئون إلى تعلم هذا الملف، طالما يمكنهم استخدامه

محتوى upload.htm--تحميل ملف المنفذ، حدد الملف المحلي

1. <أتش تي أم أل>
2. <الرأس>
3. </الرأس>
5. <الجسم>
6. <tablewidth=80%border=0align=center>
7. <formname=form1method=postaction=uploadimg.aspenctype=multipart/form-data>
8. <تر>
9. <tdalign=center><inputname=upfiletype=fileid=upfile></td>
10. </tr>
11. <تر>
12. <tdalign=center><inputtype=submitname=Submitvalue=رفع الصور></td>
13. </tr>
14. </النموذج>
15. </الجدول>
16. </الجسم>
17. </html>

محتوى uploadimg.asp--تحميل ملف التحكم في البرنامج

1. <!--#includeFILE=upload_5xsoft.inc-->
2. <%
3. dimupload، ملف، filepath
4. مسار الملف=تحميل/
5. setupload=newupload_5xSoft''إنشاء كائن تحميل
6. يسرد foreachformNameinupload.file'' جميع الملفات التي تم تحميلها
7. setfile=upload.file(formName)'' ينشئ كائن ملف
8. iffile.FileSize>0 ثم ''إذا كان FileSize>0، فهذا يعني أن هناك بيانات الملف
9. fname=file.filename
10. file.SaveAsServer.mappath(filepath&fname)''حفظ الملف
11. com.endif
12. setfile=لا شيء
13. التالي
14. setupload=لا شيء''احذف هذا الكائن

محتوى upload_5xsoft.inc

- محتوى هذا الملف لا ينتمي إلى محتوى هذا التدريب. يطبق هذا التدريب هذه الطريقة

1. <SCRIPTRUNAT=SERVERLANGUAGE=VBSCRIPT>
2. dimoUpFileStream
4. Classupload_5xSoft
6. ديمفورم، ملف، الإصدار
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. الإصدار = لا توجد فئة تحميل مكون الإصدار 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>وقت تنفيذ الصفحة: &FormatNumber((Timer()-time1)*1000,3)&ملي ثانية</font><br>
24. oUpFileStream.Position=0
25. RequestBinDate=oUpFileStream.Read
26. إيفورمستارت=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. بينما(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. "الحصول على اسم عنصر النموذج."
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)>0ثم
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. آخر
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. com.endif
79. tStream.Close
80. iFormStart=iFormStart+iStart+1
81. com.wind
82. RequestBinDate=
83. setStream=لا شيء
84. EndSub
86. PrivateSubClass_Terminate
87. ifnotRequest.TotalBytes<1then
88. form.RemoveAll
89. file.RemoveAll
90. setform=لا شيء
91. setfile=لا شيء
92. oUpFileStream.Close
93. setoUpFileStream=لا شيء
94. com.endif
95. EndSub
98. وظيفة خاصةGetFilePath (FullPath)
99. إذاFullPath<>ثم
100. GetFilePath=left(FullPath,InStrRev(FullPath,))
101. آخر
102. GetFilePath=
103. EndIf
104. وظيفة النهاية
106. وظيفة خاصةGetFileName (FullPath)
107. إذاFullPath<>ثم
108. GetFileName=mid(FullPath,InStrRev(FullPath,)+1)
109. آخر
110. GetFileName=
111. EndIf
112. وظيفة النهاية
114. فئة النهاية
116. ClassFileInfo
117. dimFormName،اسم الملف،FilePath،FileSize،FileType،FileStart
118. PrivateSubClass_Initialize
119. اسم الملف=
120. مسار الملف=
121. حجم الملف=0
122. بداية الملف=0
123. اسم النموذج=
124. نوع الملف=
125. EndSub
127. الوظيفة العامة حفظ باسم (FullPath)
128. dimoFileStream,ErrorChar,i
129. حفظ باسم=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، حجم الملف
137. oFileStream.SaveToFileFullPath,2
138. oFileStream.Close
139. setoFileStream=لا شيء
140. حفظ باسم=0
141. endfunction
142. فئة النهاية
143. </النص>

ما تصفه هذه المقالة هو أبسط برنامج لتحميل الملفات، يرجى تحليله بنفسك، بعد تعلم هذا التمرين، ستتقن بشكل أساسي وظيفة التحميل العامة لـ ASP.