还得麻烦老师指导下js代码是否写正确，目前文件还是没有能够成功上传！谢谢！
运行提示上传失败
页面代码：
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim vals As String
wb.AppendHTML("<script>" & vars("ajaxform") & "</script>")
If e.PostValues.Count = 0 Then
wb.AddPageTitle("","ph1","数据文件上传","数据上传后,后台自动导入数据库!")
wb.AddForm("","form1","upload1.htm")
wb.AddTopTips("","toptip1","请选择文件!")
Dim sb As New StringBuilder
sb.appendLine("<div>")
sb.appendLine("单文件上传: <input type='file' name='up1' id='up1'><br/>")
sb.appendLine("多文件上传: <input type='file' name='up2' id='up2' multiple>")
sb.appendLine("</div>")
wb.InsertHTML("form1",sb.ToString)
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "确定上传", "button").Attribute= "on cli ck='sub mitForm()'" '调用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>" & vars("ajaxform") & "</script>")
e.WriteString(wb.Build)
Else
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)
Next
End If
If key = "up2" Then
For Each fln As String In e.Files(key)
Dim wj As String =ProjectPath & "Attachments\" & fln
e.SaveFile(key,fln,wj)
Next
End If
Next
e.WriteString("OK")
End If
js代码：
function afterSubmit(result){
hide("tst1");
if (result=='OK') {
show("tst2");
location="upload.htm";
}
else{
show("tst3",2000);
}
}
function submitForm(){
show("tst1",2000);
if (document.getElementById("up1").value && document.getElementById("up2").value ){ ‘红色部分代码怎么修正呢？’
submitAjaxForm('form1','afterSubmit');
}
else{
show("toptip1",2000);
}
}
加好友 
发短信
Post By：2021/2/26 10:20:00 [只看该作者]
