in questo form ho la casella destinazione ke devo importarla nel file outputfile.asp per poterla inserire nella riga evidenziata solo ke se vado a fare request.form("destinazione") dove lo metto lo metto da questo errore :
Request object error 'ASP 0206 : 80004005'
Cannot call BinaryRead
/outputfile.asp, line 7
Cannot call BinaryRead after using Request.Form collection.
ecco il form
set conn = Nothing
Response.write " <FORM METHOD='Post' ENCTYPE='multipart/form-data' ACTION='outputfile.asp'>"
Response.write "<table align=center><tr><td>"
Response.write "<input name='destinazione' type='text' id='destinazione' value=" & dest &" disabled >"
Response.write "<font face='Verdana' size='2' color=yellow>File : </td><td><INPUT TYPE='file' NAME='blob'></td><td>"
Response.write "<INPUT TYPE='submit' NAME='Enter' value='upload'></td>"
Response.write "</tr></table>"
Response.write "</FORM>"
End if
questo è outputfile.asp
<%Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest,link
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
contentType = UploadRequest.Item("blob").Item("ContentType")
'Content-Type è il tipo di file
filepathname = UploadRequest.Item("blob").Item("FileName")
'File path name è il percorso sul client
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
'Filename è il nome del file
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) & "/public/" & filename)
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
%>
<html>
<body bgcolor=#608ac6>
<p align="center"><font face="Verdana" size="2">
File "<%=filename%>" ricevuto con successo</font>
Torna a casa
</body>
</html>
Rispondi quotando
