如何用webbrowser控制这个页面的表单提交

就是蹦出一个窗口，里面有一个单行文本框，和一个浏览按钮，还有一个图片的提交按钮！就是上传图片的窗口下面是这个页面的html代码，大家看看如何写，给我功能代码<HTML>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<HEAD>
<TITLE>Image Upload Form</TITLE>
<link rel="stylesheet" type="text/css" href="http://image.ecplaza.net/global/tonta/css/newhome.css"><SCRIPT LANGUAGE="JavaScript">
<!--
extArray = new Array(".gif", ".jpg", ".jpeg");function LimitAttach(form, file)
{
    allowSubmit = false;
    if (!file) return;
    while (file.indexOf("\\") != -1)
    file = file.slice(file.indexOf("\\") + 1);
    ext = file.slice(file.indexOf(".")).toLowerCase();
    
    for (var i = 0; i < extArray.length; i++)
    {
        if (extArray[i] == ext)
        {
            allowSubmit = true; 
break;
        }
    }    if (allowSubmit)
    {
        UpdatePreviewImage();
        return true;
    }
    else
    {
        alert("JPG or GIF file Only");
        document.actionForm.reset();
        return false;
    }
}function UpdatePreviewImage()
{
    document.actionForm.previewimage.style.color = "#000000";
    document.actionForm.previewimage.src = document.actionForm.image.value;
}function check()
{
    var valid = actionForm.image.value;
    
    if (valid=="")
    {
        alert("File Not Found");
        return;
    }
    
    if (!LimitAttach(actionForm, valid))
    {
        return;
    }
    
    document.actionForm.tmpimage.value=document.actionForm.previewimage.src;
    bottomTable.style.display='none';
    actionForm.submit();
}function noPress()
{
    alert("No key press.");
    document.actionForm.reset();
}
//-->
</SCRIPT>
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0"><table width="100%" border=0 cellspacing=0 cellpadding=0>
<tr><td align=left bgcolor="#336699">&nbsp;<span style="color:white;font-size:20px;font-wight:bold;">Upload Image</span></td></tr><tr><td height=5></td></tr></table><form method=post name=actionForm action="imageupload.asp" enctype="multipart/form-data" method="post">
<input type=hidden name=cmd value="uploadImage">
<input type=hidden name=tmpimage value="">
<input type=hidden name=orgimage value="http://image.ecplaza.net/global/mari/images/profile/noimg.gif">
<table width="100%" border="0" cellspacing="1" cellpadding="4">
<tr> 
<td width="25%" align="center" valign="middle" bgcolor="F3F3F3">
<img src="http://image.ecplaza.net/global/mari/images/profile/noimg.gif" width=80 height=80 border=1 align="center" name="previewimage">
    </td>
    <td valign="top" width=75%> 
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="3">
<tr>
<td height="97"> <b>Steps to post your image,</b><br>
1. Click the &quot;Browse&quot; button to select the image file from your computer.<br>
2. Click the &quot;Upload&quot; button to complete uploading.<br>
            <br>
            <input type="file" name="image" size=40 onKeyPress="noPress()" onChange="LimitAttach(this.form, this.form.image.value)"><br>
            - recommended image size : 320*320 Pixel<br>
            - JPG or GIF file Only<br>
            - limited file size : 500 KB
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr valign="bottom"> 
<td height="35" align="right">
<table id="bottomTable" width="150" border="0" cellspacing="0" cellpadding="0" align="center">
<tr> 
<td height="30" align="center"><a style="cursor:hand;" onClick="check();"><img src="http://image.ecplaza.net/global/mari/images/profile/upload.gif" border="0"></a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="15" align="right">
<a href="javascript:self.close()">Close this window</a>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
</tr>
</table><SCRIPT LANGUAGE="JavaScript">
<!--
    //document.actionForm.previewimage.src = opener.document.actionForm.previewimage.src;
    document.actionForm.previewimage.src = "http://image.ecplaza.net/global/mari/images/profile/noimg.gif";
//-->
</SCRIPT>
</body>
</html>

解决方案 »

  1.   

    大家看看 ，该怎么 做啊，把上面的 html文件，保存成本地的htm文件，大家看看 该如何操作？
      

  2.   

    大家看看 ，该怎么 做啊，把上面的 html文件，保存成本地的htm文件，大家看看 该如何操作？
      

  3.   

    这几天 是不是 csdn上的人 都放假 回家了啊？
      

  4.   

    试试：var
      Docs, ovElements: OleVariant;
    begin
        Docs := WB.OleObject.Document;
        ovElements := Docs.GetElementByID('image');
        ovElements.Value := 'c:\aa.bmp'