按14楼提示，验证数量成功，但是照片上传不成功，贴出代码如下：
这是内部函数images.htm代码：
Dim e As RequestEventArgs = args(0) '注册第7页,上传照片
Select Case e.Path
Case "images.htm"
Dim wb As New weui
If e.PostValues.Count = 0 Then
wb.AddTopTips("","toptip1","") '用于显示动态错误提示
wb.AddForm("","form1","validit_images.htm").Attribute="onsubmit='return validit_images()'"
With wb.AddInputGroup("form1","ipg1","展示照(选择1张靓照即可)") '文件上传(1个)
.AddUploader("up1","",False)
End With
With wb.AddInputGroup("form1","ipg22","生活照(选择4张以上靓照)") '带图片浏览的文件上传(最少4个)
.AddUploader("up4","",True) 'True表示允许一次上传多个文件
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "提交", "submit")
End With
wb.AppendHTML("<script src='./lib/ajaxform_images.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
End If
End Select
这是js代码：
function validit_images(){
var v1 = document.getElementById("up1").files.length;
var v2 = document.getElementById("up4").files.length;
if(v1 < 1){
showTopTips("toptip1","请选择1张展示照上传",2000);
return false;
}
if(v2 < 4){
showTopTips("toptip1","请选择4张以上生活照上传",2000);
return false;
}
return true;
}
这是保存页面valid_images代码：（msgbox，没有一个执行）
Dim e As RequestEventArgs = args(0) '验证页面(照片)
Select Case e.Path
Case "valid_images.htm"
msgbox("000")
Dim wb As New weui
msgbox("111")
Dim drbianh As String = e.Cookies("drbianhao") '为cookie传递数据
'msgbox(drbianh)
Dim dr As DataRow = DataTables("会员资料").sqlFind("会员编号 = '" & drbianh & "'")
If dr IsNot Nothing Then '测试代码:msgbox(e.PostValues("isr"))
msgbox(1)
For Each key As String In e.Files.Keys
msgbox(2)
If key = "up1" Then
msgbox(3)
For Each fln As String In e.Files(key)
e.SaveFile(key, fln, ProjectPath & "Attachments\" & fln)
Next
dr.Lines("展示照") = e.Files(key)
End If
Next
For Each key1 As String In e.Files.Keys
msgbox(4)
If key1 = "up4" Then
msgbox(5)
For Each fln1 As String In e.Files(key1)
msgbox(6)
e.SaveFile(key1, fln1, ProjectPath & "Attachments\" & fln1)
Next
dr.Lines("生活照") = e.Files(key1)
End If
Next
'保存并生成增加成功提示页面
dr.save()
End If
'With wb.AddMsgPage("","msgpage","注册成功", "本地自助服务,为您婚恋交友之路保驾护航") '生成成功提示页
'.AddButton("btn1","完善资料","/fillout.htm")
'End With
wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面
e.WriteString(wb.Build) '生成网页
End Select
[此贴子已经被作者于2017/3/22 9:23:02编辑过]
加好友 
发短信
Post By：2017/3/18 18:02:00 [显示全部帖子]
此主题相关图片如下：qq图片2017032113223544.png