- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 下载word文件 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=123388)
-- 发布时间：2018/8/13 19:00:00
-- 下载word文件
此主题相关图片如下：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编辑过]
-- 发布时间：2018/8/13 19:16:00
--
1、用浏览器访问下载，能否下载打开？
2、安装一下office的app，或者换一个手机测试。
-- 发布时间：2018/8/13 21:23:00
--
在pc上浏览器可下载，在手机浏览器上下载有提示，但就是没有下载起呢，换了机子，安了officeapp还是不行，可以还有哪些问题？
-- 发布时间：2018/8/13 21:30:00
--
手机使用uc、qq等等浏览器能不能下载？
-- 发布时间：2018/8/13 21:41:00
--
老师，我发现头文里没加.doc，加了后测试在下载时进度不动，然后等下服务端会自动关了，是怎么了
-- 发布时间：2018/8/13 21:49:00
--
头文件怎么加的，服务端写了什么代码？尽量使用代码说话，别人没有办法靠想象去找问题
-- 发布时间：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之类的文件就可以呢？好奇怪
-- 发布时间：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，下载服务端就会自动关
-- 发布时间：2018/8/13 22:16:00
--
你代码设置的文件扩展名是docx，改试试
Case ".doc",".docx",".jpg"
-- 发布时间：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