请问 IHTMLSelectElement 的 ADD 方法(100分)

我想 在网页中将一个option加到select 对象中，但不只怎么用这个
Add方法，查MSDN也没弄明白，希望有个例子，多谢

这是用php写的。
option是从数据库中检索到的
<select size="1" name="companyid" onchange="form1.submit();">
<option value="" selected>所有－－请选择公交公司</option>
<?
$q->query("SELECT * FROM Company_Friend $condition GROUP BY CompanyF_name");
while ($q->next_record())
{
echo "<option value='".$q->f('CompanyF_id')."'>".$q->f('CompanyF_name')."</option>";
}
?>
</select>

谢谢,有delphi的例子吗,我用的是Twebbrowser控件.

我以为你是用asp,不好意思

我的程序是没有服务器执行asp的，要是的话就简单了.
有C的代码也行,应该也适用 delphi

我不太明白你的意思了，delphi5下demos目录下游各coolstuf目录用的是Twebbrowser空间
不知对你有用没有

我的意思对静态网页处理，而不是放在web服务器上。

问题解决,还是得查MSDN
procedure TMainform.getyear;
var
ShellWindow: IShellWindows;
nCount: integer;
spDisp: IDispatch;
i,j,X,l: integer;
vi: OleVariant;
IE1: IWebBrowser2;
IDoc1: IHTMLDocument2;
iELC : IHTMLElementCollection ;
S,S2 : string;
HtmlSelEle : IHTMLSelectElement;
htmloption: IHTMLOptionElement;
op:Ihtmlelement;

begin
try

idoc1:=Web.Document as IHTMLDocument2;
ielc:=idoc1.Get_all;
j:=0;
while j<ielc.length-1 do
begin
Application.ProcessMessages;
spDisp := ielc.item(J, 0);
if SUCCEEDED(spDisp.QueryInterface(IHTMLselectelement ,HtmlSelEle))then
with HtmlSelEle do
begin
if name='nian' then
begin
for l:=0 to length-1 do
begin
remove(0);
j:=j+1;
end;
adq.Close;
adq.SQL.text:='select n from lw group by n';
adq.Open;
while not adq.Eof do
begin
op:=idoc1.createElement('OPTION');
op.setAttribute('aaa','bbb',0);
htmloption:=op as ihtmloptionelement;
htmloption.text:=adq.fieldbyname('n').asstring;
htmloption.value:='mynianchange/'+adq.fieldbyname('n').AsString;
add(op,htmlselele.length);
adq.Next;
j:=j-1;
end;
htmlselele.selectedIndex:=0;
end;
if name='qi' then
begin
for l:=0 to length-1 do
begin
remove(0);
j:=j+1;
end;
adq.Close;
adq.SQL.text:='select q from lw where n=(select min from lw) group by q';
adq.Open;
while not adq.Eof do
begin
op:=idoc1.createElement('OPTION');
op.setAttribute('aaa','bbb',0);
htmloption:=op as ihtmloptionelement;
htmloption.text:=adq.fieldbyname('q').asstring;
htmloption.value:='myqichange/'+adq.fieldbyname('q').AsString;
add(op,htmlselele.length);
adq.Next;
j:=j-1;
end;
htmlselele.selectedIndex:=-1;
end;
end;
j:=j+1;
end;
except
end;

exit;
end;