用idhttp上传时出现 'HTTP/1.1 501 Not Implemented' 这如何处理啊谢谢

tongtianxiao 2011-03-14 12:26:11

用idhttp上传时出现 'HTTP/1.1 501 Not Implemented' 这如何处理啊谢谢
delphi2007

procedure TForm1.btn1Click(Sender: TObject);

var fs:TFileStream;

    Response:TStringStream;

    fileName:string;

begin

  fs:=TFileStream.Create('AbsIM客户端单元说明.xls',fmopenread);

  response:=TStringStream.Create('');

  try

    try

      idhtp1.Post('http://mail.*****.cn:9999/UploadFile.asp',fs,response);

    except

      showmessage(response.DataString);

    end;



  finally

    fs.Free;

    response.Free;

  end;

  {

  ---------------------------

Debugger Exception Notification

---------------------------

Project Project2.exe raised exception class EIdHTTPProtocolException with message 'HTTP/1.1 501 Not Implemented'.

---------------------------

Break   Continue   Help

---------------------------

 }

end;

UploadFile.asp

<%@ Language=VBScript %>

<%  

  Dim strMsg 'As String

  

 ' On Error Resume Next

  dim fuFile

  set fuFile = server.CreateObject("aspFileupload.file")  

  'Set the destination folder.

  fuFile.Target = "D:\UpFiles\"

  fuFile.Upload

  

  If Err.number = 0 Then

    strMsg = fuFile.FileName  & " was uploaded successfully."

  Else

    strMsg = "An error occurred when uploading your file: " & Err.Description 

  End If

  for each o in fuFile.Form

	Response.Write o  & "<BR>"

	

	next

	

	Response.Write fuFile.Form.item("text1") & "  :  " & fuFile.Form.item("text2")

'  Response.Write Request.Form("test")

 set fufile = nothing

%>

<html>

<head></head>

<body>

<%=strMsg%>

</body>

</html>