Foxtable(狐表)用户栏目专家坐堂 → 电脑浏览word可以,但是手机浏览器就不行?


  共有4838人关注过本帖树形打印复制链接

主题:电脑浏览word可以,但是手机浏览器就不行?

帅哥哟,离线,有人找我吗?
xluoping
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:373 积分:3811 威望:0 精华:0 注册:2016/4/2 12:11:00
电脑浏览word可以,但是手机浏览器就不行?  发帖心情 Post By:2022/5/23 15:50:00 [只看该作者]

电脑浏览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



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/23 15:57:00 [只看该作者]

无法直接预览这种一般是浏览器自己的问题。如果无法下载,试试不要使用框架,使用a标签试试

 回到顶部