以文本方式查看主题

-  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标签试试