Come da titolo, in Classic ASP non riesco a fare l'upload di un'immagine su database(Access), fino ad ora sono riuscito a fare o l'una o l'altra cosa, non riesco a farli coesistere...
Ho usato la classe di ASP Uploader che funziona benissimo:
<%
if request("id")=1 then
on error resume next
dim strQuery
strQuery="INSERT INTO img("
dim strValori
strValori=" VALUES("
dim strSql
strSql=""
for each item in request.form
if item<>"Submit" then
strQuery= strQuery & item &","
strValori= strValori & "'"&server.HTMLEncode(request.form(item))&"',"
end if
next
strQuery=mid(strQuery,1,len(strQuery)-1) &")"
strValori=mid(strValori,1,len(strValori)-1) &")"
set rs =server.createObject("ADODB.Recordset")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mdb-database/immagini.mdb") & ";"
set cn = Server.CreateObject("ADODB.Connection")
cn.Open strConn
strSql= strQuery & strValori
rs.open strSql,cn
set rs=nothing
if err.number<>0 then
response.write err.number &"<br>"&err.description
end if
end if
%>
<!-- #include file="aspuploader/include_aspuploader.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>
Form - Single File Upload
</title>
<link href="demo.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div class="demo">
<th height="22" scope="row"><font size="2">Nome:</font> </th><td width="67%"><form> <input type="text" name="nome" value="<%=str_nome%>" size ="28" >
</td>
</tr>
<tr>
<th height="22" scope="row"><span class="Stile1"><font size="2">Cognome:</font> </span></th>
<td><span class="Stile1">
<input type="text" name="cognome" value="<%=str_cognome%>" size ="28" >
<input type="hidden" name="code" maxlength="11" size ="28" value="<%=str_code%>"readonly>
<input type="submit" name="Submit" value="Invia"></span></td></tr></form></span></td>
<h2>Single File Upload</h2>
<p> A basic sample demonstrating the use of the Upload control (Allowed file types: <span style="color:red">jpg, gif, png, zip</span>).</p>
<%
Dim uploader
Set uploader=new AspUploader
uploader.Name="myuploader"
uploader.MaxSizeKB=10240
uploader.InsertText="Upload File (Max 10M)"
uploader.AllowedFileExtensions="*.jpg,*.png,*.gif,*.zip"
uploader.MultipleFilesUpload=true
'Where'd the files go?
uploader.SaveDirectory="savefiles"
uploader.render()
%>
<br/><br/>
<script type='text/javascript'>
function CuteWebUI_AjaxUploader_OnTaskComplete(task)
{
alert(task.FileName + " is uploaded!");
}
</script></div></body></html>[/code]
Ma come posso far collegare tutto sul database? Il codice che ho scritto permette l'upload di file su server.
