以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 电脑浏览word可以,但是手机浏览器就不行? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177463) |
-- 作者:xluoping -- 发布时间:2022/5/23 15:50:00 -- 电脑浏览word可以,但是手机浏览器就不行? 电脑浏览word可以,但是手机浏览器就不行? iframe 请帮助 Dim wb As New weui Dim htm As String = e.GetValues("id") Dim filestr As String = Format(Date.Now,"yyyyMMddHHmmss") & Rand.NextString(4) & ".docx" If ftp.Download(htm,"D:\\www\\www.bless-you.cn\\down_ehs\\" & filestr) Then For Each file As String In FileSys.GetFiles("D:\\www\\www.bless-you.cn\\down_ehs\\") Dim ifo As new FileInfo(file) If Ifo.CreationTime.AddHours(2) < Date.Now Then FileSys.DeleteFile(file,2,2) End If Next Dim htmi As String = "http://www.bless-you.cn/down_ehs/" & filestr wb.InsertHTML("<iframe src=\'https://view.officeapps.live.com/op/view.aspx?src=" & htmi & "\' width=\'98%\' height=\'88%\' frameborder=\'1\'></iframe>") With wb.AddButtonGroup("","btg1",False) .Add("btn2", "返回", "button").Attribute = "" .Add("btn3", "下载", "button","http://www.bless-you.cn/down_ehs/" & filestr).Kind = 1 End With e.WriteString(wb.Build) end if |
-- 作者:有点蓝 -- 发布时间:2022/5/23 15:57:00 -- 无法直接预览这种一般是浏览器自己的问题。如果无法下载,试试不要使用框架,使用a标签试试 |