以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  怎样下载打开pdf文件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=103117)
--  作者：colink
--  发布时间：2017/6/30 18:10:00
--  怎样下载打开pdf文件
教程中有打开jpg的案例
Select Case e.Path
    Case "download.htm"
        e.WriteFile("d:\\web\\abc.jpg")
End Select
我改为
Select Case e.Path
    Case "download.htm"
        e.WriteFile("d:\\web\\abc.pdf")
End Select
开始部分也加了“．ｐｄｆ＂，但不能下载打开abc.pdf文件，求救？谢谢！
--  作者：有点甜
--  发布时间：2017/6/30 18:18:00
--  

 我测试，没问题。贴出完整代码。

 

 
--  作者：colink
--  发布时间：2017/6/30 18:22:00
--  
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
Select Case e.Path
  
Case "y.htm"
        e.WriteFile("d:\\web\\images\\圆.pdf")
End Select
--  作者：有点甜
--  发布时间：2017/6/30 18:42:00
--  

测试没问题，访问地址是 http://127.0.0.1/y.htm

 

或者 http://127.0.0.1/images/圆.pdf
--  作者：colink
--  发布时间：2017/6/30 18:56:00
--  
我用电脑ie可以，用安卓手机， http://１９２.１６８.１.１４８/y.htm，手机显示下载ｙ．ｈｔｍ，下载完打开是乱码
--  作者：有点蓝
--  发布时间：2017/6/30 20:13:00
--  
换其它的浏览器测试