1,317
社区成员




TIdHTTP *IdHTTP=new TIdHTTP(NULL);
IdHTTP->HandleRedirects=true;
AnsiString strRetData="";
TStringStream *ResponseStream=new TStringStream("");
AnsiString strURL="http://localhost/Register.asp";
TIdMultiPartFormDataStream *s=new TIdMultiPartFormDataStream();
s->AddFormField("Name","123");
s->AddFormField("Telphone","123456789");
s->AddFormField("EMail","123@qq.com");
IdHTTP->Post(strURL,s,ResponseStream);
strRetData=ResponseStream->DataString;
ShowMessage(strRetData);
delete ResponseStream;
delete s;
delete IdHTTP;
dim strName,strTelphone,strEMail
strName=request.QueryString("Name")
strEMail=request.QueryString("EMail")
strTelphone=request.QueryString("Telphone")
if strName="" or strTelphone="" or strEMail="" then
response.write "Data Error"
response.end
end if