L
lpzst002
Unregistered / Unconfirmed
GUEST, unregistred user!
为什么我用idhttp控件 post数据的时候,数据能够提交,但是老是出现"302 Object moved",谁有同样的经历,请进来!!(我这个问题提前了好几次怎么没人回答啊,高手到哪去了!!!) (50分)<br /> If Trim(panel113.DBedit.Text)='' then Plong:='0' Else Plong:=panel113.DBedit.Text;
If Trim(panel114.DBedit.Text)='' then pwidth:='0' Else pwidth:=panel114.DBedit.Text;
if Trim(panel115.DBedit.Text)='' then Pheight:='0' Else Pheight:=panel115.DBedit.Text;
If Trim(panel123.DBedit.Text)='' then PPackLong:='0' Else PPackLong:=panel123.DBedit.Text;
If Trim(panel124.DBedit.Text)='' then PPackWidth:='0' Else PPackWidth:=panel124.DBedit.Text;
If Trim(panel115.DBedit.Text)='' then PPackHeight:='0' Else PPackHeight:=panel115.DBedit.Text;
If Trim(panel121.DBedit.Text)='' then PInnerBoxAmount:='0' Else PInnerBoxAmount:=panel121.DBedit.Text;
If Trim(panel122.DBedit.Text)='' then PInnerBoxContent:='0' Else PInnerBoxContent:=panel122.DBedit.Text;
If Trim(panel127.DBedit.Text)='' then PGrossWeight:='0' Else PGrossWeight:=panel127.DBedit.Text;
If Trim(panel126.DBedit.Text)='' then PNetWeight:='0' Else PNetWeight:=panel126.DBedit.Text;
HttpStr:='Pname='+Panel18.DBedit.Text+'&Pname_en=--'+'&PNo='+panel110.DBedit.Text;
HttpStr:=HttpStr+'&Ptype='+panel15.DBedit.Text+'&PtypeEN=toy&PPackStyle='+panel111.DBedit.Text;
HttpStr:=HttpStr+'&PPackStyleEN='+panel112.DBedit.Text+'&PUnits='+panel117.DBedit.Text;
HttpStr:=HttpStr+'&PUnitsEN=--&Pprice=0&Plong='+Plong;
HttpStr:=HttpStr+'&Pwidth='+pwidth+'&Pheight='+Pheight;
HttpStr:=HttpStr+'&PPackLong='+PPackLong+'&PPackWidth='+PPackWidth;
HttpStr:=HttpStr+'&PPackHeight='+PPackHeight+'&PInnerBoxAmount='+PInnerBoxAmount;
HttpStr:=HttpStr+'&PInnerBoxContent='+PInnerBoxContent+'&PPackUnits='+DBcombobox1.Text;
HttpStr:=HttpStr+'&PGrossWeight='+PGrossWeight+'&PNetWeight='+PNetWeight;
HttpStr:=HttpStr+'&Pinfo='+stringreplace(PanelMemo1.DBMemo.Text,chr(13)+chr(10),'<br>',[rfReplaceAll]);
Memo1.Text:=Httpstr ;
Response := TStringStream.Create('');
Try
Http.Post('http://www.sjrj.com/showpro/admin/NewProduct2.asp',Memo1.Lines,Response);
Finally
Memo1.Text:=Response.DataString;
End;
数据能够提交,在网上也看到数据了,就是老是出现 "302 Object moved"的错误,这是为什么啊?????[!][!]
If Trim(panel114.DBedit.Text)='' then pwidth:='0' Else pwidth:=panel114.DBedit.Text;
if Trim(panel115.DBedit.Text)='' then Pheight:='0' Else Pheight:=panel115.DBedit.Text;
If Trim(panel123.DBedit.Text)='' then PPackLong:='0' Else PPackLong:=panel123.DBedit.Text;
If Trim(panel124.DBedit.Text)='' then PPackWidth:='0' Else PPackWidth:=panel124.DBedit.Text;
If Trim(panel115.DBedit.Text)='' then PPackHeight:='0' Else PPackHeight:=panel115.DBedit.Text;
If Trim(panel121.DBedit.Text)='' then PInnerBoxAmount:='0' Else PInnerBoxAmount:=panel121.DBedit.Text;
If Trim(panel122.DBedit.Text)='' then PInnerBoxContent:='0' Else PInnerBoxContent:=panel122.DBedit.Text;
If Trim(panel127.DBedit.Text)='' then PGrossWeight:='0' Else PGrossWeight:=panel127.DBedit.Text;
If Trim(panel126.DBedit.Text)='' then PNetWeight:='0' Else PNetWeight:=panel126.DBedit.Text;
HttpStr:='Pname='+Panel18.DBedit.Text+'&Pname_en=--'+'&PNo='+panel110.DBedit.Text;
HttpStr:=HttpStr+'&Ptype='+panel15.DBedit.Text+'&PtypeEN=toy&PPackStyle='+panel111.DBedit.Text;
HttpStr:=HttpStr+'&PPackStyleEN='+panel112.DBedit.Text+'&PUnits='+panel117.DBedit.Text;
HttpStr:=HttpStr+'&PUnitsEN=--&Pprice=0&Plong='+Plong;
HttpStr:=HttpStr+'&Pwidth='+pwidth+'&Pheight='+Pheight;
HttpStr:=HttpStr+'&PPackLong='+PPackLong+'&PPackWidth='+PPackWidth;
HttpStr:=HttpStr+'&PPackHeight='+PPackHeight+'&PInnerBoxAmount='+PInnerBoxAmount;
HttpStr:=HttpStr+'&PInnerBoxContent='+PInnerBoxContent+'&PPackUnits='+DBcombobox1.Text;
HttpStr:=HttpStr+'&PGrossWeight='+PGrossWeight+'&PNetWeight='+PNetWeight;
HttpStr:=HttpStr+'&Pinfo='+stringreplace(PanelMemo1.DBMemo.Text,chr(13)+chr(10),'<br>',[rfReplaceAll]);
Memo1.Text:=Httpstr ;
Response := TStringStream.Create('');
Try
Http.Post('http://www.sjrj.com/showpro/admin/NewProduct2.asp',Memo1.Lines,Response);
Finally
Memo1.Text:=Response.DataString;
End;
数据能够提交,在网上也看到数据了,就是老是出现 "302 Object moved"的错误,这是为什么啊?????[!][!]