老师 周末愉快 当前代码已经实现如下图效果
此主题相关图片如下：111.png
但是上传的文件word或者pdf等类型 怎么显示出文件列表 供用户点击打开或者下载下面红色代码怎么完善呢？
代码如下：
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim xingming As String = e.PostValues("姓名")
Dim danweimingcheng As String = e.PostValues("单位名称")
Dim suoshuzhibu As String = e.PostValues("部门名称")
Dim huiyibianhao As String = e.PostValues("文件编号")
Dim tupianleibie As String = e.PostValues("文件类别")
Dim cmd11 As New SQ LCommand
cmd11.Connec ti
cmd11.Comma ndText="sele ct 文件 from 文件附件 where 文件类别= '" & tupianleibie & "'and 文件编号= '" & huiyibianhao & "'and 姓名= '" & xingming & "'and 单位名称= '" & danweimingcheng & "' and 部门名称= '" & suoshuzhibu & "'"
Dim dt As DataTable = cmd11.ExecuteReader
Dim src As String
wb.AddPageTitle("","ph1","三会一课系统","专为瓮安检察院党建信息管理设计")
wb.AddForm("","form1","getvimg.htm")
With wb.AddInputGroup("form1","ipg11","基础资料")
.AddInput("单位名称","单位名称","text").value = danweimingcheng
.AddInput("部门名称","部门名称","text").value = suoshuzhibu
.AddInput("姓名","姓名","text").value = xingming
.AddInput("文件编号","文件编号","text").value = huiyibianhao
.AddInput("文件类别","文件类别","text").value = tupianleibie
End With
With wb.AddInputGroup("form1","ipg1111","文件信息")
With .AddUploader("up111","",True)
.AllowAdd = False '关闭文件上传功能
For Each dr As DataRow In dt.DataRows
Dim imagebytes As Byte() = dr("文件")
src = Convert.ToBase64String(imagebytes)
.AddImage("data:image/jpeg;base64," & src)
Next
With wb.AddArticle("","ar1")
.UseGallery = True '启用Gallery,必须放在第一行
End With
End With
End With
With wb.AddInputGroup("form1","ipg33","")
With wb.AddButtonGroup("form1","btg1",False) '垂直排列
.Add("btn1", "继续检索", "submit").FormAction = "test.htm"
.Add("btn2", "返回首页", "", "default.htm")
End With
End With
e.WriteString(wb.Build) '生成网页
加好友 
发短信
Post By：2021/1/23 9:08:00 [只看该作者]
