- 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)
-- 发布时间：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
--
请上传实例测试
-- 发布时间：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
-- 发布时间：2023/6/9 9:03:00
--
有没有变通办法解决？是不是只要uploader和EXWEUI共存就不行？
-- 发布时间：2023/6/9 9:09:00
--
如果uploader所在的页面是通过ajax动态加载的，必须像4楼那样处理
-- 发布时间：2023/6/9 10:20:00
--
我这个应该修改代码哪里呢？
-- 发布时间：2023/6/9 10:25:00
--
看不懂4楼论坛的用法，就上传实例测试
[此贴子已经被作者于2023/6/9 10:24:48编辑过]
-- 发布时间：2023/6/9 10:51:00
-- 附件
以下内容是专门发给有点蓝浏览
在zd_guanyuan函数中，麻烦老师也给我加密传送。
-- 发布时间：2023/6/9 10:54:00
--
开发者密码？