VB网页上传附件的问题

我的问题是

登陆网站OK
在点击网页中的文字链接，代码如下
+' <td id=menu8 align="center" nowrap="nowrap" width=83> <span color="#082d71" onclick="javascript:ActionHandle(2355703,8);" onmouseover="this.style.cursor=\'hand\';"> <font color="#082d71">&nbsp;管理 </font> </span> </td>'

在点击网页中的文字链接，代码如下
'/ebs/images/butt_sm.gif','标准,'/ebs/zcc/dj/djjc/djjc14/Djjc14List.do','parent.mainFrame';

然后在TEXT1中输入条件给编码，在点击网页中“查询”文字,代码如下
<td noWrap  width = "" align="left"  colspan="1"  class="editLabel"  >编码 </td>
  <td noWrap width = "" align="left" colspan="1"  class="editLabel"  > <input type="text"  id="M_DT_PRODUCT_CODE_EXT4" name="M_DT_PRODUCT_CODE" size="20" maxlength="32" value="" class="editText">


<td width="50" align="center" height="19" background="/ebs/images/butt_bg.gif"
onclick="divButton.style.visibility='hidden';queryRec();;if(document.readyState!='loading') divButton.style.visibility='visible';&q