以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  怎么制作一个下载链接呢？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=116747)
--  作者：mmd888
--  发布时间：2018/3/30 12:24:00
--  怎么制作一个下载链接呢？
就是这网页中添加一个下载链接，让用户可以点击从服务器下载资料
--  作者：有点甜
--  发布时间：2018/3/30 14:25:00
--  

1、可以用按钮

 

http://www.foxtable.com/mobilehelp/scr/0008.htm

 

2、可以用InsertHTML

 

http://www.foxtable.com/mobilehelp/scr/0097.htm

 

标签这样写 <a href=\'/test.pdf\'>文件1</a>
--  作者：mmd888
--  发布时间：2018/3/30 15:30:00
--  
我也这么试过，关键是他不下载啊
--  作者：有点甜
--  发布时间：2018/3/30 15:38:00
--  
以下是引用mmd888在2018/3/30 15:30:00的发言：
我也这么试过，关键是他不下载啊

 

1、你的test.pdf要放在web文件夹下

 

2、头文件那里，要这样处理

 

Dim fl As String = "d:\\web\\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar", ".pdf"
            e.WriteFile(fl)
            Return \'这里必须返回
    End Select
End If
--  作者：mmd888
--  发布时间：2018/3/30 18:54:00
--  
谢谢 此问题已经解决，谢谢2位老师。

顺便分享下，如果下载文件是图片的话，还需这样处理，

wb.InsertHTML("<a href=\'/test.jpg\'  download=\'/test.jpg\'>点击下载</a>")

要不然，他会直接打开，不下载。