Web Wiz Rich Text Editor & Server.CreateObject Failed

[alexba64]

ho inserito lo script di boal74

Quindi senza componenti vari

[marco1970]

ho aggiunto nuova costante una nuova routine in select case ed il file upload.asp

[klinik]

Ciao, anche io ho il problema upload...
Che modifiche hai fatto per poter ulpoadare su aruba correttamente??

Grazie
Gab

[marco1970]

ho aggiunto la classe upload di boal

[klinik]

Ciao, avevo bel letto che hai messo la classe upload di boal....
ma volevo sapere le modifiche precise che hai fatto, dato che mastico asp fino ad un certo punto... sarebbe possibile avere il dettaglio delle modifiche??

Gab

[marco1970]

allora....
per fare upload su aruba hai 2 scelte la prima è scaricare sal sito di aruba il loro script di upload o scaricarti la calasse di boal.
Io ho optato per la seconda.
Per integrarla nel file RTE_configuration\RTE_setup.asp alla sezione "Upload component (uncomment the upload component you require)" devi commentare tutte le voci ed inserirne una tua es. "Const strUploadComponent = "marco" ' upload di boal" poi nel file functions\functions_upload.asp inserisci una nuova condizione nel select case che chiamerai con il nome sopra dichiarato ( nel mio caso marco ) dove implementerai la classe di boal.
Avendo fatto molteplici modifiche sostanziali a text editor mi sembra che sia tutto.
Buon lavoro
Marco

[catolino]

Ciao , io ho lo stesso problema, premetto che non sono su aruba, premetto anche che sono alle prime armi con asp, di norma per l' upload uso il sistema upload che si puo' scaricare da aruba

composto dal file upload.asp:

<%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("Conte nt-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("filen ame="))
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),Requ estBin,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%>




e da outputFile.asp :


<%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_I NFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Re quest.ServerVariables("PATH_INFO")),pathEnd) & filename)

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

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

<body>


Questo sistema so di certo funzionare sul mio spazio server, ma l' upload di web rich text invece no, ho dato i permessi alla cartella dove vanno a salvarsi i file ma nulla da fare, immagino che non ho il componente installato su server, ma come posso fare ad utilizzare lo script o relativo componente di uspupload.asp su web rich text

Vi prego di darmi i vari step perchè altrimenti non cavo ragno dal buco

grazie in anticipo

Originariamente inviato da marco1970
ho aggiunto la classe upload di boal

[xelabug]

Non riesco ad inserire la classe di Boal74 nel file "functions_upload.asp" !?!

Cosa devo fare?

creo un nuovo "select case" e dentro cosa ci metto ?


'******************************************
'*** Upload components ****
'******************************************

'Select which upload component to use
Select Case strUploadComponent


'******************************************
'*** boal Upload component ****
'******************************************

'boal Upload component -
Case "boal"

Ciao e Grazie.