Foxtable(狐表)用户栏目专家坐堂 → [求助]使用WeUI框架怎么上传非图片类附件,怎么打开?


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

主题:[求助]使用WeUI框架怎么上传非图片类附件,怎么打开?

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


加好友 发短信
等级:六尾狐 帖子:1326 积分:9597 威望:0 精华:1 注册:2010/7/21 14:20:00
[求助]使用WeUI框架怎么上传非图片类附件,怎么打开?  发帖心情 Post By:2017/9/13 10:56:00 [只看该作者]

使用WeUI框架上传图片比较方便,打开显示也方便
但是如果是需要上传word等其他附件,该怎么显示?

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


加好友 发短信
等级:管理员 帖子:47480 积分:251289 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2017/9/13 10:59:00 [只看该作者]

安卓手机可以

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/13 11:11:00 [只看该作者]

 用第三方上传工具呗

 

http://www.csdn.net/article/2011-08-04/302659

 

 原生的也可以 http://www.foxtable.com/mobilehelp/scr/0030.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
浙江仔
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1326 积分:9597 威望:0 精华:1 注册:2010/7/21 14:20:00
  发帖心情 Post By:2017/9/13 11:24:00 [只看该作者]

能在weui框架下吗?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/13 11:50:00 [只看该作者]

以下是引用浙江仔在2017/9/13 11:24:00的发言:
能在weui框架下吗?

 

改写weui.me.js里面的 previewFile1、previewFile2、previewFile3 三个函数。

 

默认就是能上传任意格式的文件的,只是添加后不显示出来而已。


 回到顶部
帅哥哟,离线,有人找我吗?
浙江仔
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1326 积分:9597 威望:0 精华:1 注册:2010/7/21 14:20:00
  发帖心情 Post By:2017/9/13 13:30:00 [只看该作者]

上传非图片格式的附件时,无法保存,导致进程无法走完,网页空白

    '保存附件
    For Each key As String In e.Files.Keys
        If key = "up1" Then
            For Each fln As String In e.Files(key)
                Dim s As String=fln
                s=s.substring(s.LastIndexOf("."))
                Dim s2 As String =Guid.NewGuid().ToString().replace("-","")
                s= s2  & s
                e.SaveFile(key, fln, ProjectPath & "web\upload\work\" & s)
                Dim dr2 As DataRow = DataTables("C_PYH_WORK_FILES").SQLAddNew()
                dr2("FILES_SAVENAME") = s
                dr2("FILES_NAME") = fln
                dr2("file_id")=Guid.NewGuid().ToString().replace("-","")
                dr2("Work_id")=workid
                dr2("CREATE_TIME")=now.Tostring.replace("-","").replace(" ","").replace(":","")
                dr2("UPDATE_TIME")=now.Tostring.replace("-","").replace(" ","").replace(":","")
                dr2("IS_ACTIVE")="1"
                If openid>"" Then
                    dr2("creator")=fdp("person_id")
                Else
                    dr2("creator")="test"
                End If
                dr2.save()
            Next
        End If
    Next

 回到顶部
帅哥哟,离线,有人找我吗?
浙江仔
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1326 积分:9597 威望:0 精华:1 注册:2010/7/21 14:20:00
  发帖心情 Post By:2017/9/13 13:34:00 [只看该作者]

跟老版本的WeUI框架文件是不是有关系?
还有改写weui.me.js里面的 previewFile1、previewFile2、previewFile3 三个函数有点难度啊

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/13 14:22:00 [只看该作者]

我用下面这段代码测试没问题

 

    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","upload.htm")
       
        With wb.AddInputGroup("form1","ipg22","文件上传") '带图片浏览的文件上传
            With .AddUploader("up2","图片",True) 'True表示允许一次上传多个文件
            End With
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) '生成网页
    Case "upload.htm"
        Dim sb As New StringBuilder
        For Each key As String In e.Files.Keys
            sb.AppendLine(key & " 上传" & e.Files(key).Count & "个文件,分别是:</br>")
            For Each file As String In e.Files(key)
                sb.AppendLine(file & "<br>")
                e.SaveFile(key,file,"d:\test\" & file) '保存接收到的文件
            Next
            sb.AppendLine("</br>")
        Next
        sb.AppendLine("以上文件服务器已正确接收并保存!")
        e.WriteString(sb.ToString)


 回到顶部