下面的代码向表中写入照片，存在两个问题怎么解决：

1、只能上传一张图片，怎么能上传多张图片？

2、上传图片就会把原来的图片（应该是照片列中的文件名）覆盖掉，怎么能保留原来的，增加新增的？

With wb.AddInputGroup("form1","ipg22","文件上传")
                With .AddUploader("up1","资料",True)    \'True表示可上传多个文件
                    .Accept = "image/*"   \'允许使用相册和相机
                    \'.AllowDelete = True \'允许删除
                    \'.Incremental = True \'允许重复选择文件或连续拍照
                   
                End With
            End With
        End With
       
       
       
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
            .Add("btn1", "放弃", "button", "default.htm").Kind = 2
           
        End With
       
       
    Else
        With wb.AddMsgPage("","msgpage","编辑失败", "此信息可能已经被删除!") \'提示
            .icon= "Warn"
            .AddButton("btn1","返回",PageURL) \'生成返回原来页面的按钮
        End With
    End If
    \'e.WriteString(wb.Build)
    \' Return
Else \'保存编辑结果
    Dim dr As DataRow = DataTables("控缀保学").SQLFind("[_Identify]=" & PrimaryKey)
    If dr IsNot Nothing Then
        Dim nms() As String = {"年级","班级","班主任","学生姓名","学籍号","性别","出生日期","家长姓名","联系电话","地址","编号","省区","市县","乡镇","街道村","建档立卡","当前状态","健康状况","离校时间","辍学年级","辍学原因","年龄","民族","家长职业","去向","其它贫困"}
        For Each nm As String In nms
            dr(nm) = e.PostValues(nm)
        Next
       
       
       
        For Each key As String In e.Files.Keys
            If key = "up1" Then
                For Each fln As String In e.Files(key)
                    e.SaveFile(key, fln,"D:\\xxsjk(学校数据库)\\学校档案\\控辍保学\\" & fln)
                Next
                dr.Lines("资料") = e.Files(key)
            End If
        Next
        \'\'\' \'保存并生成增加成功提示页面
        dr.save()
        With wb.AddMsgPage("","msgpage","增加成功", "谢谢您!") \'生成成功提示页
            .AddButton("btn1","返回筛选",PageURL) \'生成返回原来页面的按钮
            .AddButton("btn1","返回主菜单","default.htm")
           
        End With
    End If
End If
e.WriteString(wb.Build)

老师好，有两个问题：

1、为什么编辑内容不能写入表中？

2、上传多张照片代码不会改。例子是专门的图片上传，我这个还有其它信息要写入表中，不知如何改代码了，请老师帮忙。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:编辑函数.zip

点确定按钮没反应，请老师指点。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:图片列问题.zip

老师，开发者工具知怎么用。

js文件是放在服务器D：\\web\\lib\\文件夹中，文件名：ajaxform.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);
    }
}