下面代码在尝试的时候出现了这样的问题:照片上传都没有问题,但是还是出现了上传错误提示
Select Case e.Path
Case "upload.htm"
wb.AddForm("","form1","receive.htm")
With wb.AddInputGroup("form1","ipg1","<span style='font-size:21px;text-align:left;'>新增文章</span>")
.AddInput("新闻标题","<img src='./images/xxh.png'/> 文章标题:","Text") '前一个"姓名"是ID,后一个"姓名"是标题
.AddInput("新闻摘要","<img src='./images/xxh.png'/> 新闻摘要:","Text") '前一个"姓名"是ID,后一个"姓名"是标题
With wb.AddInputGroup("form1","ipg2","<span style='font-size:17px;text-align:left;'><img src='./images/xxh.png'/> 文字内容: </span>")
.AddTextArea("新闻内容",9).Placeholder = "内容输入限字数200字!"
End With
End With
' With wb.AddInputGroup("form1","ipg16","")
' .AddSelect("工作室名称","<img src='./images/xxh.png'/> 工作室名称:","Text") '前一个"姓名"是ID,后一个"姓名"是标题
' End With
With wb.AddInputGroup("form1","ipg15","")
With .AddUploader("up1","<img src='./images/xxh.png'/> 文章配图(限1张)",True) 'True表示允许上传多个文件
.AllowDelete = True '允许删除
.Incremental = True '允许重复选择文件或连续拍 设置True才能实现压缩,很重要!!!
.ScaleWidth = 400 '自动压缩图片宽度为400个像素,高度等比例压缩
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定发布", "button").Attribute= "" '调用js函数上传
.Add("home","返回主页","", "classwork.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) '生成网页
Case "receive.htm"
For Each key As String In e.Files.Keys
If e.Files(key).count > 1 Then '---------------补充
e.WriteString("照片不能多于1张!!")'---------------补充
Return '---------------补充
Else ''---------------补充
Dim nms() As String = {"新闻标题","新闻摘要","新闻内容"}
Dim drc As DataRow = DataTables("新闻通知").AddNew()
For Each nm As String In nms
drc(nm) = e.PostValues(nm)
drc("发布时间") = Date.Now
drc("作者") = username
Dim tim As String = Format(Date.Now,"yyyyMMddHHmmssffff")
drc("文章编号") = tim & schoolname & username
Dim dw As DataRow = DataTables("用户表").find("姓名='" & UserName & "'and 学校 ='" & SchoolName & "' and 角色 ='" & JueSe & "'") '寻找符合条件的值
If dw IsNot Nothing Then
drc("工作室名称") = dw("工作室名称")
End If
Next
If key = "up1" Then
Dim lst As List(of String) = drc.Lines("文章照片")
For Each fln As String In e.Files(key)
Dim n As String = Format(Date.Now,"yyyyMMddHHmmssffff") & fln
e.SaveFile(key,fln,"..\uploadfiles\" & n) '保存接收到的文件 图片压缩后的地址
lst.Add(n)
Next
drc.Lines("文章照片") = lst
drc.save()
End If
End If '---------------补充
e.WriteString("ok")
Next
' With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") '生成成功提示页
' .AddButton("btn1","继续增加","upload.htm")
' End With
End Select
JS文件如下:
function submitForm(){
show("tst1",2000);
var result = submitAjaxForm('form1','afterSubmit');
}
function afterSubmit(result){
hide("tst1");
if (result=='OK') {
show("tst2");
location="upload.htm";
}
else{
show("tst3",2000);
}
}
[此贴子已经被作者于2021/8/12 20:22:59编辑过]