Dim div As String = FileSys.ReadAllText(ProjectPath & "\qz.txt")
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
Dim sb As New StringBuilder
sb.appendLine("<form enctype='multipart/form-data' action='accept.htm' method='post' id='form1' name='form1'>")
sb.appendLine("单文件上传: <input type='file' name='up1' id='up1'><br/><br/>")
sb.appendLine("多文件上传: <input type='file' name='up2' id='up2' multiple><br/><br/>")
sb.appendLine("<input Type='submit' name='Sumbit' id='Sumbit' value='确定'>")
sb.appendLine("</form>")
e.WriteString(sb.ToString)
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
wb.InsertHTML(div)
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "确定上传", "button").Attribute= "" '调用js函数上传
.Add("btn2", "取消上传", "submit").FormAction = "default.htm"
'wb.InsertHTML("<div id='someelement'></div>")
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)
如果取消红色部分代码 代码只能实现一次性选择一个文件进行多次上传，有没有办法实现一次性选择多个文件并一次上传呢？
此主题相关图片如下：001.png
加好友 
发短信
Post By：2021/1/22 13:05:00 [只看该作者]
