主题：uploader上传图片后，如何验证图片数量

var v1 = document.getElementById("up1").files.length;
var v2 = document.getElementById("up4").files.length;
alert(v1);
alert(v2);
If(v1 < 1){
    show("","toptip1",2000);
    Return false;
}
If(v4 < 4){
    show("","toptip4",2000);
    Return false;
}
return true

 

1、这个showtoptips是js的代码

 

2、http://www.foxtable.com/mobilehelp/scr/0104.htm

 

如果你直接在js里面判断，就不需要写valid.htm的代码。

 

如果你需要进入后台计算后才能得到提示，那就必须写valid.htm代码。

js

 

function validit_images(){
var v1 = document.getElementById("up1").files.length;
var v2 = document.getElementById("up4").files.length;
alert(v1);
alert(v2);
if(v1 < 1){
    showTopTips("toptip1","123456",2000);
    return false;
}
if(v2 < 4){
    showTopTips("toptip1","789",2000);
    return false;
}
return true;
}

 

代码

 

Select Case e.Path
    Case "images.htm"
        Dim wb As New weui
         wb.AddTopTips("","toptip1","请选择1张照片") '用于显示动态错误提示

        wb.AddForm("","form1","images.htm").Attribute="onsubmit='return validit_images()'"
        With wb.AddInputGroup("form1","ipg1","展示照(选择1张靓照即可)") '文件上传(1个)
            .AddUploader("up1","",False)
        End With
        With wb.AddInputGroup("form1","ipg22","生活照(选择2张以上靓照)") '带图片浏览的文件上传(最少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 Select

你写的是 Case "valid_images.htm"

 

请好好对并url地址，和你代码的名字。

得看你需不需要用到文件名咯。如果不需要文件名，你根据时间命名都是可以的。比如可以

 

Format(Date.Now, "yyyyMMddHHmmssfff")

 

毫秒级一般不会重名了。当然，最好还是用时间以及累加1的方式咯。

            For Each key1 As String In e.Files.Keys

 不成功指什么？根据代码，会保存4个文件，然后列里面有4行文字的啊，把行拉高就能看到。

        Dim dr As DataRow = DataTables("会员资料").sqlFind("会员编号 = '" & drbianh & "'")
        If dr IsNot Nothing Then                           '测试代码:msgbox(e.PostValues("isr"))
            For Each key As String In e.Files.Keys
                If key = "up1" Then
                    For Each fln As String In e.Files(key)
                        'msgbox(0)
                        Dim ext As String = fln.Split(".")(1)
                        NewName = Format(Date.Now, "yyyyMMddHHmmssffffff") & Rand.Next(10000) & "." & ext
                        e.SaveFile(key, fln, ProjectPath & "Attachments\" & NewName)
                        dr("展示照") = iif(dr.IsNull("展示照"), "", vbcrlf) & NewName
                    Next
                End If
            Next
            For Each key1 As String In e.Files.Keys
                If key1 = "up4" Then
                    For Each fln1 As String In e.Files(key1)
                        'msgbox(1)
                        Dim ext1 As String = fln1.Split(".")(1)
                        NewName = Format(Date.Now, "yyyyMMddHHmmssffffff") & Rand.Next(10000) & "." & ext
                        e.SaveFile(key1, fln1, ProjectPath & "Attachments\" & NewName)
                        dr("生活照") = iif(dr.IsNull("生活照"), "", vbcrlf) & NewName
                    Next
                End If
            Next
            dr.save()              '保存
        End If