Foxtable(狐表) → 用户栏目 → 专家坐堂 → 下载word文件


  共有3313人关注过本帖树形打印复制链接

主题：下载word文件
帅哥哟，离线，有人找我吗？
刘林
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		下载word文件  发帖心情 Post By：2018/8/13 19:00:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看



<li><a style="font-size:40px;" href="/web/zl/sj/9/sx/东兴区2017年3月月考数学.docx" download="东兴区2017年3月月考数学">东兴区2017年3月月考数学</a></li>

老师，你好，我试了下想用这一句做一个文件下载，但在手机端经过这几步，到第四步时始终不能打开，我试了改成图片文件或excel文件可以打开，这个文件不能打开是什么原因？怎么办？
[此贴子已经被作者于2018/8/13 19:00:46编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/8/13 19:16:00 [只看该作者]

1、用浏览器访问下载，能否下载打开？

 

2、安装一下office的app，或者换一个手机测试。
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2018/8/13 21:23:00 [只看该作者]

在pc上浏览器可下载，在手机浏览器上下载有提示，但就是没有下载起呢，换了机子，安了officeapp还是不行，可以还有哪些问题？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105958 积分：538865 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/13 21:30:00 [只看该作者]

手机使用uc、qq等等浏览器能不能下载？

 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2018/8/13 21:41:00 [只看该作者]

老师，我发现头文里没加.doc，加了后测试在下载时进度不动，然后等下服务端会自动关了，是怎么了

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105958 积分：538865 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/13 21:49:00 [只看该作者]

头文件怎么加的，服务端写了什么代码？尽量使用代码说话，别人没有办法靠想象去找问题

 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2018/8/13 21:52:00 [只看该作者]

Dim fl As String = "C:\web\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".doc",".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar",".xls",".xlsx",".mp4"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If
老师，我试了加上红色的，下载刚开始系统服务端就自动关了，去了就不会关，但下载不起，而.xls之类的文件就可以呢？好奇怪
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2018/8/13 22:10:00 [只看该作者]

<ol>
<li><a style="font-size:40px;" href="/zl/sj/9/sx/东兴区2017年3月月考数学.doc" download="东兴区2017年3月月考数学">东兴区2017年3月月考数学</a></li>
</ol>

先下载这个文件不行，我发现在头文件是没加.doc，加上后只要点a标签下载时服务端就自动关了，如果不加.doc或.docx,下载个excel文件又没问题，我试了其他文件类型可下载，只要加.doc和.docx，下载服务端就会自动关
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105958 积分：538865 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/13 22:16:00 [只看该作者]

你代码设置的文件扩展名是docx，改试试

Case ".doc",".docx",".jpg"
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105958 积分：538865 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/13 22:22:00 [只看该作者]

以下代码在手机qq浏览器测试没有问题 ，做个例子过来测试

Dim fl As String = "C:\web\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".doc",".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar",".xls",".xlsx",".mp4"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If

Select Case e.Path
    Case "test.htm"
        Dim wb As New WeUI
        wb.InsertHTML("<a style='font-size:40px;' href='校园之星评选推荐表.doc' download='东兴区2017年3月月考数学'>东兴区2017年3月月考数学</a>")
        e.WriteString(wb.Build)
End Select
 回到顶部
总数 41 1 2 3 4 5 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询