3 messaggi dal 17 giugno 2003
Salve a tutti, mi sono imbattuto nella gestione di un sito dimamico utilizzando un db access, ho un problema per quanto riguarda la parte amministrativa del sito, infatti non so come poter far uplodare le immaggini dagli utenti di amministrazione, dovrei farlo io ogni volta tramite FTP :-( ma è un casino.

Sarei felice ricevere una risposta
Saluti Luciano
212 messaggi dal 06 settembre 2002
Non ho capito molto bene cosa vuoi fare.
Vuoi preparare un form dove l'utente amministratore sceglie dal proprio pc un file e lo manda sul server ?

Arnoldo
-------
DocLine Service & Networking

Per quanto bravo tu possa essere, nessuno ti dara' mai una pacca sulla spalla e ti dira' che hai fatto un buon programma
3 messaggi dal 17 giugno 2003
Si praticamente si,.. tratta di uplorade immagini che poi compariranno sul sito.
ti ringrazio ciao
212 messaggi dal 06 settembre 2002
in questo momento non posso farti vedere una applicazione pronta perche' uno str... di provider si e' infilato nel mio account network solution e ha cambiato i dns...
nei prossimi giorni, dovrei essere nuovament ein linea.
Puoi vedere una applicazione molto semplice fatta in quella maniera all'indirizzo www.canidirazza.com/fotox

Se cosi e' ok mandami una mail che ti posto i sorgenti.

Arnoldo
-------
DocLine Service & Networking

Per quanto bravo tu possa essere, nessuno ti dara' mai una pacca sulla spalla e ti dira' che hai fatto un buon programma
2 messaggi dal 22 settembre 2003
maltese200 ha scritto:
Puoi vedere una applicazione molto semplice fatta in quella maniera all'indirizzo www.canidirazza.com/fotox


Ciao maltese, sono interessato anch'io all'upload di files da form.

Se la componente che usi è free mi daresti qualche consiglio?

Se la componente non è free, come ti trovi con quella che usi? Quanto costa?

Inoltre, per chiunque voglia rispondere, sono ben felice di sentire altre voci :)
295 messaggi dal 31 ottobre 2002
x maltese200

guarda ke hai fatto un errore ..
nella colonna url ci sono gli indirizzi email, e in quella email gli url ..

metti a posto il nome della colonna ..
ciao!

ciao!!!!
29 messaggi dal 04 giugno 2003
ragazzi ciao
sn mirko. Anche a me serve ciò... mi fate sapere magari postandomi un esempio su mrkweb@katamail.com?

Grazie a tutti
13 messaggi dal 29 agosto 2003
UPLOAD DA SITO

PAGINA FormUpload.htm

** NEL FORM IL NOME DELL'IMMAGINE DA UPLOADARE **
********************************************
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nuova pagina 1</title>
<meta name="Microsoft Theme" content="midioke 1000, default">
</head>


<FORM METHOD="Post" ENCTYPE="multipart/form-data" ACTION="http://www.tuosito.?/public/outputFile.asp">
<p align="center">
<b>
<font face="Verdana" size="2">Per inviare la base musicale clicca su [Sfoglia]<br>
</font></b>
<INPUT TYPE="file" NAME="blob" size="57"><br>
<INPUT TYPE="submit" NAME="Enter" value="Invia File"><br>
</font></FORM>

</body></html>
********************************************

SECONDA PAGINA: OutputFile.asp CHE DOVRAI COPIARE NELLA DIR PUBLIC.

********************************************
<%Sub BuildUploadRequest(RequestBin)
PosBeg = 1
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
boundaryPos = InstrB(1,RequestBin,boundary)
Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
Dim UploadControl
Set UploadControl = CreateObject("Scripting.Dictionary")
Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
Pos = InstrB(Pos,RequestBin,getByteString("name="))
PosBeg = Pos+6
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
PosBound = InstrB(PosEnd,RequestBin,boundary)
If PosFile<>0 AND (PosFile<PosBound) Then
PosBeg = PosFile + 10
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "FileName", FileName
Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
PosBeg = Pos+14
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "ContentType",ContentType
PosBeg = PosEnd+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
Else
Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
PosBeg = Pos+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
End If
UploadControl.Add "Value" , Value
UploadRequest.Add name, UploadControl
BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
Loop
End Sub
Function getByteString(StringStr)
For i = 1 to Len(StringStr)
char = Mid(StringStr,i,1)
getByteString = getByteString & chrB(AscB(char))
Next
End Function
Function getString(StringBin)
getString =""
For intCount = 1 to LenB(StringBin)
getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function%>

<%

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")

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd) & filename)

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
%>

<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nuova pagina 1</title>
<meta name="Microsoft Theme" content="midioke 1000, default">
</head>


<head>
<title>Upload</title>
</head>

<body>


<p align="center"><font face="Verdana" size="2">
File "<b><%=FileName%></b>" ricevuto con successo</font>

</body></html>
***********************************************

L'IMMAGINE VIENE UPLODATA IN PUBLIC CIOE' L'INDIRIZZO DEL FORM
<FORM METHOD="Post" ENCTYPE="multipart/form-data" ACTION="http://www.tuosito.?/public/outputFile.asp">

Vai sul sito www.grazianonet.it e clicca su (new) AAA CERCASI annuncio di prova
puoi fare l'upload di una immagine qualsiasi (tranne porno)
tanto al momento è in fase di prova. in questo modo vedi il suo funzionamento.
OK?

Barone57


Modificato da Barone57 il 06 ottobre 2003 14.17 -

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.