图片上传后，名称存入数据库，怎么把这些图片显示到页面？
用下面这种方法存的数据库
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
加好友 
发短信
Post By：2019/6/20 10:13:00 [只看该作者]
