以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  web图片上传问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186912)

--  作者:ycs5801
--  发布时间:2023/6/8 8:58:00
--  web图片上传问题
 With wb.AddInputGroup("form2", "资料图片", "资料图片")
            With .AddUploader("up129", "资料图片", True)
                .AllowDelete = True \'允许删除
                .Incremental = True \'允许重复选择文件或连续拍照
                .AllowAdd = True
                .Accept = "image/*"
                .ScaleWidth = 1200 
                For Each s1 As String In dr.Lines("资料图片")
                   
                    .AddImage("./Attachments/" & s1)
                Next
            End With
        End With

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20230608085635.png
图片点击可在新窗口打开查看
我点加号选择图片,点确定,为什么这里不显示照片呢?

--  作者:有点蓝
--  发布时间:2023/6/8 9:03:00
--  
请上传实例测试
--  作者:ycs5801
--  发布时间:2023/6/8 20:29:00
--  
Dim e As RequestEventArgs = args(0) 
Dim wb As New weui
If e.Cookies.ContainsKey("用户姓名") And e.Cookies.ContainsKey("用户密码") Then
    Dim dr As DataRow = DataTables("登录用户").sqlfind("用户姓名=\'" & e.Cookies("用户姓名") & "\'")
    If dr Is Nothing OrElse dr("用户密码") <> e.Cookies("用户密码") Then \'\'\'如果无此用户,或密码不正确.
        wb.InsertHTML("<meta http-equiv=\'Refresh\' c>")
        e.WriteString(wb.Build)
        Return""
    End If
Else
    wb.InsertHTML("<meta http-equiv=\'Refresh\' c>")
    e.WriteString(wb.Build)
    Return""
End If

wb.AppendHTML("<link rel=\'stylesheet\' href=\'./weui/exweui.css\'/>", True) 
wb.AppendHTML("<script src=\'./weui/exweui.js\' ></script>", True) 

If e.GetValues.ContainsKey("name") Then
    \'    haiguanchuanzhi = e.getvalues("name")
    wb.AddForm("", "form2", "receive.htm?name=" & e.getvalues("name")) \'\'将主键同时传给recevie.htm页面
    Dim dr As DataRow = DataTables("检疫资料").SQLFind("_Identify = \'" & e.getvalues("name") & "\'")
    If dr IsNot Nothing Then
        
        
        With wb.AddInputGroup("form2", "海关信息1", "登轮信息")
        .AddHiddenValue("登轮信息", "1") 
            If dr("卫检登轮") Then
                .AddSwitch("卫检登轮", "卫检登轮", True)
            Else
                .AddSwitch("卫检登轮", "卫检登轮").Attribute = ""
            End If            
            \'            .AddInput("登轮时间", "登轮时间", "datetime-local").Value = Format(dr("登轮时间"), "yyyy-MM-ddTHH:mm")
            With .AddInput("登轮时间", "登轮时间", "datetime-local")
                If dr.isnull("登轮时间") = False Then
                    .Value = Format(dr("登轮时间"), "yyyy-MM-ddTHH:mm")
                End If
            End With
            
            
            
        End With
        \'以下为多选框发送端  
        Dim cdg As ExWeUI.ExCheckGroup = ExWeUI.WebUI.AddCheckGroup("", "登轮人员", "请选择登轮人员")       
        Dim s As String = DataTables("列表项目").GetComboListString("人员名单")
        s = s.Trim(" |", "| ")
        Dim Values() As String
        Values = s.split("|")
        If values.length > 0 Then 
            For index As Integer = 0 To values.Length - 1
                If values(index) > "" AndAlso dr("登轮人员").Contains(values(index)) Then                    
                    cdg.add("登轮人员" & CStr(Index), values(index), True).value = values(index)
                Else
                    cdg.add("登轮人员" & CStr(Index), values(index)).value = values(index) 
                End If                
            Next             
        End If      
        wb.InsertHTML("form2", cdg.BuildHtml) 
        With wb.AddInputGroup("form2", "海关信息2", "离轮信息")
            If dr("是否离轮") Then
                .AddSwitch("是否离轮", "是否离轮", True)
            Else
               
                .AddSwitch("是否离轮", "是否离轮").Attribute = ""
            End If
            With .AddInput("离轮时间", "离轮时间", "datetime-local")
                If dr.isnull("离轮时间") = False Then
                    .Value = Format(dr("离轮时间"), "yyyy-MM-ddTHH:mm")
                End If
            End With
        End With
        With wb.AddInputGroup("form2", "资料图片", "资料图片")
            With .AddUploader("up129", "资料图片", True)
                .AllowDelete = True \'允许删除
                .Incremental = True \'允许重复选择文件或连续拍照
                .AllowAdd = True
                .Accept = "image/*"
                .ScaleWidth = 1200 
                For Each s1 As String In dr.Lines("资料图片")
                   
                    .AddImage("./Attachments/" & s1)
                Next
            End With
        End With
        With wb.AddButtonGroup("form2", "btg1", True)
            .Add("btn1", "保存", "button").Attribute = "" \'调用js函数上传
        End With
        
        wb.AddToast("", "tst1", "正在上传", 1)
        wb.AddToast("", "tst2", "保存成功", 0)
        wb.AddToast("", "tst3", "上传失败", 0).Icon = "warn"
        
        wb.AppendHTML("<script src=\'./lib/test.js\'></script>") \'引入脚本文件        
        wb.InsertHTML("<div style=\'height:50px\'></div>")
        
        
    End If
End If

wb.AppendHTML("<script>initExWeUI();</script>") \'需要注意的是,这里不需要使用true参数   
e.WriteString(wb.Build) \'生成网页


如果单独放页面中没问题,放在这里就不显示。

--  作者:有点蓝
--  发布时间:2023/6/8 20:41:00
--  
可能和这个同一个问题:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=186337&skin=0
--  作者:ycs5801
--  发布时间:2023/6/9 9:03:00
--  
有没有变通办法解决?是不是只要uploader和EXWEUI共存就不行?
--  作者:有点蓝
--  发布时间:2023/6/9 9:09:00
--  
如果uploader所在的页面是通过ajax动态加载的,必须像4楼那样处理
--  作者:ycs5801
--  发布时间:2023/6/9 10:20:00
--  
我这个应该修改代码哪里呢?
--  作者:有点蓝
--  发布时间:2023/6/9 10:25:00
--  
看不懂4楼论坛的用法,就上传实例测试
[此贴子已经被作者于2023/6/9 10:24:48编辑过]

--  作者:ycs5801
--  发布时间:2023/6/9 10:51:00
--  附件

以下内容是专门发给有点蓝浏览



在zd_guanyuan函数中,麻烦老师也给我加密传送。

--  作者:有点蓝
--  发布时间:2023/6/9 10:54:00
--  
开发者密码?