idhttp post 实例 不知道哪位大侠有

[haojielyb]

delphi code

procedure TForm1.Button3Click(Sender: TObject);
var
res,ret:tstringstream;
sends:tstringlist;
begin
res:=TStringStream.Create('');
ret:=TStringStream.Create('');
IdHTTP1 :=TIdHTTP.Create(nil);
sends:=tstringlist.Create;
res.WriteString('nick=name');
res.WriteString('fasdf=ndafdasfdsaf');
sends.Clear;
sends.Add('txt_name=name');
sends.Add('&txt_password=name');
IDHttp1.HandleRedirects := true;
IdHTTP1.request.contenttype:='application/x-www-form-urlencoded';

showmessage(res.DataString);
showmessage(sends.GetText);
IdHTTP1.ProtocolVersion:=pv1_1;
IdHTTP1.get('xxxxxx.asp',res);
showmessage(idhttp1.Response.ResponseText);
IdHTTP1.post('xxxxx.asp',sends,ret);
showmessage(ret.DataString);

ret.Free;
sends.Free;
res.Free;
idhttp1.Free;
end;


asp code

For Each x In Request
if x<>"submit" then
flist1=flist1&x&","
values1=values1&"'"&Request(x)&"',"
end if
response.write(FLIST1&values1)
Next

[haojielyb]

以上代码 有问题吗 ？
为什么 我的 asp 输出的内容始终得不到 value 和 字段
请大侠帮忙
分数不够 可以加

[haojielyb]

顶

[CYDong0423]

^_^关注学习^_^