很奇怪的网址http://www.cwzj.com/W/review.asp?id=1523(200分)

  • 主题发起人 主题发起人 linuxping
  • 开始时间 开始时间
L

linuxping

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TfrmMain.Button1Click(Sender: TObject);
var
str,CookList,Cookiestr:String;
List:TStringList;
I:Integer;
begin
list:=TStringList.Create;
try
IdHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.2; .NET CLR 1.1.4322)';
IdHTTP1.Request.AcceptEncoding:='gzip, deflate';
IdHTTP1.Request.Accept:='*/*';
IdHTTP1.HandleRedirects:=True;
IdHTTP1.RedirectMaximum:=3;
IdHTTP1.AllowCookies:=True;

IdHTTP1.Get('http://www.cwzj.com/W/View_Info.asp?Id=1523');
for i:=0 to IdHTTP1.Response.RawHeaders.Count-1 do
begin
if UpperCase(Copy(IdHTTP1.Response.RawHeaders,1,10))= 'SET-COOKIE' then
begin
Cookiestr :=TrimRight(Copy(IdHTTP1.Response.RawHeaders,12,MAXINT));
Cookiestr :=Copy(CookieStr,1,Pos(';',CookieStr));
CookList :=CookList+CookieStr;
end;
end;
//IdHTTP1.Request.SetHeaders;
//IdHTTP1.Request.RawHeaders.Values['Cookie']:=cooklist;
ShowMessage(Cooklist);
{name=1&sex=保密&xxid=1523&xxtime=2007-5-30 18:41:49&xxts=365&xxmem=0&tit=留言:&tel=22222222&email=333333@163.com&neirong=3&Submit=马上发布}
List.Add('name=wangping&');
List.Add('sex=保密&');
List.Add('xxid=1523&');
List.Add('xxtime=2007-5-30 18:41:49&');
List.Add('xxts=365&');
List.Add('xxmem=0&');
List.Add('&tit=留言');
List.Add('tel=22222222&');
List.Add('email=333333@163.com&');
List.Add('neirong=3&');
List.Add('Submit=马上发布');
IdHTTP1.Post('http://www.cwzj.com/W/savehf.asp',List);
idhttp1.Get(IdHTTP1.Response.Location);
finally
list.free;
end;
end;

提交不了数据..........

从IE上手动提交就可以,郁闷啊
 
公司叫我做个向http://www.cwzj.com/W/review.asp?id=1523自动提交数据的.

我以为很简单,可以怎么都提交不上去,搞的白白在这里坐了一整天...................................................................
 
只看不回答,生儿没屁眼[:D][:D][:D]
 
楼主说话太缺德。

估计是Referer的问题,你设置一下“http://www.cwzj.com”看看,不行就得
用HTTPdebug跟踪数据了。
 
referer设置了也不行 啊????????


郁闷啊...........
 
用WSockExpert监视一下
你的程序与IE发送的数据包,可以从中找到问题

WSockExpert程序你就百度一下知道了
 
狗屎去死.
 
哈哈,不会
 
都很有个性啊

我K
 
接受答案了.
 
后退
顶部