以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 怎样下载打开pdf文件 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103117) |
-- 作者:colink -- 发布时间:2017/6/30 18:10:00 -- 怎样下载打开pdf文件 教程中有打开jpg的案例 Select Case e.PathCase "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 开始部分也加了“.pdf",但不能下载打开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://192.168.1.148/y.htm,手机显示下载y.htm,下载完打开是乱码 |
-- 作者:有点蓝 -- 发布时间:2017/6/30 20:13:00 -- 换其它的浏览器测试 |