Jag har, på ett annat webhotell, ett problem med den komponentlösa uploaden... Får ett felmeddelande:
Request object error 'ASP 0207 : 80004005'
Cannot use Request.Form
/nyhet/outputfile.asp, line 183
Cannot use Request.Form collection after calling BinaryRead.
Någon som vet vad felet är?
Allt annat fungerar, men inte det här!
Det är då du använder enctype="multipart/form-data" som du inte kan använda request-objektet för att hämta informationen,
du får som sagt använda en speciell procedur som är kopplad till komponenten..
Då undrar jag som sagt hur det kom sig att det verkligen fungerade tidigare?
Det är väl bara att tacka och ta emot att det fungerade förr, men att nu skriva om det som det ska stå, så att säga.
<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
'Exempel på hur man kan 'plocka ner' andra forumlärelement
rubrik = UploadRequest.Item("rubrik").Item("Value")
inlagg = UploadRequest.Item("inlagg").Item("Value")
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")
value = UploadRequest.Item("blob").Item("Value")
If value <> "" then
'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)&filename)
Set MyFile = ScriptObject.CreateTextFile(Server.MapPath("upload/"&filename))
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
end if
%>
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DSN=xxx;Password=xxxx"
SQLStmt = "INSERT INTO nyheter_b (nyh_bild, rubrik, inlagg, forfattare) "
SQLStmt = SQLStmt & "VALUES('" & filename & "', '" & rubrik & "', '" & inlagg & "', '" & Session("Namn") & "') "
Set RS = Connection.Execute(SQLStmt)
response.Redirect("../admin/red_nyh_b.asp")
Connection.Close
Set Connection = Nothing
%>
<!--#include file="upload.asp"-->
Och detta blir felmeddelandet:
Error Type:
Sun ONE ASP VBScript runtime (0x800A4001)
Function or method call not implemented: 'ChrB'
upload.asp, line 58
Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322)
Page:
POST 399 bytes to /nyhet/outputfile.asp
POST Data:
Request object error 'ASP 0207 : 80004005'
Cannot use Request.Form
/bildarkiv/outputfile.asp, line 183
Cannot use Request.Form collection after calling BinaryRead.
Nej... jag vet alltså inte. Men av ditt felmeddelande att döma verkar det som om ditt hotell kör Chilisofts "aspversion".
Vad jag vet så fixar inte den allt som Microsofts variant gör.
Eftersom du skrev att felet uppstått nu när du bytt hotell tänkte jag att det kanske skulle kunna bero på just det.
Men som sagt, jag vet inte, det var bara en tanke.
Du får hålla tummarna att någon mer bildad dyker upp o lägger in sin syn på saken. :)
