Upload file nomefile su db

**dany144** · 20-05-2006, 00:09

Salve a tutti stò rittoccando questo script in modo che oltre che mettere una immagine sul server mi copia il nome del file in un db

questo è la form di partenza:

if s="pass=ok&modifica=Aggiungi+Foto+a+Prodotto" then

%>
<html>
<head>
<title>Le macchine</title>
</head>
<body bgcolor="#FfFfff">
<center>

<%
sql="select * from macchine"
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open"driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("db.mdb")
Set RS=OBJdbConnection.Execute(sql)
Response.write ("[b]AGGIUNGI FOTO ALLA MACCHINA [b]

")
Do while NOT RS.EOF
num=RS("id")
Response.Write ("[b]" & RS("titolo") & "
")
Response.Write left(RS("descrizione"),50)
%>
<form method="post" enctype="multipart/form-data" action="outputFile.asp?ca=<%=RS("id")%>">
<input type="file" name="blob">
<input type="submit" name="Enter" value="Upload">
</form>

<%
Response.Write("..

")
RS.MoveNext
Loop
RS.Close
OBJdbConnection.Close
%>

</center>
</body>
</html>

questo il file outputFile.asp

<%Server.ScriptTimeout = 100000%>
<%
canc=request.querystring("ca")
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_I NFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Re quest.ServerVariables("PATH_INFO")),pathEnd)&filen ame)
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
%>
<%
canc=request.querystring("ca")
Set OBJdbConnection2 = Server.CreateObject("ADODB.Connection")
OBJdbConnection2.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("db.mdb")

sql="Update macchine set foto="&filename&" where id="&canc
Set RS2=OBJdbConnection2.Execute(sql)
OBJdbConnection2.close

%>

<head>

</head>
<center>
<table border="0" width="100%" height="40">
<tr>
<td width="100%" height="10" bgcolor="#E6E6FF"><font size="2" color="#000080"><font face="Arial">Uploaded file :</font> </font><font color="#000080" size="2" face="Arial"><%=" "&filename%></font></td>
</tr>

<tr>
<td width="100%" height="18">

</td>
</tr>
</table>
<H2>AGGIORNAMENTO EFFETTUATO!</H2>

<form method=post action="modifiche.asp">
<input type=hidden name="pass" value="ok">
<input type=submit name="back" value="Torna al menu di gestione">
</form>
</center>

ma ho un errore nel momento esegue l'sql dell'update
perchè secondo voi?

**santino83** · 20-05-2006, 04:26

codice:

set foto='" & .. & "'"

Discussione: Upload file nomefile su db

Strumenti discussione

Ricerca discussione

Visualizza

Upload file nomefile su db

Permessi di invio