asp - asp.net - aspcode.it
Domande sul forumCerca un argomento nel forum
Vai a :



Forum - Active Server Pages

aiuto urgentissimo

totyjimbo
scritto il 13/2/2004 20:15:58

Messaggi Scritti : 1

gią ho scritto un sacco di volte,nessuno mi risponde.per favore,fatemi sapere,il problema č questo,ho acquistato uno spazio web con aruba, ho fatto un sito che in localhost mi unziona,mentre appena lo publico mi da un errore, l'errore e questo:


Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/public/admin/Mettifoto3.asp, line 41

800401f3

la riga ke mi da l'errore č questa:
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mi č stato detto che aruba la funzione mysmartupload e presente nei loro server,solo ke a me continua a dare l'errore,se qualcuno sa se c'č qualche passagio da fare gli chiedo di farmi sapere.grazie

Inviva una mail a totyjimbo

]Pablo[
scritto il 13/2/2004 21:33:42

Cittį : Bologna
Messaggi Scritti : 2522

Non č che non ti rispondiamo perchč ci divertiamo, evidentemente nessuno sa risolvere il tuo problema e comunque, se non erro, qualcuno ha risposto al tuo quesito di alcuni giorni fa.
Ah, almeno posta nella sezione corretta!! (ho spostato il thread da ASP.net a ASP)

Paolo


Inviva una mail a ]Pablo[ Visita la Homepage di ]Pablo[ Add me

maxolino
scritto il 15/2/2004 00:05:58

Cittį : Rimini
Messaggi Scritti : 252

Che io sappia invece Aruba non ha lo SmartUpload......

Quindi devi un upload "manuale".

Ho uno script generico che funziona su tutti i server, che non utilizza componenti aggiuntive.
Te lo posto, poi gli darai un occhiata, č abbastanza semplice da configurare.

Ecco qua:

Ti fai una pagina dove "sfogli" l'hard disk e scegli il file:
_______________________________________________________________
<FORM METHOD="post" ENCTYPE="multipart/form-data" ACTION="upload.asp">
<input type="file" name="file1">
<INPUT TYPE="submit" NAME="Enter" value="Invia">
</FORM>
_________________________________________________________________

Poi ti fai una pagina che si chiama appunto "upload.asp" con questo codice:

<%Server.ScriptTimeout = 90000000%>
<%
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

'file 1
contentType = UploadRequest.Item("file1").Item("ContentType")
filepathname = UploadRequest.Item("file1").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
if not filename="" then
value = UploadRequest.Item("file1").Item("Value")
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("PUBLIC/"&filename))
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
set myfile = nothing


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.Write filename & " Inserito con successo! <br>"
end if
%>


Fai copia incolla e sei a posto, l'unica cosa č che devi impostare la certella dove fare l'upload, e se non sbaglio aruba lo fa solo nella cartella PUBLIC.

Te l'ho messa io, nel caso la devi cambiare..... la cambi

Max
______________________________



Controlla la posizione del tuo sito su Google e Msn
http://www.seoitalia.net
Strumenti per webmaster e SEO!


Add me

MissAlex
scritto il 17/2/2004 18:23:12

Cittį : Cuneo-Lodi
Messaggi Scritti : 1

Classico di Aruba...

Anche io ho avuto un problema con l'upload di alcune immagini da form...non mi hanno dato l'autorizzazione, cosģ ho dovuto utilizzare inostri server per quest'operazione...


Il cliente č andato sul risparmio...ma poi č stato fregato...! Meglio spendere qualche € in pił...ma essere ben assistiti e forniti...che spendere poco e avere lo stesso poco in cambio..

L'Ale
2mila2 design

Inviva una mail a MissAlex Visita la Homepage di MissAlex

liloeconnie
scritto il 14/11/2010 18:20:42

Cittį : Roma
Messaggi Scritti : 9

Ciao a tutti, sto usando questo script per uploadare immagini via Form, mi funziona bene, perņ devo anche passare , oltre al file, anche delle caselle di testo ma non so come recuperarle nella pagina upload.asp.
Con il classico Request non me le recupera e ho letto in giro che dovrebbe esserci un metodo specifico per questo tipo di script ma non so quale.
Sapete aiutarmi??

Grazie1000
Massimo

Inviva una mail a liloeconnie Visita la Homepage di liloeconnie

liloeconnie
scritto il 14/11/2010 18:21:06

Cittį : Roma
Messaggi Scritti : 9

Ciao a tutti, sto usando questo script per uploadare immagini via Form, mi funziona bene, perņ devo anche passare , oltre al file, anche delle caselle di testo ma non so come recuperarle nella pagina upload.asp.
Con il classico Request non me le recupera e ho letto in giro che dovrebbe esserci un metodo specifico per questo tipo di script ma non so quale.
Sapete aiutarmi??

Grazie1000
Massimo

Inviva una mail a liloeconnie Visita la Homepage di liloeconnie

liloeconnie
scritto il 14/11/2010 18:21:10

Cittį : Roma
Messaggi Scritti : 9

Ciao a tutti, sto usando questo script per uploadare immagini via Form, mi funziona bene, perņ devo anche passare , oltre al file, anche delle caselle di testo ma non so come recuperarle nella pagina upload.asp.
Con il classico Request non me le recupera e ho letto in giro che dovrebbe esserci un metodo specifico per questo tipo di script ma non so quale.
Sapete aiutarmi??

Grazie1000
Massimo

Inviva una mail a liloeconnie Visita la Homepage di liloeconnie
  Pagina :  ]1[ 
Rispondi alla Discussione  
ASPCode Forum v.2.7b    

Ciao , oggi è il 19/11/2017, e sono le ore 05:41:59
In questo momento ci sono 0 utenti on-line e 15457 ospiti.
Messaggi inseriti oggi: 0
Totale argomenti inseriti: 8121
Totale messaggi inseriti: 28060
ArgomentoAttivo.
Argomento Chiuso.
Argomento Nuovo.
Totale utenti registrati : 10987
Ultimo utente registrato : ta69
Non sei loggato al forum, se vuoi farlo clicca qui, se non sei ancora registrato al forum e vuoi farlo clicca qui.

COMMUNITY - Login
 Username:
 
 Password:
 
Voglio registrarmi!
Password dimenticata?
 Utenti on-line: 0
 Ospiti on-line: 15457
AspIn.com
Utilitą
Link

Utenti connessi: 15457