Wie Speichere ich Bild in der SQL Server-Datenbank mithilfe von Klassischen ASP.?

Ich bin das hochladen einer Bild-Datei, für die, die ich verwendet haben <input type="file" name="browse_file" accept="image/*"/> in meine form.

Ich habe eine Tabelle namens covers hat eine Spalte namens img mit Datentyp image.
Dies ist, was mein html sieht aus wie

HTML

<table border="1" cellpadding="5" cellspacing="0" width="100%">
                <tr>
                    <td width="20%"><b>Choose Cover:</b></td>
                    <td>
                        <input type="file" name="browse_file"  accept="image/*"/>
                        <%
                            session("file_name") = request.Form("browse_file")
                        %>
                    </td>
                </tr>
                <tr>
                    <td><strong>Cover Name:</strong></td>
                    <td><input type="text" name="cover_name" value=""></td>
                </tr>
                <tr>
                    <td><strong>Choose Category:</strong></td>
                    <td>
                        <select name="disp_cat" onchange="return refresh_cat();">
                            <option selected="selected" value="0">Choose Category...</option>                           
                            <%
                                sql = "SELECT * from categories"
                                rs.open sql, con, 1, 2
                                do while not rs.eof
                            %>
                            <% if rs("name") = request.Form("disp_cat") then%>
                            <option value="<%=rs("name")%>" selected="selected"><%=rs("name")%></option>
                            <%else%>
                            <option value="<%=rs("name")%>"><%=rs("name")%></option>
                            <%end if
                                rs.movenext
                                loop
                                rs.close
                            %>
                        </select>
                    </td>
                </tr>
                <tr>    
                    <td colspan="2">
                        <input type="submit" value="Save" name="save_cover" onclick="return show_alert2();"/>
                        <input type="submit" value="Cancel" name="cancel" onclick="return go_back();"/>
                    </td>
                </tr>
                <%
                    if request.Form("save_cover") <> "" then
                    sql = "SELECT * from covers"
                    rs.open sql, con, 1, 2
                    rs.addnew

                    rs("c_name") = request.Form("cover_name")
                    rs("category") = request.Form("disp_cat")
                    rs("img") = request.Form("browse_file")
                    rs("date_upl") = date()

                    rs.update

                    response.Write("<script language='javascript'>{update1();}</script>")

                    rs.close
                    end if
                %>
                </table>

Verbindung zur Datenbank definiert ist, in einer separaten Datei namens database.asp. Die Verbindung funktioniert, weil alle Spalten wie c_name, category, date_upl sind immer in der Datenbank aktualisiert Tabelle covers außer für die img Spalte.

Es nicht unter das Bild Weg. Ist rs("img") = request.Form("browse_file") eine falsche asp-recordset zu aktualisieren, Datenbank-Spalte?

InformationsquelleAutor Leroy Mikenzi | 2012-09-14

3

Wenn Sie mit der SQL Image Datataype, das ist ein binary field zum speichern des Bildes selbst, nicht der Weg - wenn Sie nur wollen, zu speichern, den Pfad, den Sie verwenden würden, ein varchar Daten geben.

Wenn Sie möchten, um das Bild zu speichern in der Datenbank (Binär), dann ist der einfachste Weg, es zu tun ist, speichern Sie die Datei auf der Festplatte (mit FreeASPUpload etc), dann sagen Sie SQL zu laden, die Datei in Binär-Spalte, zum Beispiel:
```
INSERT INTO covers(img)  
    SELECT * FROM   
    OPENROWSET(BULK N'c:\uplaods\img0001.jpg', SINGLE_BLOB) AS import  
```
Oder, wenn Sie wollen legen Sie die Formular-Daten dann laden Sie das Bild in SQL-danach:
```
UPDATE covers SET [img] = (SELECT NewImage.* from Openrowset(Bulk 'c:\uplaods\img0001.jpg', Single_Blob) NewImage) where Id = 10
```
Persönlich, obwohl ich keine Bilder speichern im SQL, ich halte Sie auf der Festplatte und speichern nur den Dateinamen in SQL, z.B.:
```
function SaveFiles
    Dim Upload, fileName, fileSize, ks, i, fileKey

    Set Upload = New FreeASPUpload
    Upload.Save(uploadsDirVar)
    If Err.Number <> 0 then Exit function
    SaveFiles = ""
    ks = Upload.UploadedFiles.keys
    if (UBound(ks) <> -1) then
        SaveFiles = "<B>The following was uploaded:</B> "
        for each fileKey in Upload.UploadedFiles.keys
            SaveFiles = SaveFiles & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) "

            Dim cover_name, disp_cat
            cover_name = Upload.Form("cover_name")
            disp_cat = Upload.Form("disp_cat")

            '#### Double Up any quotes (very lazy - use paramaterised SQL instead)
            cover_name = replace(cover_name, "'", "''")
            disp_cat = replace(disp_cat, "'", "''")

            'Dump file information into database
            SQLnewFile = "INSERT into covers (File_Filename, cover_name, disp_cat) " & _
                         "VALUES ('" & replace(Upload.UploadedFiles(fileKey).FileName,"'","''") & "', '" & cover_name & "', '" & disp_cat & "')"              
            db.Execute(SQLnewFile)
        next
    else
        SaveFiles = "The file name specified in the upload form does not correspond to a valid file in the system."
    end if
end function
```
Edit 1: In Der Antwort Auf Ihre Kommentare

Ich nicht normalerweise Schreibe Völker-code für Sie, aber Sie scheinen zu kämpfen, um die Grundlagen verstehen hier, Nein, Sie würde nicht zu Bearbeiten .inc-Datei. Die bit-code-Bearbeiten Sie den code, wo Sie für die post und die Daten einfügen, zum Beispiel:
```
if request.Form("save_cover") <> "" then
    Dim Upload, fileName, ks, fileKey, uploadsDirVar
    uploadsDirVar = "c:\Uploads\"

    Set Upload = New FreeASPUpload
    Upload.Save(uploadsDirVar)
    ks = Upload.UploadedFiles.keys
    if (UBound(ks) <> -1) then
        for each fileKey in Upload.UploadedFiles.keys
            Dim cover_name, disp_cat
            cover_name  = replace(Upload.Form("cover_name"), "'", "''")
            disp_cat    = replace(Upload.Form("disp_cat"), "'", "''")

            SqlNewCover = "INSERT into covers (cover_name, disp_cat, FileName, img) " & _
                         "VALUES ('" & cover_name & "', '" & disp_cat & "', '" & replace(Upload.UploadedFiles(fileKey).FileName,"'","''") & "', (SELECT BulkColumn FROM OPENROWSET( Bulk '" & uploadsDirVar & replace(Upload.UploadedFiles(fileKey).FileName,"'","''") & "', SINGLE_BLOB) AS BLOB))"              
            db.Execute(SQLnewFile)
        next
    end if
end if
```
- ist BLOB vorhanden in der Sql server 2000..Denn ich bin mit sql Server 2000. Ich habe versucht mit Bild,nvarchar,Binär, aber kein Glück so weit.
- Ja, alle diejenigen, die blob-basierten Daten-Typen existieren in SQL 2000 - aber das ist nicht Ihr problem? Deine Frage besagt, dass Sie versuchen, speichern Sie die image-Pfad in der Datenbank, nicht das Bild selbst? Meine asp-Beispiel zeigt, wie um das Bild zu speichern auf die Festplatte und speichert die Dateinamen in der SQL - d.h. zu einer varchar-Spalte.
- Ich kann speichern Sie die image-Pfad in meine Datenbank, die ich sichern wollte ein Bild jetzt in die databsase. Gibt es einen Weg, es zu tun mit den klassischen asp-und SQL-SERVER 2000..??..
- Ja, mithilfe der OpenRowSet(Bulk, 'Path', Single_Blob) Beispiele in meiner Antwort - aber Sie müssen noch um das Bild zu speichern auf der Festplatte, die erste, und beachten Sie, dass der Pfad verwendet, wird von der SQL Server-Perspektive.
- Ich bin mir immer noch nicht , wo genau ich Bearbeiten müssen mein code..
- Ich habe bereits eine Verbindung Datei separat gespeichert und ruft es in jeder Datei mit  benötige ich um diese Datei zu Bearbeiten...oder die select-Anweisung, welche ich bereits in meiner Frage...??
- Siehe Edit 1 auf meine Antwort, ive getan ein kurzes Beispiel, wo würden Sie setzen den code.
- ich bekomme diese Fehlermeldung, muss eine Datei fehlt in diesem Fall bitte prüfen Sie daher. das ist mein Fehler... Error Type: Microsoft VBScript runtime (0x800A01FA) Class not defined: 'FreeASPUpload'
- Wieder, ich stehen, die in meine Antwort: freeaspupload.net - herunterladen der freeASPUpload.asp - Datei und include in dein Skript: 
- vielen Dank für Ihre Hilfe. Wann habe ich den externen link für das freeASpUpload.asp - Datei und beim anklicken auf die Schaltfläche Speichern. Browser hält auf be...zeigen warten auf localhost...und nichts passiert danach...endlich bekomme ich eine Meldung server timeout der Sitzung. Ich check, was das Problem ist, ich danke Ihnen noch einmal. Wirklich zu schätzen Ihre Bemühungen.
InformationsquelleAutor HeavenCore

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.