ho attivato un dominio su aruba ho creato una pagina per fare l'upload delle immagini ma mi da sempre errore interno del server
le ho provate tutte ma è sempre uguale.....secondo voi ho i permessi di scrittura su tutte le cartelle?
ho attivato un dominio su aruba ho creato una pagina per fare l'upload delle immagini ma mi da sempre errore interno del server
le ho provate tutte ma è sempre uguale.....secondo voi ho i permessi di scrittura su tutte le cartelle?
No, solo nella cartella public
Scusate i puntini di sospensione...... La verità è che non ho argomenti....
ho prova ad inserirli anke nella cartella public ma nulla
mi daresti una mano?
i tre file sono questi:
questo è il file di inserimento
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<body bgcolor="#CCCCCC">
<form method="post">
<H1 align="center">INSERIMENTO</H1>
Tipo di Immobile
<select name="immobile" id="immobile">
<option selected>qualsiasi</option>
<option>ATTICO</option>
<option>BOX</option>
<option>CASA DI CORTE</option>
<option>CASA INDIPENDENTE</option>
<option>CASA SEMINDIPENTE</option>
<option>MANSARDA</option>
<option>MONOLOCALE</option>
<option>PALAZZINA</option>
<option>RUSTICO</option>
<option>TERRENO EDIFICABILE</option>
<option>VARIE</option>
<option>VILLA A SCHIERA</option>
<option>VILLA BIFAMILIARE</option>
<option>VILLA QUADRIFAMILIARE</option>
<option>VILLA SINGOLA</option>
<option>VILLA TRIFAMILIARE</option>
</select>
Provincia:
<select name="prov" id="prov">
<option selected>AG</option>
<option>AL</option>
<option>AN</option>
<option>AO</option>
<option>AP</option>
<option>AQ</option>
<option>AR</option>
<option>AT</option>
<option>AV</option>
<option>BA</option>
<option>BG</option>
<option>BI</option>
<option>BL</option>
<option>BN</option>
<option>BO</option>
<option>BR</option>
<option>BS</option>
<option>BZ</option>
<option>CA</option>
<option>CB</option>
<option>CE</option>
<option>CH</option>
<option>CL</option>
<option>CN</option>
<option>CO</option>
<option>CR</option>
<option>CS</option>
<option>CT</option>
<option>CZ</option>
<option>EE</option>
<option>EN</option>
<option>FC</option>
<option>FE</option>
<option>FG</option>
<option>FI</option>
<option>FO</option>
<option>FR</option>
<option>GE</option>
<option>GO</option>
<option>GR</option>
<option>IM</option>
<option>IS</option>
<option>KR</option>
<option>LC</option>
<option>LE</option>
<option>LI</option>
<option>LO</option>
<option>LT</option>
<option>LU</option>
<option>MC</option>
<option>ME</option>
<option>MI</option>
<option>MN</option>
<option>MO</option>
<option>MS</option>
<option>MT</option>
<option>NA</option>
<option>NO</option>
<option>NU</option>
<option>OR</option>
<option>PA</option>
<option>PC</option>
<option>PD</option>
<option>PE</option>
<option>PG</option>
<option>PI</option>
<option>PN</option>
<option>PO</option>
<option>PR</option>
<option>PS</option>
<option>PT</option>
<option>PU</option>
<option>PV</option>
<option>PZ</option>
<option>RA</option>
<option>RC</option>
<option>RE</option>
<option>RG</option>
<option>RI</option>
<option>RM</option>
<option>RN</option>
<option>RO</option>
<option>SA</option>
<option>SI</option>
<option>SO</option>
<option>SP</option>
<option>SR</option>
<option>SS</option>
<option>SV</option>
<option>TA</option>
<option>TE</option>
<option>TN</option>
<option>TO</option>
<option>TP</option>
<option>TR</option>
<option>TS</option>
<option>TV</option>
<option>UD</option>
<option>VA</option>
<option>VB</option>
<option>VC</option>
<option>VE</option>
<option>VI</option>
<option>VR</option>
<option>VT</option>
<option>VV</option>
</select>
Località
<input name="localita" type="text" id="localita">
Descrizione
<textarea name="descrizione" id="descrizione"></textarea>
mq
<input name="mq" type="text" id="mq">
prezzo
<input name="prezzo" type="text" id="prezzo">
</p>
foto
<input name="foto" type="text" id="foto">
<input type="submit" value="aggiungi">
</p>
</form>
<%
if len (Request.Form)>0 then
dim Conn, strConn
strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("/mdb-database/database.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn
SQL = "SELECT * FROM clienti"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn, 1, 3
rs.AddNew
rs("immobile") = request.Form("immobile")
rs("prov") = request.Form("prov")
rs("localita") = request.Form("localita")
rs("descrizione") = request.Form("descrizione")
rs("mq") = request.Form("mq")
rs("prezzo") = request.Form("prezzo")
rs("foto") = request.Form("foto")
rs.Update
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
Response.write "<H2>inserimento effettuato con successo</H2>"
Response.write " <FORM METHOD='Post' ENCTYPE='multipart/form-data' ACTION='outputFilestranezze.asp'>"
Response.write "<table align=center><tr><td>"
Response.write "<font face='Verdana' size='2' color=yellow>File : </td><td><INPUT TYPE='file' NAME='blob1'></td><td>"
Response.write "<INPUT TYPE='submit' NAME='Enter1' value='upload'></td>"
Response.write "</tr></table>"
Response.write "</FORM>"
End if
%>
</body>
</html>
e questi sono i due file per upload
<%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("blob1").Item("ContentType")
'Content-Type è il tipo di file
filepathname = UploadRequest.Item("blob1").Item("FileName")
'File path name è il percorso sul client
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
'Filename è il nome del file
value = UploadRequest.Item("blob1").Item("Value")
'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_I NFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Re quest.ServerVariables("PATH_INFO")),pathEnd) & "/foto/" & filename)
'Response.write("Nome File="&Left(Server.mappath(Request.ServerVariables ("PATH_INFO")),pathEnd) & "/img/" & filename&";
")
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close%>
<html>
<body bgcolor=#608ac6>
<p align="center"><font face="Verdana" size="2">
File "<%=filename%>" ricevuto con successo</font>
Homepage
</body>
</html>
<%
percorso = "http://www.fresos.it/immcasa/foto"
ByteRicevuti = Request.TotalBytes
if ByteRicevuti > 0 then
DatiRicevuti = Request.BinaryRead(ByteRicevuti)
For i = 1 To lenB(DatiRicevuti)
FileBinario = FileBinario & chr(ascB(midB(DatiRicevuti,i,1)))
Next
FirmaFile = left(FileBinario,instr(FileBinario,"" & vbCrLf)-1)
ArrPezzi = split(FileBinario,FirmaFile)
for item = 1 to ubound(ArrPezzi)-1
Inizio = instr(ArrPezzi(item),"" & vbCrLf & "" & vbCrLf)
Intestazione = left(ArrPezzi(item),Inizio-1)
Inizio = Inizio + len("" & vbCrLf) + len("" & vbCrLf)
ContenutoFile = mid(ArrPezzi(item),Inizio,len(ArrPezzi(item))-Inizio-1)
if instr(Intestazione,"testo1") > 0 then
testo1 = ContenutoFile
end if
if instr(Intestazione,"file1") > 0 then
i = instr(Intestazione,"filename=")
j = instr(i + 10,Intestazione,chr(34))
NomeUpload = mid(Intestazione,i + 10,j-i-10)
i = instrRev(NomeUpload,"/")
if i<>0 then
NomeFile = mid(NomeUpload,i + 1)
else
NomeFile = NomeUpload
end if
if i<>0 then
Set FSO = CreateObject("Scripting.FileSystemObject")
Upload1 = True
DimensioneFile1 = len(ContenutoFile)
EstensioneFile1 = right(ContenutoFile,3)
NomeFile1 = NomeFile
Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile1), True, False)
textStream.Write ContenutoFile
textStream.Close
Set textStream = Nothing
Set FSO = Nothing
end if
end if
next
Response.Write "Il valore immesso nella testo1 è " & testo1 & "
"
If Upload1 = true then
Response.Write "
La dimensione del file che hai uploadato è di " & DimensioneFile1*0.001 & "kb"
Response.Write "
Grazie di aver inviato il tuo file"
End If
End if
%>
Usa l'upload di Baol74 un utente del forum.
Cerca il link nella sua firma.
Roby
www.creamweb.it [v. 3.0]
:: Script ASP!
:: Web directory gratuita!
:: Campioni del mondo!
ok ci provo grazie
Permessi di invio
Rispondi quotando