- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 上传图片代码出现错误提示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170973)
-- 发布时间：2021/8/12 20:22:00
-- 上传图片代码出现错误提示
下面代码在尝试的时候出现了这样的问题：照片上传都没有问题，但是还是出现了上传错误提示
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编辑过]
-- 发布时间：2021/8/12 21:31:00
--
……
End If \'---------------补充
Next
e.WriteString("ok") ‘放到next外面’
End Select
js调试看弹出什么内容
function afterSubmit(result){
alert(result);
hide("tst1");
if (result==\'OK\') {
show("tst2");
location="upload.htm";
}
else{
show("tst3",2000);
}
}
-- 发布时间：2021/8/12 21:41:00
--
此主题相关图片如下：微信截图_20210812214301.png
此主题相关图片如下：微信截图_20210812214418.png
此主题相关图片如下：微信截图_20210812214430.png
这个错误提示
[此贴子已经被作者于2021/8/12 21:44:57编辑过]
-- 发布时间：2021/8/12 21:54:00
--
怎么会有操作完成的提示，执行的肯定不是1楼的代码。
删除项目里的bin目录，重启项目测试