以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]使用WeUI框架怎么上传非图片类附件，怎么打开？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106648)
--  作者：浙江仔
--  发布时间：2017/9/13 10:56:00
--  [求助]使用WeUI框架怎么上传非图片类附件，怎么打开？
用使用WeUI框架上传图片比较方便，打开显示也方便
但是如果是需要上传word等其他附件，该怎么显示？
--  作者：狐狸爸爸
--  发布时间：2017/9/13 10:59:00
--  
安卓手机可以
--  作者：有点甜
--  发布时间：2017/9/13 11:11:00
--  

 用第三方上传工具呗

 

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

 

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

 
--  作者：浙江仔
--  发布时间：2017/9/13 11:24:00
--  
能在weui框架下吗？
--  作者：有点甜
--  发布时间：2017/9/13 11:50:00
--  
以下是引用浙江仔在2017/9/13 11:24:00的发言：
能在weui框架下吗？

 

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

 

默认就是能上传任意格式的文件的，只是添加后不显示出来而已。
--  作者：浙江仔
--  发布时间：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
--  作者：浙江仔
--  发布时间：2017/9/13 13:34:00
--  
跟老版本的WeUI框架文件是不是有关系？
还有改写weui.me.js里面的 previewFile1、previewFile2、previewFile3 三个函数有点难度啊
--  作者：有点甜
--  发布时间：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)