Stimson (オリジナルの作品) に
は、現在、コンポーネントのないアップロード クラスが多数あります。調べてみると、そのほとんどがテキストのみを送信できるものであることがわかりました。最も重要なことは、10 行未満のものは存在しないということです。
コード:) 私は一晩かけて ADODB.Stream を勉強し、6 行のコードを使用
してコンポーネントなしのアップロードを実装しました。
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server."123_onweb.gif",2
使用方法:
上記のコードをupload.aspとして記述します。
ブラウザに次のように入力します。
GetFileName = Mid(strFile,InStrRev(strFile, "")+1)
それ以外
GetFileName = ""
終了の場合
関数終了
strFileName = Request.Form("file1")
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
objStream.Close
%>
アップロード.htm ファイル
<フォーム名="FORM" アクション="upload.asp" メソッド="ポスト">
<input type="submit" name="submit" value="OK">
<input type="file" name="file1" style="width:400" value="">
</form>