'============================================== = =================
'
' Verwenden Sie ASP, um einen komponentenlosen Datei-Upload/Download zu implementieren
'
'Funktion Einführung
„Speichern Sie die hochgeladenen Dateidaten in der Datenbank, die mehrere hochgeladene Dateien im Formular verarbeiten kann.“
' Anwendbar auf verschiedene Datenbanken. Verwenden Sie die ADO-Methode, um eine Verbindung zur Datenbank herzustellen
' Dieses Beispiel verwendet die ACCESS-Datenbank: zj.mdb
'Tabelle:tb_img(id int(Spalte mit automatischer Inkrementierung),Pfadtext(255) Verzeichnis zum Speichern hochgeladener Dateien
' ,fname text(250) speichert den Namen der hochgeladenen Datei, type test(250) speichert den Typ der hochgeladenen Datei
', img ole object speichert den hochgeladenen Dateiinhalt
'
'
'============================================== = =================
'============================================== = =================
'
'HTML-Seite zum Hochladen von Dateien: zj_up.htm
'
'============================================== = =================
<html>
<Kopf>
<title>Laden Sie die Datei hoch und speichern Sie sie in der Datenbank</title>
</head>
<Körper>
<form name="form1" enctype="multipart/form-data" method="post" action="zj_up.asp">
<p>
<Eingabetyp="Datei" Name="Datei">
<input type="submit" name="Submit" value="Upload">
</p>
</form>
</body>
</html>
'============================================== = =================
'
'Laden Sie die Datei hoch und speichern Sie sie auf der ASP-Seite der Datenbank: zj_up.asp
'
'============================================== = =================
<%
Response.Expires=0
Funktion f_Bin2Str(ByVal sBin)
Dim iI, iLen, iChr, iRe
iRe = ""
Wenn nicht IsNull(sBin) dann
iLen = LenB(sBin)
Für iI = 1 bis iLen
iChr = MidB(sBin, iI, 1)
Wenn AscB(iChr) > 127, dann
iRe = iRe & Chr(AscW(MidB(sBin, iI + 1, 1) & iChr))
iI = iI + 1
Anders
iRe = iRe & Chr(AscB(iChr))
Ende wenn
Nächste
Ende wenn
f_Bin2Str = iRe
Funktion beenden
iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=" & 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
Während iPos1 > 0
iStr = f_Bin2Str(LeftB(sBin, iPos1))
iPos1 = iPos1 + 5
iPos2 = InStrB(iPos1, sBin, iSpc)
iPos3 = InStr(iStr, "; filename=""") + 12
Wenn iPos3 > 12, dann
iStr = Mid(iStr, iPos3)
iPos3 = InStr(iStr, Chr(13) & Chr(10) & "Content-Type: ") - 2
iFn = Left(iStr, iPos3)
Wenn iFn <> "" Dann
iRe.AddNew
ire("path")=left(iFn,instrrev(iFn,""))
iRe("fname") = mid(iFn,instrrev(iFn,"")+1)
iRe("type") = Mid(iStr, iPos3 + 18)
iRe("img").AppendChunk MidB(sBin, iPos1, iPos2 - iPos1)
iRe.Update
Ende wenn
Ende wenn
sBin = MidB(sBin, iPos2 + iLen + 34)
iPos1 = InStrB(sBin, iCrlf2) - 1
Wend
iRe.close
setze iRe=Nichts
%>
'============================================= = ===================
'
' ASP-Seite zum Herunterladen von Daten: zj_down.asp
'
'============================================== = =================
<%
Response.Buffer=true
Response.Clear
iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=" & server.mappath("zj.mdb")
set iRe=server.createobject("adodb.recordset")
iSql="tb_img"
iRe.open iSql,iconcstr,1,1
Response.ContentType=ire("type")
Response.BinaryWrite iRe("img")
iRe.close
setze iRe=Nichts
%>