'================================================ = =================
'
' ASP を使用してコンポーネントレスのファイルのアップロード/ダウンロードを実装する
'
『機能紹介』
'アップロードされたファイルのデータをデータベースに保存します。これにより、アップロードされた複数のファイルを形式で処理できます
' さまざまなデータベースに適用可能、ADO メソッドを使用してデータベースに接続します
' この例では、ACCESS データベース zj.mdb を使用します。
'Table:tb_img(id int(自動インクリメント列),path text(255) アップロードしたファイルを保存するディレクトリ
' ,fname text(250) はアップロードされたファイルの名前を保存し、type test(250) はアップロードされたファイルのタイプを保存します
'、img ole オブジェクトはアップロードされたファイルの内容を保存します
'
'
'================================================ = =================
'================================================ = =================
'
'ファイルをアップロードするための HTML ページ: zj_up.htm
'
'================================================ = =================
<html>
<頭>
<title>ファイルをアップロードしてデータベースに保存します</title>
</head>
<本文>
<form name="form1" enctype="multipart/form-data" method="post" action="zj_up.asp">
<p>
<input type="ファイル" name="ファイル">
<input type="submit" name="Submit" value="アップロード">
</p>
</form>
</body>
</html>
'================================================ = =================
'
' ファイルをアップロードし、データベースの ASP ページに保存します: zj_up.asp
'
'================================================ = =================
<%
応答.有効期限=0
関数 f_Bin2Str(ByVal sBin)
Dim iI、iLen、iChr、iRe
iRe = ""
IsNull(sBin) ではない場合
iLen = LenB(sBin)
iI = 1 の場合 iLen へ
iChr = MidB(sBin, iI, 1)
AscB(iChr) > 127 の場合
iRe = iRe & Chr(AscW(MidB(sBin, iI + 1, 1) & iChr))
iI = iI + 1
それ以外
iRe = iRe & Chr(AscB(iChr))
終了の場合
次
終了の場合
f_Bin2Str = iRe
終了機能
iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";データ ソース=" &server.mappath("zj.mdb")
iSql="tb_img"
set iRe=Server.CreateObject("ADODB.Recordset")
iRe.Open iSql,iConcStr,1,3
iLen=Request.TotalBytes
sBin=Request.BinaryRead(iLen)
iCrlf1 = ChrB(13) & ChrB(10)
iCrlf2 = iCrlf1 & iCrlf1
iLen = InStrB(1, sBin, iCrlf1) - 1
iSpc = LeftB(sBin, iLen)
sBin = MidB(sBin, iLen + 34)
iPos1 = InStrB(sBin, iCrlf2) - 1
iPos1 > 0 の間
iStr = f_Bin2Str(LeftB(sBin, iPos1))
iPos1 = iPos1 + 5
iPos2 = InStrB(iPos1, sBin, iSpc)
iPos3 = InStr(iStr, "; ファイル名=""") + 12
iPos3 > 12 の場合
iStr = Mid(iStr, iPos3)
iPos3 = InStr(iStr, Chr(13) & Chr(10) & "コンテンツ タイプ: ") - 2
iFn = Left(iStr, iPos3)
if iFn <> "" then
iRe.AddNew
ire("パス")=left(iFn,instrrev(iFn,""))
iRe("fname") = mid(iFn,instrrev(iFn,"")+1)
iRe("タイプ") = Mid(iStr, iPos3 + 18)
iRe("img").AppendChunk MidB(sBin, iPos1, iPos2 - iPos1)
iRe.アップデート
終了の場合
終了の場合
sBin = MidB(sBin, iPos2 + iLen + 34)
iPos1 = InStrB(sBin, iCrlf2) - 1
ウェン
iRe.close
iRe=何も設定しない
%>
'============================================== = ===================
'
' データをダウンロードするための ASP ページ: zj_down.asp
'
'================================================ = =================
<%
Response.Buffer=true
Response.Clear
iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";データ ソース=" &server.mappath("zj.mdb")
set iRe=server.createobject("adodb.recordset")
iSql="tb_img"
iRe.open iSql,iconcstr,1,1
Response.ContentType=ire("タイプ")
Response.BinaryWrite iRe("img")
iRe.close
iRe=何も設定しない
%>