一个加强的文件上传（VB.Net）_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

一个加强的文件上传（VB.Net）

作者：闵涛文章来源：闵涛的学习笔记点击数：1541 更新时间：2009/4/23 19:00:54

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 = ''''6'''';
  }
  else {
    elemLevel2.style.display = ''''none'''';
    if (elemSrc.usesGlyph == ''''1'''')
      elemSrc.innerHTML = ''''4'''';
  }
}
</script>

</BODY>
</HTML>

上一页 [1] [2]

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： VB.Net 开发的长内容自动分页功能

下一篇教程： VB.NET编程之托盘程序篇

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……