这个网页的提交怎样写？难！ ( 积分: 10 )

我的目的就是要点击“问题提前”按钮，但里面有3个按钮，如何做？一个是这样的： WebBrowser1.OleObject.Document.handle.submit();就可以提交了。


<FORM name=handle action=handleq.asp?LID=31210 method=post>
<INPUT type=hidden
name=act>
<INPUT type=hidden value=1 name=FID>
<FONT face=Marlett
color=blue>8</FONT>
<INPUT class=YellowButton onclick=handle.act.value=1; type=submit value=" 问题提前 ">
 
<FONT face=Marlett color=blue>8</FONT>
<INPUT class=YellowButton onclick=handle.act.value=3; type=submit value=" 订阅邮件 ">
 
<FONT face=Marlett color=blue>8</FONT>
<INPUT class=YellowButton onclick=handle.act.value=4; type=submit value=" 收藏此贴 ">
 
</FORM>

我的目的就是要点击“问题提前”按钮，但里面有3个按钮，如何做？一个是这样的： WebBrowser1.OleObject.Document.handle.submit();就可以提交了。


<FORM name=handle action=handleq.asp?LID=31210 method=post>
<INPUT type=hidden
name=act>
<INPUT type=hidden value=1 name=FID>
<FONT face=Marlett
color=blue>8</FONT>
<INPUT class=YellowButton onclick=handle.act.value=1; type=submit value=" 问题提前 ">
 
<FONT face=Marlett color=blue>8</FONT>
<INPUT class=YellowButton onclick=handle.act.value=3; type=submit value=" 订阅邮件 ">
 
<FONT face=Marlett color=blue>8</FONT>
<INPUT class=YellowButton onclick=handle.act.value=4; type=submit value=" 收藏此贴 ">
 
</FORM>

http://blog.csdn.net/laoli/archive/2005/07/04/412364.aspx

var
HtmlDoc:IHTMLDocument2;
myitem:Olevariant;
i:integer;
begin
myitem := WebBrowser1.Document;

for i := 0 to myitem.all.length - 1 do
begin
//if myitem.all.item(i).tagName = 'SELECT' then // 下拉框选择
//begin
//myitem.all.item(i).value:='2'; // 从下拉框中选中第2项
// end;

if myitem.all.item(i).tagName = 'INPUT' then
begin
if Uppercase(myitem.all.item(i).type)='RADIO' then
begin
if myitem.all.item(i).value='6220' then myitem.all.item(i).checked:=true; // 选中值是 '求'的选项
end;

//if Uppercase(myitem.all.item(i).type)='TEXT' then
// begin
// if Uppercase(myitem.all.item(i).name)='USERNAME' then myitem.all.item(i).value:='abc123';
// end;
//if Uppercase(myitem.all.item(i).type)='PASSWORD' then
// begin
//if Uppercase(myitem.all.item(i).name)='PASSWORD' then myitem.all.item(i).value:='12345678';
//end;
if Uppercase(myitem.all.item(i).type)='SUBMIT' then
begin
if Uppercase(myitem.all.item(i).value)='提交' then myitem.all.item(i).click; // 点击提交键
end;
end;
end;
edit3.Text:=inttostr(i);
end;

呵呵，那个用在HTML和ASP代码中就可以实呀~
你可以这样试试：
HTML代码：
<FORM name=handle action=handleq.asp?LID=31210 method=post>
<INPUT type=hidden name=act>
<INPUT type=hidden value=1 name=FID><FONT face=Marlett color=blue>8</FONT>
<INPUT class=YellowButton onclick=handle.act.value=1; type=submit name="01" value=" 问题提前 ">
<FONT face=Marlett color=blue>8</FONT>
<INPUT class=YellowButton onclick=handle.act.value=3; type=submit name="02" value=" 订阅邮件 ">
<FONT face=Marlett color=blue>8</FONT>
<INPUT class=YellowButton onclick=handle.act.value=4; type=submit name="03" value=" 收藏此贴 ">
</FORM>

handleq.asp代码：
<%
Name1=Trim(request.Form("01&quot)
Name2=Trim(request.Form("02&quot)
Name3=Trim(request.Form("03&quot)

if Name1<>"" then
'下面为相应的处理代码
response.Write(Name1)
response.Write("<br>OK&quot
elseif Name2<>"" then
'下面为相应的处理代码
response.Write(Name2)
response.Write("<br>OK&quot
elseif Name3<>"" then
'下面为相应的处理代码
response.Write(Name3)
response.Write("<br>OK&quot
end if
%>