全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:4198
推到 Plurk!
推到 Facebook!

Get方法无问题,POST时产生HTTP/1.0 500 Internal Server Error

答題得分者是:RootKit
pung4pung
一般會員


發表:8
回覆:8
積分:3
註冊:2007-10-14

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-12-27 20:19:23 IP:58.248.xxx.xxx 訂閱
代码如下:
[code delphi]
請在此區域輸入程式碼
procedure TForm1.btn1Click(Sender: TObject);
var
p:TStringList;
s:String;
URL:string;
begin
URL:='http://www.civillaw.com.cn/vote/newvote.asp';
p:=TStringList.Create;
p.Add('ID=121');
p.Add('page=1');
p.Add('elect=0');
p.Add('submit=ͶƱ'); //这句删掉和不删掉都不行。
IdHTTP1.HandleRedirects:=True;
IdHTTP1.ProxyParams.ProxyServer:='218.5.18.131';
IdHTTP1.ProxyParams.ProxyPort:=3128;
//s:=IdHTTP1.Get('http://www.civillaw.com.cn/vote/newvote.asp?ID=121&page=1&elect=0&submit=ͶƱ');
s:=IdHTTP1.Post(URL,p);
mmo1.Text:=s;
end;
[/code]

GET方法能成功投票,但是用POST就出错,大大们帮忙看看哪里出错??


附页面代码

[code xml]
請在此區域輸入程式碼
<form action=newvote.ASP method=post name=form0><br />










1. 目前利用ATM机自身错误恶意取款的行为是构成不当得利还是构成盗窃,不论在实践中还是在学界都存在严重分歧,全国人大通过法律解释应对此类行为进行明确定性,以作该类案件判决的依据。您认为: 总投票数:468




<input type=hidden name=ID size=20 value=121><br /> <input type=hidden name=page size=20 value=1><br />
<input type=radio name=elect value="0" <br /> checked>
(1) ATM机不属于金融机构,因此由于ATM错误产生的责任属于民事责任中不当得利。


<input type=radio name=elect value="1" <br /> >
(2) ATM机是金融机构的延伸,因此此类案件属于刑事盗窃罪范畴。


<input type=radio name=elect value="2" <br /> >
(3) 应区分对待:恶性取款类似盗窃性质,属于刑事法律关系范畴;偶然错误应属于民事法律关系范畴。









96.58%
1.5%
1.92%







(1)(2)(3)
<input name="submit" type=submit value=投票><br />

</form><br />[/code]
RootKit
資深會員


發表:16
回覆:358
積分:419
註冊:2008-01-02

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-01-02 11:26:37 IP:61.222.xxx.xxx 訂閱

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
PData : TStringStream;
FileStrm : TFileStream;
URL:string;
begin
URL:='http://www.civillaw.com.cn/vote/newvote.asp';

PData := TStringStream.Create('');
Try
FileStrm := TFileStream.Create('c:\Temp.htm',fmOpenWrite);
Try
PData.WriteString('ID=121&');
PData.WriteString('Page=1&');
PData.WriteString('elect=1&');
PData.WriteString('submit=ͶƱ');


IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
Pdata.Seek(0,0);
IdHTTP1.HandleRedirects:=True;
// IdHTTP1.ProxyParams.ProxyServer:='218.5.18.131';
// IdHTTP1.ProxyParams.ProxyPort:=3128;
IdHTTP1.Post(URL,PData,FileStrm);
WebBrowser1.Navigate('about:blank');
SLEEP(100);
Finally
FileStrm.Free;
end;
WebBrowser1.Navigate('c:\Temp.htm');
Finally
PData.Free;
end;
end;

[/code]
編輯記錄
RootKit 重新編輯於 2008-01-02 12:00:38, 註解 無‧
RootKit 重新編輯於 2008-01-02 13:20:45, 註解 無‧
pung4pung
一般會員


發表:8
回覆:8
積分:3
註冊:2007-10-14

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-01-02 20:13:06 IP:58.248.xxx.xxx 訂閱
已成功,多谢!!

RootKit
資深會員


發表:16
回覆:358
積分:419
註冊:2008-01-02

發送簡訊給我
#4 引用回覆 回覆 發表時間:2008-01-03 01:56:08 IP:61.222.xxx.xxx 訂閱
請結案! 

===================引 用 pung4pung 文 章===================
已成功,多谢!!

系統時間:2024-04-17 4:42:18
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!