ホーム>ネットワークプログラミングチュートリアル>ASP チュートリアル

ASPはローカルファイルをサーバーにアップロードします

著者：Eve Cole 更新時間：2025-01-23 17:24:01

マシンの写真やファイルをサーバーに置きたい場合はどうすればよいですか? 3 つのオプションがあります: 1. FTP アップロード、2. USB フラッシュ ドライブを使用してサーバーにコピー、3. サーバーがASPアップロード機能、Webページを利用 ブラウザからサーバーにファイルをアップロードします。

今回はaspのアップロード機能を使ってローカルファイルをサーバーにアップロードする方法を説明します。

最も単純なシステムには、次の 3 つのファイルが含まれています。

Upload.htm --ポート ファイルをアップロードし、ローカル ファイルを選択します。 Uploadimg.asp --プログラム制御ファイルをアップロードします。

Upload.htm コンテンツ -- ポート ファイルをアップロードし、ローカル ファイルを選択します

  1. <html>
  2. <頭>
  3. </head>
  5. <本文>
  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=写真をアップロード></td>
  13. </tr>
  14. </form>
  15. </テーブル>
  16. </body>
  17. </html>

Uploadimg.asp content -- プログラム制御ファイルのアップロード

  1. <!--#includeFILE=upload_5xsoft.inc-->
  2. <%
  3. dimupload、ファイル、ファイルパス
  4. ファイルパス=アップロード/
  5. setupload=newupload_5xSoft''アップロード オブジェクトの作成
  6. foreachformNameinupload.file'' はアップロードされたすべてのファイルをリストします
  7. setfile=upload.file(formName)'' はファイル オブジェクトを生成します
  8. iffile.FileSize>0then''FileSize>0 の場合、ファイル データがあることを意味します
  9. fname=ファイル.ファイル名
  10. file.SaveAsServer.mappath(filepath&fname)''ファイルを保存します
  11. エンドイフ
  12. setfile=何もない
  13. 次
  14. setupload=nothing''このオブジェクトを削除します

Upload_5xsoft.inc コンテンツ

--このファイルの内容は、このドリルの内容ではありません。

  1. <SCRIPTRUNAT=サーバー言語=VBSCRIPT>
  2. dimoUpFileStream
  4. クラスアップロード_5xSoft
  6. dimフォーム、ファイル、バージョン
  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<fontsize=2>ページの実行時間: &FormatNumber((Timer()-time1)*1000,3)&ミリ秒</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. 'フォーム項目名を取得
  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,ファイル名=,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. エンドイフ
  79. tStream.Close
  80. iFormStart=iFormStart+iStart+1
  81. 曲がります
  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. エンドイフ
  95. EndSub
  98. プライベート関数GetFilePath(フルパス)
  99. IfFullPath<>Then
  100. GetFilePath=left(FullPath,InStrRev(FullPath,))
  101. それ以外
  102. GetFilePath=
  103. EndIf
  104. 終了機能
  106. プライベート関数GetFileName(フルパス)
  107. IfFullPath<>Then
  108. GetFileName=mid(フルパス,InStrRev(フルパス,)+1)
  109. それ以外
  110. Getファイル名=
  111. EndIf
  112. 終了機能
  114. エンドクラス
  116. クラスファイル情報
  117. dimFormName、ファイル名、ファイルパス、ファイルサイズ、ファイルタイプ、ファイル開始
  118. PrivateSubClass_Initialize
  119. ファイル名=
  120. ファイルパス=
  121. ファイルサイズ=0
  122. ファイル開始=0
  123. フォーム名=
  124. ファイルタイプ=
  125. EndSub
  127. パブリック関数名前を付けて保存(フルパス)
  128. dimoFileStream、ErrorChar、i
  129. 名前を付けて保存=1
  130. iftrim(フルパス)=orright(フルパス,1)=/thenexitfunction
  131. setoFileStream=CreateObject(Adodb.Stream)
  132. oFileStream.Type=1
  133. oFileStream.Mode=3
  134. oFileStream.Open
  135. oUpFileStream.position=ファイル開始
  136. oUpFileStream.copytooFileStream,FileSize
  137. oFileStream.SaveToFileFullPath,2
  138. oFileStream.Close
  139. setoFileStream=なし
  140. 名前を付けて保存=0
  141. エンドファンクション
  142. エンドクラス
  143. </スクリプト>

この記事で説明するのは、ファイルをアップロードするための最も単純なプログラムです。このドリルを学習した後は、基本的に ASP の一般的なアップロード機能をマスターしてください。

関連記事