以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]图片上传后,名称存入数据库,怎么把这些图片显示到页面? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136733) |
-- 作者:YOU -- 发布时间:2019/6/20 10:13:00 -- [求助]图片上传后,名称存入数据库,怎么把这些图片显示到页面? 图片上传后,名称存入数据库,怎么把这些图片显示到页面? 用下面这种方法存的数据库 Dim wb
As New weui
Select Case e.Path Case "addnew.htm" If e.PostValues.Count = 0 Then wb.AddForm("","form1","addnew.htm") With wb.AddInputGroup("form1","ipg1","增加员工") .AddInput("姓名","姓名","Text") \'前一个"姓名"是ID,后一个"姓名"是标题 .AddInput("年龄","年龄","number") .AddSelect("学历","学历","大专|本科|硕士|博士") .AddUploader("up1","照片",True) \'True表示允许上传多个文件 End With With wb.AddButtonGroup("form1","btg1",True) .Add("btn1", "确定", "submit") End With e.WriteString(wb.Build) Else Dim nms() As String = {"姓名","年龄","学历"} Dim dr As DataRow = DataTables("员工").AddNew() For Each nm As String In nms dr(nm) = e.PostValues(nm) Next For Each key As String In e.Files.Keys If key = "up1" Then For Each fln As String In e.Files(key) e.SaveFile(key, fln, ProjectPath & "Attachments\\" & fln) Next dr.Lines("照片") = e.Files(key) End If Next \'保存并生成增加成功提示页面 dr.save() With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") \'生成成功提示页 .AddButton("btn1","继续增加","addnew.htm") End With e.WriteString(wb.Build) End If End Select |
-- 作者:有点甜 -- 发布时间:2019/6/20 10:25:00 -- 1、要把图片保存在 web 文件夹内
2、编写代码显示
http://www.foxtable.com/mobilehelp/scr/0091.htm
http://www.foxtable.com/mobilehelp/scr/0093.htm
|
-- 作者:YOU -- 发布时间:2019/6/20 10:27:00 -- 紧急求助,怎么用下面这种方法呈现出来? 数据库存的值: 8f4732f3c7.png1b7aa2e87b.png 是这样的 .AllowAdd = False \'关闭文件上传功能 .AddImage("./images/001.jpg") .AddImage("./images/002.jpg") .AddImage("./images/003.jpg") .AddImage("./images/004.jpg") .AddImage("./images/005.jpg") .AddImage("./images/006.jpg") .AddImage("./images/007.jpg") .AddImage("./images/008.jpg") .AddImage("./images/009.jpg") .AddImage("./images/010.jpg") .AddImage("./images/011.jpg") .AddImage("./images/012.jpg") End With |
-- 作者:有点甜 -- 发布时间:2019/6/20 10:30:00 -- 循环你表格的每一行,然后生成,如
With .AddUploader("up1","",True) For Each r As Row in Tables("表A").Rows Next |
-- 作者:YOU -- 发布时间:2019/6/20 10:38:00 -- 数据库存的值: 8f4732f3c7.png1b7aa2e87b.png 是这样的 一个字段会有多个图片名称,怎么循环出来?
|
-- 作者:有点甜 -- 发布时间:2019/6/20 10:40:00 -- With .AddUploader("up1","",True) For Each r As Row in Tables("表A").Rows for each f as string in r.datarow.lines("第一列") next Next |
-- 作者:YOU -- 发布时间:2019/6/20 10:53:00 -- 感谢甜老师,我改成这样了 With .AddUploader("up1","",True) .AllowAdd = False \'关闭文件上传功能 c md.CommandText = "S elect * fr om 明细(nolock) Where 序号=\'" & pageA & "\' and _Identify=\'" & idA & "\'" Dim bfi As DataTable = cmd.ExecuteReader() Dim adrs As List(Of DataRow) = bfi.Select("","时分秒") For Each r As DataRow In adrs \'获取图片 For Each f As String In r.lines("照片") .AddImage("./Attachments/" & f) Next Next End With
|
-- 作者:有点甜 -- 发布时间:2019/6/20 10:55:00 -- 你这个路径的文件,必须在web文件夹下,才可以
.AddImage("./Attachments/" & f) |
-- 作者:YOU -- 发布时间:2019/6/20 11:16:00 -- 是的,这样下次升级就不会被删除了 [此贴子已经被作者于2019/6/20 11:16:22编辑过]
|