Implementare Upload Baol74

[[trodat]]

Ciao.

Sto cercando di mettere insieme un form per l'upload implementando la classe di Baol74 con del materiale trovato con la ricerca ed ho scritto questo codice:

 
<%

Function GetConnection()
  dim Conn: Set Conn = CreateObject("ADODB.Connection")
  Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
  Conn.open "Data Source=" & Server.MapPath("mdb-database/upload.mdb") 
  set GetConnection = Conn
end function

If Request("Upload")="1" then

Dim VirtualFolder 
VirtualFolder = "UploadFolder"
response.write VirtualFolder &"
"

Dim DestinationPath
DestinationPath = Server.mapPath(VirtualFolder) & "\"
response.write DestinationPath &"
"

Dim oUpload
	Set oUpload = new cUpload
		oUpload.Upload
		
        oUpload.SaveAs DestinationPath & "\" & GetFileName
      

	Set oUpload=Nothing	
end if


%>
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="?upload=1">
File : <INPUT TYPE="file" NAME="Campo1" size="20">

<INPUT TYPE="submit" NAME="Enter">
</FORM>

Non dà errori ma il file non viene caricato sul server.
Dove sbaglio?

[weppos]

Request("Upload")="1"

O metti Upload come querystring nel form o porti il request a upload.
Inoltre, la cartella ha i permessi di scrittura?

[[trodat]]

Originariamente inviato da weppos
O metti Upload come querystring nel form o porti il request a upload.
Inoltre, la cartella ha i permessi di scrittura?

Scusa non ho capito... la cartella ha i permessi di scrittura.
Grazie

[weppos]

Originariamente inviato da [trodat]
Scusa non ho capito... la cartella ha i permessi di scrittura.
Grazie

Guarda la querystring.
Passi un parametro upload e lo richiami come Upload.

[[trodat]]

baol/esempi/esempio_formm.asp?upload=1

e cosa dovrei fare? Ho tolto la condizione:

<%

Function GetConnection()
  dim Conn: Set Conn = CreateObject("ADODB.Connection")
  Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
  Conn.open "Data Source=" & Server.MapPath("mdb-database/upload.mdb") 
  set GetConnection = Conn
end function

Dim VirtualFolder 
VirtualFolder = "UploadFolder"
response.write VirtualFolder &"
"

Dim DestinationPath
DestinationPath = Server.mapPath(VirtualFolder) & "\"
response.write DestinationPath &"
"

Dim oUpload
	Set oUpload = new cUpload
		oUpload.AutoRename = true
		oUpload.Overwrite = false
        oUpload.Upload
		oUpload.SaveAs DestinationPath & "\" & "& .GetFileName &"
   Set oUpload=Nothing	

Dim PostURL
PostURL = Request.ServerVariables("SCRIPT_NAME")
response.write PostURL &"
"

%>
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="<%=PostURL%>">
File : <INPUT TYPE="file" NAME="Campo1" size="20">

<INPUT TYPE="submit" NAME="Enter">
</FORM>

Ma nemmeno così il file viene caricato sul server.... :master:

[[trodat]]

Risolto, grazie:

<%

Function GetConnection()
  dim Conn: Set Conn = CreateObject("ADODB.Connection")
  Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
  Conn.open "Data Source=" & Server.MapPath("mdb-database/upload.mdb") 
  set GetConnection = Conn
end function

If Request("Upload")="1" then

Dim oUpload
	Set oUpload = new cUpload
	    oUpload.SetPath "UploadFolder\"
		oUpload.AutoRename = true
		oUpload.Overwrite = false
        oUpload.Upload
		oUpload.SaveAs GetFileName
   Set oUpload=Nothing	
end if

%>
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="?upload=1">
File : <INPUT TYPE="file" NAME="Campo1" size="20">

<INPUT TYPE="submit" NAME="Enter">
</FORM>

[[trodat]]

Ma il metodo

 Server.MapPath(GetFileName)

non è utilizzabile con la classe di Baol???

[weppos]

Originariamente inviato da [trodat]
Ma il metodo

 Server.MapPath(GetFileName)

non è utilizzabile con la classe di Baol???

Non ti serve.
Hai già il metodo che ti restituisce il percorso fisico.
Mi pare sia GetFilePath (o simile).

[fraude]

Originariamente inviato da weppos
Non ti serve.
Hai già il metodo che ti restituisce il percorso fisico.
Mi pare sia GetFilePath (o simile).

... simile:

GetCompletePathFile