- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 下载文档 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124151)
-- 发布时间：2018/8/31 14:00:00
-- 下载文档
下载如图的文档，下列代码如何写？
此主题相关图片如下：无标题.png
此主题相关图片如下：无标题.png With wb.AddListGroup("page3","","")
For Each dr In dt3.DataRows
.Add(dr("发布者"),dr("通知主题"), "", "/notice/" & dr("通知附件"))
Next
End With
[此贴子已经被作者于2018/8/31 14:11:29编辑过]
-- 发布时间：2018/8/31 14:17:00
--
只要能在page3这个容器增加链接，能下载文档就行。
这是文档所在的位置
此主题相关图片如下：无标题.png
此主题相关图片如下：无标题.png[此贴子已经被作者于2018/8/31 14:19:51编辑过]
-- 发布时间：2018/8/31 14:26: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",".htm",".html",".css",".zip",".rar" \'这里加上了js扩展名
e.WriteFile(fl)
Return \'这里必须返回
End Select
End If
Select Case e.Path
Case "test.htm", ""
Dim wb As New WeUI
With wb.AddListGroup("", "lsg3", "增加跳转的列表")
.Add("ls5","新浪主页", "", "/test/test.doc")
.Add("ls6","网易主页", "", "/images/001.jpg")
End With
e.WriteString(wb.Build)
End Select