打印本文 打印本文 关闭窗口 关闭窗口
一个加强的文件上传(VB.Net)
作者:武汉SEO闵涛  文章来源:敏韬网  点击数2027  更新时间:2009/4/23 19:00:54  文章录入:mintao  责任编辑:mintao
nbsp;                  </tr>
                    <tr>
                        <td width="20%" bgcolor="#cccccc">
                            请选择上传到服务器的文件:</td>
                        <td bgcolor="#cccccc"><input id = "loFile" type = "file" runat = "server"></td>
                    </tr>
                    <tr>
                        <td width="20%" bgcolor="#eeeeee">
                            匹配类型:</td>
                        <td bgcolor="#eeeeee">
                            随机生成文件名(无重复):
                            <input type="radio" checked="checked" value="random" name="CMDfilename" id="CMDfilename" />
                            使用原名(若重复则覆盖):
                            <input type="radio" value="NotRandom" name="CMDfilename"  id="CMDfilename" />
                        </td>
                    </tr>
                    <tr>
                        <td bgcolor="#cccccc" colspan="2">
<div class="expandable" onclick="OnToggleTOCLevel1()" level2ID="compilerOutputDiv" style="FONT-WEIGHT: bold; CURSOR: hand; COLOR: navy; TEXT-DECORATION: underline">显示高级选项:</div>
<div id="compilerOutputDiv" style="display: none;">
            <br><table width=100% bgcolor="#ffffcc">
               <tr>
                  <td>请输入上传到服务器的目录名称:<input id = "dir" type = "text" runat = "server">【可以自定义上传目录,形式如:upload_1,将新建一个upload_1目录,请确定您有上传到此目录的权限。当前程序目录:<font color=red><b><%response.write (trim((Server.MapPath(""))))%>\</b></font>】</td>
</td></tr></table></div>
                        </td>
                    </tr>
                    <tr>
                        <td bgcolor="#cccccc" colspan="2">
                             <input type = "submit" value = "开始上传" OnServerClick="UploadFile_Clicked" runat ="server">
<span id="MessageNotXLS" EnableViewState="false" style="font: arial 11pt;" runat="server"/></td>
                    </tr>
                </tbody>
            </table>
</form>
</ASP:panel>

<ASP:panel id = "AnswerMsg" visible = " false " runat = "server">
<META HTTP-EQUIV=REFRESH CONTENT=''''5;URL=Admin_XLS_list.aspx''''>
 文件上传完成 <br>
 成功上传 <ASP:label id = "FileName" runat = "server" /> <br> 
 文件大小 <ASP:label id = "FileLength" runat = "server" /> 字节 <br>  文件类型 <ASP:label id = "FileType" runat = "server" /> <br>
5秒之后自动返回....
<br>
<span id="Message" EnableViewState="false" style="font: arial 11pt;" runat="server"/>
</ASP:panel>

        <script language="JavaScript">
function OnToggleTOCLevel1()
{
  var elemSrc = window.event.srcElement;
  var elemLevel2 = document.all(elemSrc.level2ID);

  if (elemLevel2.style.display == ''''none'''')
  {
    elemLevel2.style.display = '''''''';
    if (elemSrc.usesGlyph == ''''1'''')
      elemSrc.innerHTML = ''''&#054;'''';
  }
  else {
    elemLevel2.style.display = ''''none'''';
    if (elemSrc.usesGlyph == ''''1'''')
      elemSrc.innerHTML = ''''&#052;'''';
  }
}
</script>

</BODY>
</HTML>

上一页  [1] [2] 

打印本文 打印本文 关闭窗口 关闭窗口