现在的程序是
var
SS: TStringList;
a : string;
res : TStringStream;
begin
IDHttp1.HandleRedirects := true;
IdHTTP1.request.contenttype:='application/x-www-form-urlencoded';
IdHTTP1.ProtocolVersion := pv1_1;
SS := TStringList.Create();
SS.Add('aa=' + Edit2.Text);
res := TstringStream.Create('');
try
idhttp1.Post(Edit1.Text,SS,res);
finally
a :=Res.DataString;
res.Free;
SS.Free;
end;
Memo1.Lines.Add(a);执行以后,memo1可以获得网页的编码,但是想传上去的参数却没有传到页面中,页面没有收到。
下边是页面程序,用vs2005做的
protected void Page_Load(object sender, EventArgs e)
{
//if (Request.QueryString["aa"] != null)
//{
// string sql = "insert into Table1 (aaa) values ('" + Request.QueryString["aa"].ToString() + "')";
// DBPub.ExecuteSql(sql);
//}
if (!this.IsPostBack)
{
if (this.Request.QueryString.Count > 0)
{
Label1.Text = this.Request.QueryString["aa"].ToString();
string sql = "insert into Table1 (aaa) values ('" + this.Request.QueryString["aa"].ToString() + "' )";
DBPub.ExecuteSql(sql);
}
}
}
请大家帮我看看哪里有问题,如果在提交以后页面能返回一个消息就最好了,试了好久没成功,帮帮忙咯
var
SS: TStringList;
a : string;
res : TStringStream;
begin
IDHttp1.HandleRedirects := true;
IdHTTP1.request.contenttype:='application/x-www-form-urlencoded';
IdHTTP1.ProtocolVersion := pv1_1;
SS := TStringList.Create();
SS.Add('aa=' + Edit2.Text);
res := TstringStream.Create('');
try
idhttp1.Post(Edit1.Text,SS,res);
finally
a :=Res.DataString;
res.Free;
SS.Free;
end;
Memo1.Lines.Add(a);执行以后,memo1可以获得网页的编码,但是想传上去的参数却没有传到页面中,页面没有收到。
下边是页面程序,用vs2005做的
protected void Page_Load(object sender, EventArgs e)
{
//if (Request.QueryString["aa"] != null)
//{
// string sql = "insert into Table1 (aaa) values ('" + Request.QueryString["aa"].ToString() + "')";
// DBPub.ExecuteSql(sql);
//}
if (!this.IsPostBack)
{
if (this.Request.QueryString.Count > 0)
{
Label1.Text = this.Request.QueryString["aa"].ToString();
string sql = "insert into Table1 (aaa) values ('" + this.Request.QueryString["aa"].ToString() + "' )";
DBPub.ExecuteSql(sql);
}
}
}
请大家帮我看看哪里有问题,如果在提交以后页面能返回一个消息就最好了,试了好久没成功,帮帮忙咯
我用hongqi162这种发放试了一下,可以成功。但是没有返回值,请问返回值在网页中怎么写呢,我用的vs2005看到有的人用的这种方法
data := TIdMultiPartFormDataStream.Create;
data.AddFormField('Login', Edit1.text);
data.AddFormField('Password', MaskEdit1.text);
data.AddFormField('Room', ComboBox1.Text);
data.AddFormField('Enter', 'ENTER');
其中的login是html组件还是vs2005的控件呢?象填空一样也可以。