以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 当前已经实现了图片上传,怎么扩展到可以上传任意类型的文件呢? (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=151580) |
-- 作者:李孝春 -- 发布时间:2020/6/28 16:42:00 -- 当前已经实现了图片上传,怎么扩展到可以上传任意类型的文件呢? 当前已经实现了图片上传,怎么扩展到可以上传任意类型的文件呢? 将任意类型的文件选择后,显示缩略图出来或者另外显示为文件名称列表,便于核对数据是否选择正确 怎么实现呢?麻烦老师们指导一下或者提供相关列子我学习一下 谢谢! 当前代码如下: Dim e As RequestEventArgs = args(0) Dim wb As New weui Dim danweimingcheng As String = e.PostValues("单位名称") Dim suoshuzhibu As String = e.PostValues("支部名称") Dim xingming As String = e.PostValues("姓名") Dim tupianleibie As String = e.PostValues("图片类别") Dim vals As String Dim cmd11 As New SQL Command cmd11.Connection Name = "智慧党建" \'记得设置数据源名称 cmd11.Command Text = "Sele ct * From {会议列表}" Dim dt As DataTable = cmd11.ExecuteReader Select Case e.Path Case "upload.htm" If e.PostValues.Count = 0 Then wb.AddPageTitle("","ph1","记录上传","【三会一课系统】") wb.AddForm("","form1","upload.htm") With wb.AddInputGroup("form1","ipg1","基础信息") \'前一个"姓名"是ID,后一个"姓名"是标题 With .AddSelect("单位名称","单位名称","|" & dt.sqlGetComboListString("单位名称")) .Attribute = """ End With With .AddSelect("支部名称","支部名称","") .Attribute = """ End With .AddSelect("会议编号","会议编号","") .AddSelect("姓名","姓名","" ) .AddSelect("图片类别","图片类别","|会议记录|学习记录|学习心得|其它材料") End With wb.AddTopTips("","toptip1","请输入单位名称和支部名称!") With wb.AddInputGroup("form1","ipg2","文件上传") \'文件上传 With.AddUploader("up1","请选择图片",True) \'True表示允许上传多个文件 .AllowDelete = True \'允许删除 .Incremental = True \'允许重复选择文件或连续拍照 .ScaleWidth = 1024 End With End With \'End With With wb.AddButtonGroup("form1","btg1",True) .Add("btn1", "确定", "button").Attribute= "" \'调用js函数上传 End With With wb.AddDialog("","dlg1", "增加成功","好好学习,天天向上!") .AddButton("btnOK","继续增加","default.htm") End With wb.AddToast("","tst1", "正在上传",1) wb.AddToast("","tst2", "上传成功",0) wb.AddToast("","tst3", "上传失败",0).Icon= "warn" wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件 e.WriteString(wb.Build) Else Dim st As New Date(1970,1,1,8,0,0) Dim d As Date = cdate("2020-02-01") Dim t As Long = (Date.Now - st).TotalSeconds() Dim cmd As New SQL Command cmd.ConnectionN ame = "智慧党建" cmd.CommandT ext = "In sert In to web上传图片 (单位名称,支部名称,图片类别,姓名,时间戳) Values(?,?,?,?,?)" cmd.Parameters.Add("@单位名称", danweimingcheng) cmd.Parameters.Add("@支部名称", suoshuzhibu) cmd.Parameters.Add("@图片类别", tupianleibie) cmd.Parameters.Add("@姓名", xingming) cmd.Parameters.Add("@时间戳", t) cmd.ExecuteNonQuery For Each key As String In e.Files.Keys If key = "up1" Then For Each fln As String In e.Files(key) Dim wj As String =ProjectPath & "Attachments\\" & fln e.SaveFile(key,fln,wj) Dim cmd1 As New SQL Command cmd1.Connection Name = "智慧党建" cmd1.Command Text = "In sert In to web上传图片附件 (姓名,时间戳,图片名称,图片类别,图片) Values(?,?,?,?,?)" cmd1.Parameters.Add("@姓名", xingming) cmd1.Parameters.Add("@时间戳", t) cmd1.Parameters.Add("@图片名称", FileSys.GetName(wj)) cmd1.Parameters.Add("@图片类别", tupianleibie) Dim ImageByte() As Byte = System.IO.File.ReadAllBytes(wj) \'读取文件流,并将读到的二进制数据放入数组ImageByte中, cmd1.Parameters.Add("@图片", ImageByte) cmd1.ExecuteNonQuery Next End If Next e.WriteString("OK") End If End Select [此贴子已经被作者于2020/6/28 16:42:01编辑过]
|
-- 作者:有点蓝 -- 发布时间:2020/6/28 16:46:00 -- 其它文件无法显示为图片 |
-- 作者:李孝春 -- 发布时间:2020/6/28 17:14:00 -- 回复:(有点蓝)其它文件无法显示为图片 那有没有办法让其它文件显示为文件名称呢?怎么实现文件名称列表的显示? |
-- 作者:有点蓝 -- 发布时间:2020/6/28 17:39:00 -- weui没有办法,除非自己使用原生的html做 |