Upload in DB

[Ashry]

Salve a tutti.
Avrei bisogno di modificare questo script per inserire altri campi nel db oltre l'immagine ma non so come fare potreste darmi dei suggerimenti?
Grazie

con questo inserisco l'immagine

<%
function Upload(UploadRequest)
Response.Clear
dim byteCount
byteCount = Request.TotalBytes
dim RequestBin
RequestBin = Request.BinaryRead(byteCount)
call BuildUploadRequest(RequestBin, UploadRequest)
dim contentType
contentType = UploadRequest.Item("nomefile").Item("ContentType")
dim value
value = UploadRequest.Item("nomefile").Item("Value")
upload = value
end function

dim rs, sql
set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM STORIA"
' apre il recordset
rs.open sql, RsCon, 3, 3
' aggiunge un nuovo record vuoto
rs.AddNew()

dim UploadRequest
set UploadRequest = CreateObject("Scripting.Dictionary")
' inserisci i dati binari nel record
rs.fields("STORIA_IMG").AppendChunk(Upload(UploadR equest))
' conferma
rs.Update()

' libera le risorse
rs.close()
set rs = nothing
RsCon.close()
set RsCon = nothing
' redireziona alla lista immagini
%>

il tutorial l'ho preso sa questo sito: http://www.aspcode.it/articoli/artic...ct1=cat&idx=15

Grazie
Ciao

[kalosjo]

Per l'upload dovresti utilizzare una classe che oltre a fare l'upload del file riceva anche gli altri campi dal POST.

Altrimenti hai poco da inserire...

[Ashry]

Hai qualche tutorial da consigliarmi?

[kalosjo]

Lupload di Baol è il migliore.

Fai una ricerca...

[Ashry]

Scusa ma quell'upload salva le immagini in una cartella non nel database o sbaglio?

[kalosjo]

Si, ma il principio è lo stesso...

[Ashry]

<%
Dim mySmartUpload
Dim file
Dim RsCon
Dim strSQL
Dim oRs
Dim intCount
intCount=0

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.Upload

strSQL = "SELECT * FROM STORIA"

Set oRs = Server.CreateObject("ADODB.recordset")
Set oRs.ActiveConnection = RsCon
oRs.Source = strSQL
oRs.LockType = 3
oRs.Open

For each file In mySmartUpload.Files

If not file.IsMissing Then

oRs.AddNew
file.FileToField oRs.Fields("STORIA_IMG")
oRs("TITO") = mySmartUpload.Form("titolo")
oRs.Update
intCount = intCount + 1
End If
Next
oRs.Close
RsCon.Close
Set oRs = Nothing
Set RsCon = Nothing
%>

L'ho trovato sul sito di aspsmartuload ^-^
Grazie