<FORM name=pageform onsubmit="return check_page(this);" action=http://www.chinabig.com/v07/company/keywords_company_result.jsp method=post>
<TD align=middle><INPUT type=hidden value=食品经销 name=keyword> <INPUT type=hidden value=0 name=provinceId> <INPUT type=hidden value=0 name=cityId> <INPUT type=hidden value=0 name=isCustomer> <INPUT type=hidden name=businessIndex> <INPUT type=hidden value=0 name=businessModelId> 共 <SPAN class=font_12_red>86</SPAN> 条信息,第 <SPAN class=font_12_red_b>1</SPAN>/<SPAN class=font_12_red>6</SPAN> 页 <A href="javascript:submitPageform(1)">首 页</A> <A href="javascript:submitPageform(1)">上一页</A> <A href="javascript:submitPageform(2)">下一页</A> <A href="javascript:submitPageform(6)">尾 页</A> 到第 <INPUT class=bd size=10 value=1 name=page> 页 <INPUT type=submit value=GO name=Submit> </TD></FORM></TR></TBODY></TABLE><BR><BR>
function check_page(form){
if(form.page.value.search(/^\d+(\.\d+)?$/)==-1){
alert("只能输入数字!");
form.page.select();
form.page.focus();
return false; 我的代码
WebBrowser2.Document.All("page") = text1.text
Sleep (1000)
WebBrowser2.Document.All("Submit").submit
我还试过 WebBrowser2.Document.All("pageform").submit , WebBrowser2.Document.getElementByName("Submit").submit 都不行 网页text框可以填写。。但是不给提交 }
<TD align=middle><INPUT type=hidden value=食品经销 name=keyword> <INPUT type=hidden value=0 name=provinceId> <INPUT type=hidden value=0 name=cityId> <INPUT type=hidden value=0 name=isCustomer> <INPUT type=hidden name=businessIndex> <INPUT type=hidden value=0 name=businessModelId> 共 <SPAN class=font_12_red>86</SPAN> 条信息,第 <SPAN class=font_12_red_b>1</SPAN>/<SPAN class=font_12_red>6</SPAN> 页 <A href="javascript:submitPageform(1)">首 页</A> <A href="javascript:submitPageform(1)">上一页</A> <A href="javascript:submitPageform(2)">下一页</A> <A href="javascript:submitPageform(6)">尾 页</A> 到第 <INPUT class=bd size=10 value=1 name=page> 页 <INPUT type=submit value=GO name=Submit> </TD></FORM></TR></TBODY></TABLE><BR><BR>
function check_page(form){
if(form.page.value.search(/^\d+(\.\d+)?$/)==-1){
alert("只能输入数字!");
form.page.select();
form.page.focus();
return false; 我的代码
WebBrowser2.Document.All("page") = text1.text
Sleep (1000)
WebBrowser2.Document.All("Submit").submit
我还试过 WebBrowser2.Document.All("pageform").submit , WebBrowser2.Document.getElementByName("Submit").submit 都不行 网页text框可以填写。。但是不给提交 }
Dim vDoc
Set vDoc = Web.Document
vDoc.body.All("page").Value = "23"
vDoc.body.All("Submit").Click
End Sub