Ragazzi, ho bisogno del vostro aiuto. Dal sito di Aruba ho preso uno script per eseguire l'upload di immagini dal sito, che ho implementato ad un'area riservata che già avevo...
Dunque, questo è il form di upload (form_upload_01.asp), modificato da me:
Questo, invece, è il file "outputFile.asp" (sempre modificato da me):codice:<HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft FrontPage 6.0"> <TITLE></TITLE> </HEAD> <BODY bgcolor="#FFCB8C"> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="100%"> <FORM METHOD="Post" ENCTYPE="multipart/form-data" ACTION="outputFile.asp"> <p align="center"><font face="Verdana" size="2">Nome: <input type="text" name="nome" id="nome"></font><p align="center"> Descrizione: <p align="center"> <textarea name="descrizione" cols="60" rows="10" id="descrizione"></textarea><p align="center"><font face="Verdana" size="2"> File : <INPUT TYPE="file" NAME="blob"> <INPUT TYPE="submit" NAME="Enter" value="Invia!"> </font> </FORM> </center> <p align="left"></td> </tr> <tr> <td width="100%"> </td> </tr> </table> </div> </BODY> </HTML>
Alla fine mi dà quest'errore:codice:<%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,"\")) oldfilename = filename filename = Day(Now) & "-" & Month(Now) & "-" & Year(Now) & "-" & Hour(Now) & Minute(Now) & Second(Now) & "_by_" & str_users_name & "_" & filename 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) & SUBFOLDER & "\" & filename) For i = 1 to LenB(value) MyFile.Write chr(AscB(MidB(value,i,1))) Next MyFile.Close%> <% nome_aereo = Request.Form("nome") descrizione = Request.Form("descrizione") Dim objFSO, objTextFile 'Creazione dell'istanza FileSystem Set objFSO = CreateObject("Scripting.FileSystemObject") 'Apertura del file di testo 'Utilizzare, a seconda della necessità, una delle due righe di codice 'Set objTextFile = objFSO.CreateTextFile("C:\InetPub\prova\prova.txt") Set objTextFile = objFSO.CreateTextFile(Server.MapPath("prova.txt")) 'Scrivo la prima riga di codice objTextFile.WriteLine "Prova:" & nome_aereo & descrizione 'Chiudo il file e i vari oggetti/istanze objTextFile.Close Set objTextFile = Nothing Set objFSO = Nothing %> <head> <title></title> </head> <body bgcolor="#FFCB8C"> <p align="center"><font face="Verdana" size="2"> File "<%=filename%>" ricevuto con successo</font> <p align="center"><font face="Verdana" size="2">torna</font></p>
Request object error 'ASP 0207 : 80004005'
Cannot use Request.Form
/public/outputFile.asp, line 34
Cannot use Request.Form collection after calling BinaryRead.
Spero davvero che qualcuno di voi mi riesca ad aiutare. Io sto impazzendo.
Rispondi quotando